(deflisten active_profile "scripts/bar/profile")
(defwidget profile []
  (button :onclick "sp-profiles next"
          :class "profile"
    {active_profile}))