(deflisten active_window_name :initial ""
                              :interval "1s"
  "scripts/activewindow")
(defwidget windowtitle []
  (box :class {active_window_name != "" ? "active_window" : ""}
    {active_window_name}))