twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.H.StatusBar: Make barSpawner pure

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/pull/878
Related: https://github.com/xmonad/xmonad-contrib/issues/880
This commit is contained in:
Tony Zorman 2024-08-27 08:21:54 +02:00
parent d0d9d42761
commit b3c249434d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Hooks/StatusBar.hs
View File

@ -426,12 +426,12 @@ statusBarPipe cmd xpp = do
-- > xmobarBottom = statusBarPropTo "_XMONAD_LOG_2" "xmobar -x 0 ~/.config/xmobar/xmobarrc_bottom" (pure ppBottom) -- > xmobarBottom = statusBarPropTo "_XMONAD_LOG_2" "xmobar -x 0 ~/.config/xmobar/xmobarrc_bottom" (pure ppBottom)
-- > xmobar1 = statusBarPropTo "_XMONAD_LOG_3" "xmobar -x 1 ~/.config/xmobar/xmobarrc1" (pure pp1) -- > xmobar1 = statusBarPropTo "_XMONAD_LOG_3" "xmobar -x 1 ~/.config/xmobar/xmobarrc1" (pure pp1)
-- > -- >
-- > barSpawner :: ScreenId -> IO StatusBarConfig -- > barSpawner :: ScreenId -> StatusBarConfig
-- > barSpawner 0 = pure $ xmobarTop <> xmobarBottom -- two bars on the main screen -- > barSpawner 0 = xmobarTop <> xmobarBottom -- two bars on the main screen
-- > barSpawner 1 = pure $ xmobar1 -- > barSpawner 1 = xmobar1
-- > barSpawner _ = mempty -- nothing on the rest of the screens -- > barSpawner _ = mempty -- nothing on the rest of the screens
-- > -- >
-- > main = xmonad $ dynamicSBs barSpawner (def { ... }) -- > main = xmonad $ dynamicSBs (pure . barSpawner) (def { ... })
-- --
-- Make sure you specify which screen to place the status bar on (in xmobar, -- Make sure you specify which screen to place the status bar on (in xmobar,
-- this is achieved by the @-x@ argument). In addition to making sure that your -- this is achieved by the @-x@ argument). In addition to making sure that your