6 lines
464 B
Text
6 lines
464 B
Text
(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}))
|