(deflisten active_profile "scripts/bar/profile")
(deflisten active_profile_name "scripts/bar/profile-name")
(defwidget profile []
  (button :onclick "sp-profiles next"
          :class "profile ${((active_profile_name == 'Work') ? 'profile-work' : ((active_profile_name == 'Housing') ? 'profile-housing' : ((active_profile_name == 'Development') ? 'profile-development' : ((active_profile_name == 'Personal') ? 'profile-personal' : ''))))}"
    {active_profile}))