Add <M-a> and <S-M-a> to cycle between monitors.

This is more general than it was before. It's quicker than typing its
synonymous equivalent, <M-f>,. as a bonus it's the same on both dvorak
and qwerty keyboards.

1 files changed, 17 insertions, 0 deletions

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index b84a586..d55c3bc 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -154,6 +154,7 @@ import XMonad.Layout.Spacing
 import XMonad.Util.Run (safeSpawn)
 import XMonad.Util.WindowProperties
 import Prelude hiding ((!!))
+import Graphics.X11.XScreenSaver (XScreenSaverState(ScreenSaverCycle))
 
 type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ())
 
@@ -373,6 +374,22 @@ bindings = do
             ws <- readNextWorkspaceName
             lift $ windows $ W.view ws
 
+  bind xK_a $ do
+    justMod $
+      doc "Cycle focus forward through the screens. (Synonymous with f,.)" $ do
+        runMaybeT_ $ do
+          ws' <- workspaceForStringT ",."
+          ws <- MaybeT . return $ workspaceName ws'
+          lift $ windows $ W.view ws
+
+    shiftMod $
+      doc "Cycle focus backward through the screens. (Synonymous with f;.)" $ do
+        runMaybeT_ $ do
+          ws' <- workspaceForStringT ";."
+          ws <- MaybeT . return $ workspaceName ws'
+          lift $ windows $ W.view ws
+        
+
   bind xK_g $ do
     justMod $
       doc