REF make commands explicit so we can easily add to individual ones later

This commit is contained in:
Nathan Dwarshuis 2020-02-16 01:16:15 -05:00
parent a020dbe82f
commit 07e6786632
1 changed files with 5 additions and 2 deletions

View File

@ -182,8 +182,11 @@ myPowerPrompt = mkXPrompt PowerPrompt conf comps
comps = (mkComplFunFromList' (map fst commands))
conf = hotPromptTheme
commands =
map (\cmd -> (cmd, spawn $ "systemctl " ++ cmd))
[ "poweroff", "suspend", "reboot", "hibernate"]
[ ("poweroff", spawn "systemctl poweroff")
, ("suspend", spawn "systemctl suspend")
, ("hibernate", spawn "systemctl hibernate")
, ("reboot", spawn "systemctl reboot")
]
-- osd