(その12)まとめてみた

key_conf004.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig
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 $ myConfig left_bar

myConfig h = let c = defaultConfig { terminal = "urxvt"
                                   , modMask = mod4Mask
                                   , borderWidth = 3
                                   , logHook = dynamicLogWithPP $ my_dzen_PP h
                                   , manageHook = manageHook defaultConfig <+> manageDocks
                                   , layoutHook = avoidStrutsOn [U] $ layoutHook defaultConfig
                                   , handleEventHook = handleEventHook defaultConfig <+> docksEventHook
                                   , startupHook = return () >> checkKeymap (myConfig h) (myAddKeys c)
                                   }
              in c `additionalKeysP` (myAddKeys c) `removeKeysP` myDelKeys

myAddKeys :: XConfig l -> [(String, X ())]
myAddKeys conf = [("M-q", spawn "killall dzen2; xmonad --recompile && xmonad --restart")]

myDelKeys   = ["M-S-/", "M-?"]

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
                         }