Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import XMonad
- import XMonad.Hooks.DynamicLog
- import XMonad.Hooks.ManageDocks
- import XMonad.Util.Run(spawnPipe)
- import XMonad.Util.EZConfig(additionalKeys)
- import System.IO
- main = do
- xmproc <- spawnPipe "/usr/local/bin/xmobar /home/dayo/.xmobarrc"
- -- make sure to edit paths to xmobar and .xmobarrc to match your system.
- -- If xmobar is in your $PATH, and its config in ~/.xmobarrc you don't need
- -- the xmobar path or config file, use: xmproc <- spawnPipe "xmobar"
- xmonad $ defaultConfig
- { manageHook = manageDocks <+> manageHook defaultConfig
- , layoutHook = avoidStruts $ layoutHook defaultConfig
- , logHook = dynamicLogWithPP $ xmobarPP
- { ppOutput = hPutStrLn xmproc
- , ppTitle = xmobarColor "green" "" . shorten 50
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement