Add xmonad config

2016-09-09 17:48:28 -07:00 · 2016-09-09 17:48:28 -07:00 · cf84ae4653
commit cf84ae4653
parent 4770dcf45b
1 changed files with 19 additions and 0 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@ -0,0 +1,19 @@
+import XMonad
+import XMonad.Actions.WindowBringer
+import XMonad.Config()
+import XMonad.Util.CustomKeys
+
+main :: IO ()
+main = xmonad defaultConfig
+        { modMask = mod4Mask -- Use Super instead of Alt
+        , keys = customKeys delkeys inskeys
+        }
+    where
+      delkeys :: XConfig l -> [(KeyMask, KeySym)]
+      delkeys _ = [ ]
+
+      inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
+      inskeys conf =
+          [ ((mod4Mask, xK_g), gotoMenu)
+          , ((mod4Mask, xK_b), bringMenu)
+          ]