Switch to knurling for the statusbar
Getty Ritter
5 years ago
| 19 | 19 | import qualified XMonad.Hooks.SetWMName as XM |
| 20 | 20 | import qualified XMonad.Layout.NoBorders as XM |
| 21 | 21 | import qualified XMonad.Layout.Tabbed as Tab |
| 22 | import XMonad.ManageHook ((-->), (=?)) | |
| 23 | 22 | import qualified XMonad.Util.Run as Run |
| 24 | 23 | |
| 25 | 24 | -- | A 'ColorScheme' represents a handful of salient colors used in |
| 37 | 36 | blueScheme = ColorScheme |
| 38 | 37 | { normalC = "#336699" |
| 39 | 38 | , 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" | |
| 50 | 39 | , blackC = "#ffffff" |
| 51 | 40 | , grayC = "#999999" |
| 52 | 41 | , whiteC = "#000000" |
| 110 | 99 | XM.manageDocks <+> XM.manageHook def |
| 111 | 100 | , XM.normalBorderColor = normalC |
| 112 | 101 | , XM.focusedBorderColor = focusedC |
| 113 |
, XM.logHook = Log.dynamicLogWithPP $ |
|
| 102 | , XM.logHook = Log.dynamicLogWithPP $ def | |
| 114 | 103 | { Log.ppOutput = Sys.hPutStrLn xmproc |
| 115 | , Log.ppTitle = Log.xmobarColor grayC "" . Log.shorten 50 | |
| 116 | , Log.ppCurrent = Log.xmobarColor grayC "" . ("<" ++) . (++ ">") | |
| 117 | 104 | } |
| 118 | 105 | } |
| 119 | 106 | tiled = XM.Tall 1 (3/100) (3/5) |
| 140 | 127 | void (Sys.createProcess (Sys.proc "sh" ["/home/gdritter/.xm-init"])) |
| 141 | 128 | |
| 142 | 129 | -- 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 |
|
|
| 130 | xmproc <- Run.spawnPipe "/home/gdritter/.cargo/bin/knurling" | |
| 148 | 131 | |
| 149 | 132 | -- Finally, build the config and run xmonad! |
| 150 | 133 | case config xmproc blueScheme of |