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

Use polybar

Browse Source
This commit is contained in:
Hektor Misplon
2023-11-18 17:35:16 +01:00
parent 4849b64ea5
commit 5a7df6bcd2
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
.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 $
(sb1 <> sb2) withEasySB
defToggleStrutsKey (sb1 <> sb2)
myConfig defToggleStrutsKey
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]]
-- }}} -- }}}