（その10）コード1

xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run

main :: IO ()
main = do
  left_bar <- spawnPipe $ "dzen2 -x 0 -w 400 -ta l " ++ dzen_style
  spawn $ "conky -c ~/.xmonad/conky_dzen_laptop | dzen2 -x 400 -ta r " ++ dzen_style
  xmonad defaultConfig { terminal = "urxvt"
                       , modMask = mod4Mask
                       , borderWidth = 3
                       , logHook = dynamicLogWithPP $ my_dzen_PP left_bar
                       , layoutHook = avoidStruts $ layoutHook defaultConfig
                       , manageHook = manageHook defaultConfig <+> manageDocks
                       }

dzen_style = "-h '18' -fg '#aaaaaa' -bg '#000000' -fn 'M+ 1mn:size=10'"

my_dzen_PP h = defaultPP { ppCurrent = dzenColor "#00ffaa" "" . wrap "[" "]"
                         , ppHidden  = dzenColor "#00aa11" "" . wrap "" ""
                         , ppUrgent  = dzenColor "#ff0000" "" . wrap " " " "
                         , ppSep     = " : "
                         , ppLayout  = dzenColor "#aaaaaa" ""
                         , ppOutput  = hPutStrLn h
                         }