Want more features on Pastebin? Sign Up, it's FREE!
Guest

dayo

By: a guest on Apr 22nd, 2009  |  syntax: None  |  size: 0.83 KB  |  views: 45  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. import XMonad
  2. import XMonad.Hooks.DynamicLog
  3. import XMonad.Hooks.ManageDocks
  4. import XMonad.Util.Run(spawnPipe)
  5. import XMonad.Util.EZConfig(additionalKeys)
  6. import System.IO
  7.  
  8. main = do
  9.     xmproc <- spawnPipe "/usr/local/bin/xmobar /home/dayo/.xmobarrc"
  10.     -- make sure to edit paths to xmobar and .xmobarrc to match your system.
  11.     -- If xmobar is in your $PATH, and its config in ~/.xmobarrc you don't need
  12.     -- the xmobar path or config file, use: xmproc <- spawnPipe "xmobar"  
  13.     xmonad $ defaultConfig
  14.         { manageHook = manageDocks <+> manageHook defaultConfig
  15.         , layoutHook = avoidStruts  $  layoutHook defaultConfig
  16.         , logHook = dynamicLogWithPP $ xmobarPP
  17.                         { ppOutput = hPutStrLn xmproc
  18.                         , ppTitle = xmobarColor "green" "" . shorten 50
  19.                         }
  20.         }
clone this paste RAW Paste Data