gdritter repos dotfiles / ee999a8
Switch to knurling for the statusbar Getty Ritter 4 years ago
1 changed file(s) with 2 addition(s) and 19 deletion(s). Collapse all Expand all
1919 import qualified XMonad.Hooks.SetWMName as XM
2020 import qualified XMonad.Layout.NoBorders as XM
2121 import qualified XMonad.Layout.Tabbed as Tab
22 import XMonad.ManageHook ((-->), (=?))
2322 import qualified XMonad.Util.Run as Run
2423
2524 -- | A 'ColorScheme' represents a handful of salient colors used in
3736 blueScheme = ColorScheme
3837 { normalC = "#336699"
3938 , focusedC = "#9ebedf"
40 , blackC = "#ffffff"
41 , grayC = "#999999"
42 , whiteC = "#000000"
43 }
44
45 -- | Here's a reasonable default color scheme with some blues!
46 purpScheme :: ColorScheme
47 purpScheme = ColorScheme
48 { normalC = "#993366"
49 , focusedC = "#bf4080"
5039 , blackC = "#ffffff"
5140 , grayC = "#999999"
5241 , whiteC = "#000000"
11099 XM.manageDocks <+> XM.manageHook def
111100 , XM.normalBorderColor = normalC
112101 , XM.focusedBorderColor = focusedC
113 , XM.logHook = Log.dynamicLogWithPP $ Log.xmobarPP
102 , XM.logHook = Log.dynamicLogWithPP $ def
114103 { Log.ppOutput = Sys.hPutStrLn xmproc
115 , Log.ppTitle = Log.xmobarColor grayC "" . Log.shorten 50
116 , Log.ppCurrent = Log.xmobarColor grayC "" . ("<" ++) . (++ ">")
117104 }
118105 }
119106 tiled = XM.Tall 1 (3/100) (3/5)
140127 void (Sys.createProcess (Sys.proc "sh" ["/home/gdritter/.xm-init"]))
141128
142129 -- Run an xmobar instance
143 xmproc <- Run.spawnPipe "/home/gdritter/.cabal/bin/xmobar /home/gdritter/.xmobarrc"
144 xmproc <- Run.spawnPipe "/usr/bin/xmobar /home/gdritter/.xmobarrc"
145 -- Run a graphical-only runit instance.
146 -- XXX: kill this when xmonad dies somehow!
147 void (Run.spawnPipe "runsvdir /home/gdritter/.run/service")
130 xmproc <- Run.spawnPipe "/home/gdritter/.cargo/bin/knurling"
148131
149132 -- Finally, build the config and run xmonad!
150133 case config xmproc blueScheme of