(deflisten active_window_name :initial ""
                              :interval "60s"
  "scripts/bar/activewindow")
(defwidget windowtitle []
  (label :class {active_window_name != "" ? "active_window" : ""}
         :text {active_window_name}))