about summary refs log tree commit diff
path: root/dotfiles/xmonad.hs
diff options
context:
space:
mode:
authorBaitinq <manuelpalenzuelamerino@gmail.com>2022-07-06 12:09:37 +0200
committerBaitinq <manuelpalenzuelamerino@gmail.com>2022-07-06 12:09:37 +0200
commit72eeadc616481c9b2e1b250400cfde363d1fa916 (patch)
tree52db934f8780b3978930aa56db9b0cfe15e43619 /dotfiles/xmonad.hs
parentDmenu: Add patch to hardcode the height to cover xmobar (diff)
downloadnixos-config-72eeadc616481c9b2e1b250400cfde363d1fa916.tar.gz
nixos-config-72eeadc616481c9b2e1b250400cfde363d1fa916.tar.bz2
nixos-config-72eeadc616481c9b2e1b250400cfde363d1fa916.zip
fmt
Diffstat (limited to 'dotfiles/xmonad.hs')
-rw-r--r--dotfiles/xmonad.hs13
1 files changed, 4 insertions, 9 deletions
diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs
index 1fe7903..bf32d9f 100644
--- a/dotfiles/xmonad.hs
+++ b/dotfiles/xmonad.hs
@@ -1,6 +1,3 @@
--- xmonad config used by Malcolm MD
--- https://github.com/randomthought/xmonad-config
-
 import System.IO
 import System.Exit
 
@@ -194,15 +191,13 @@ getNumberOfWindowsInWorkpace = withWindowSet (pure . length . W.index)
 myStatusBar = statusBarProp "xmobar" (do 
                                         numWindows <- getNumberOfWindowsInWorkpace
                                         return $ xmobarPP {
-                                                    ppCurrent = (\s -> 
-                                                                      if numWindows > 0
-                                                                        then ((xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577") ("  " ++ s ++ "  "))
-                                                                        else (xmobarColor "#bbbbbb" "#005577" ("  " ++ s ++ "  "))
-                                                                )
+                                                    ppCurrent = if numWindows > 0
+                                                                        then xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577" . wrap "  " "  "
+                                                                        else xmobarColor "#bbbbbb" "#005577" . wrap "  " "  "
                                                   , ppTitle = id
                                                   , ppSep = " |  "
                                                   , ppLayout = (\_ -> "")
-                                                  , ppHidden = (\s -> createDwmBox "#bbbbbb" ("  " ++ s ++ "  ")) --probs better way to do this
+                                                  , ppHidden = createDwmBox "#bbbbbb" . wrap "  " "  "
                                                   , ppHiddenNoWindows = wrap "  " "  "
                                           }
                                       )