Advertisement
Guest User

just use additionalKeysP :)

a guest
Nov 25th, 2011
939
0
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(additionalKeysP)
  6. import System.IO
  7. import XMonad.Actions.WindowGo
  8.  
  9. myManageHook = composeAll
  10.     [ className =? "Gimp"      --> doFloat
  11.     , className =? "Vncviewer" --> doFloat
  12.     --, className =? "mplayer" --> doFloat
  13.     ]
  14. -- instead of the sendMessage composition in the keybinding, you could also use this to "make Master" and "change to layout Full" whenever a window has the "Firefox" classname
  15.  
  16. main = do
  17.     xmproc <- spawnPipe "xmobar"
  18.     xmodproc <- spawnPipe "xmodmap ~/.Xmodmap"
  19.     fproc <- spawnPipe "firefox"
  20.     termproc <- spawnPipe "lxterminal"
  21.     xmonad $ defaultConfig
  22.         { manageHook = manageDocks <+> myManageHook -- make sure to include myManageHook definition from above
  23.                         <+> manageHook defaultConfig
  24.         , layoutHook = avoidStruts  $  layoutHook defaultConfig
  25.         , logHook = dynamicLogWithPP $ xmobarPP
  26.                         { ppOutput = hPutStrLn xmproc
  27.                         , ppTitle = xmobarColor "green" "" . shorten 50
  28.                         }
  29.         , modMask = mod4Mask     -- Rebind Mod to the Windows key
  30.         , borderWidth = 0
  31.         } `additionalKeysP`
  32.         [ ("C-<Print>", spawn "sleep 0.2; scrot -s")
  33.         , ("<Print>", spawn "scrot")
  34.         , ("M-f", (runOrRaiseMaster "firefox" (className =? "Firefox")) >> (sendMessage $ JumpToLayout "Full"))
  35.         ]
  36.  
  37.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement