From 318fc354551e387fef6ce26b68221e54ef421e8d Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 15 Sep 2016 16:57:12 -0700
Subject: [PATCH] Refactor xmonad.hs, add Mirrored Tall layout

---
 dotfiles/xmonad/xmonad.hs | 41 ++++++++++++++++++++-------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index bd0a1c62..7b3c234d 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -1,42 +1,43 @@
 import XMonad
-import XMonad.Config()
+import XMonad.Config ()
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
 import XMonad.Layout.MultiToggle
+import XMonad.Util.CustomKeys
 import XMonad.Layout.MultiToggle.Instances
 import XMonad.Layout.NoBorders
 import XMonad.Layout.Spacing
 import XMonad.Layout.ThreeColumns
-import XMonad.Util.EZConfig
 
-
--- Use Super/Command/WinKey instead of Alt
-myModMask :: KeyMask
-myModMask = mod4Mask
-
-main :: IO ()
 main = xmonad $ ewmh def
-       { modMask = myModMask
+       { modMask = mod4Mask
        , terminal = "urxvt"
        , manageHook = manageDocks <+> manageHook def
        , layoutHook = myLayoutHook
        -- , logHook = myLogHook topBar
        , handleEventHook = handleEventHook def <+> fullscreenEventHook
        , startupHook = myStartup
-        } `additionalKeys`
-       [ ((myModMask, xK_p), spawn "rofi -show drun")
-       , ((myModMask, xK_g), spawn "rofi -show window")
-         -- TODO: Change this to bringing the window to the current workspace
-       , ((myModMask, xK_b), spawn "rofi -show run")
-       , ((myModMask .|. controlMask, xK_space), sendMessage $ Toggle FULL)
-       ]
+       , keys = customKeys delKeys addKeys
+       }
+
+delKeys _ = []
+
+addKeys XConfig {modMask = modm} =
+    [ ((modm, xK_p), spawn "rofi -show drun")
+    , ((modm, xK_g), spawn "rofi -show window")
+    -- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen])
+    -- TODO: Change this to bringing the window to the current workspace
+    , ((modm, xK_b), spawn "rofi -show run")
+    , ((modm .|. controlMask, xK_space), sendMessage $ Toggle FULL)
+    ]
+
+layouts = tiled ||| ThreeCol 1 (3/100) (1/3) ||| Mirror tiled
+          where
+            tiled = Tall 1 (3/100) (1/2)
 
 myLayoutHook = avoidStruts . smartSpacing 10 . noBorders
-               . mkToggle (FULL ?? EOT) $
-               Tall 1 (3/100) (1/2) ||| ThreeCol 1 (3/100) (1/3)
+               . mkToggle (FULL ?? EOT) $ layouts
 
-
-myStartup :: X()
 myStartup = do
   spawn "nm-applet --sm-disable"
   spawn "xsetroot -solid black"