SHARE
TWEET

Untitled

a guest Jan 31st, 2014 84 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- Skipped
  2.  
  3. -- Define the names of all workspaces
  4. myWorkspaces = ["term"] ++ (map show [1..9]) ++ ["0"] ++ ((map (("F" ++) . show) [1..12])) ++ ["-", "="]
  5.  
  6. -- Keymaps
  7. keysToAdd conf@(XConfig {XMonad.modMask = modMask}) =.
  8.     [((m .|. modMask, k), windows $ f i)
  9.         | (i, k) <- zip (XMonad.workspaces conf) ([xK_grave] ++ [xK_1 .. xK_9] ++ [xK_0] ++ [xK_F1 .. xK_F12] ++ [xK_minus, xK_equal])
  10.         , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
  11.  
  12. -- Compose all my new key combinations.
  13. myKeys x = M.union (keys mateConfig x) (M.fromList (keysToAdd x))
  14.  
  15. -- manage hook
  16. myManageHook :: ManageHook
  17. myManageHook = composeAll $
  18.     [
  19.       manageHook mateConfig
  20.     , isFullscreen --> doFullFloat
  21.     ]
  22.     ++ map (\s -> resource =? ("atWorkspace" ++ s) --> doShift s) myWorkspaces
  23.  
  24. -- here we actually configure xmonad
  25. main = xmonad mateConfig {
  26.     modMask = mod4Mask
  27.    , workspaces = myWorkspaces
  28.    , keys = myKeys
  29.    , manageHook = myManageHook
  30. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top