mirror of
https://github.com/NaomiAmethyst/dots.git
synced 2025-04-13 09:30:06 +00:00
16 lines
439 B
Haskell
16 lines
439 B
Haskell
import XMonad
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Util.Run
|
|
import System.IO
|
|
|
|
main = do
|
|
xmproc <- spawnPipe "xmobar"
|
|
xmonad $ defaultConfig {
|
|
manageHook = manageDocks <+> manageHook defaultConfig,
|
|
layoutHook = avoidStruts $ layoutHook defaultConfig,
|
|
logHook = dynamicLogWithPP $ xmobarPP {
|
|
ppOutput = hPutStrLn xmproc,
|
|
ppTitle = xmobarColor "green" "" . shorten 50
|
|
}
|
|
}
|