jasmine/xmonad-config
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix logMode

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-05-11 23:33:22 +08:00
parent 10c23160e0
commit 29c75d0f4a
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/xmonad.hs
View file

@ -14,6 +14,7 @@ import XMonad.Layout.Renamed
import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W
import XMonad.Util.EZConfig
import XMonad.Util.Font
import XMonad.Util.Loggers
import Graphics.X11.ExtraTypes.XF86
@ -218,14 +219,17 @@ myXmobarPP :: PP
myXmobarPP = def
{ ppSep = grey0 " "
, ppCurrent = blue . wrap " " ""
, ppTitle = grey2 . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn>") . shorten 32
, ppVisible = purple . wrap " " ""
, ppHidden = grey0 . wrap " " ""
, ppHiddenNoWindows = grey0 . wrap " " ""
, ppUrgent = red . wrap " " ""
, ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
, ppOrder = \[ws, l, _, mode] -> [ws, l, mode]
, ppExtras = [logMode]
, ppOrder = \case { [ws, l, title, mode] -> [ws, l, mode, title]; xs -> xs }
, ppExtras = [lMode]
}
where
lMode = xmobarColorL "#d8a657" "#282828" . fixedWidthL AlignCenter "-" 4 $ logMode
--