hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use polybar

master
Hektor Misplon 2023-11-18 17:35:16 +01:00
parent 4849b64ea5
commit 5a7df6bcd2
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
.xmonad/xmonad.hs
View File

@ -68,7 +68,7 @@ shiftAndView id = doF (W.view id) <> doF (W.shift id)
-- startupHook -- startupHook
myStartupHook = myStartupHook =
do do
spawn "albert" spawn "killall polybar && polybar -r"
-- manageHook -- manageHook
myManageHook :: ManageHook myManageHook :: ManageHook
@ -264,13 +264,14 @@ resetTemp = spawn "screen-temperature 3000"
-- Main {{{ -- Main {{{
main :: IO () main :: IO ()
main = do xmonad main =
$ ewmh do { xmonad } $
$ withEasySB ewmh $
withEasySB
(sb1 <> sb2) (sb1 <> sb2)
defToggleStrutsKey defToggleStrutsKey
myConfig myConfig
where where
[sb1, sb2] = [statusBarProp "xmobar" $ pure (pp' (S i) pp) | i <- [0..1]] [sb1, sb2] = [statusBarProp "polybar" $ pure (pp' (S i) pp) | i <- [0 .. 1]]
-- }}} -- }}}