(defpoll active_profile :initial false
                        :interval "1s"
  "sp-profile-icon")
(defwidget profile []
  (button :onclick "sp-profiles next"
          :class "profile"
    {active_profile}))