daily pastebin goal
59%
SHARE
TWEET

dayo

a guest Apr 22nd, 2009 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.         }
RAW Paste Data
Top