From cd2c71097e0a878deada1337b58926fb9d7bc949 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Thu, 14 Apr 2022 23:09:50 -0600
Subject: Some changes to marking

---
 src/Rahm/Desktop/Keys.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Rahm/Desktop/Keys.hs')

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index fec7ce5..d302b59 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -150,6 +150,15 @@ keymap = runKeys $ do
           _ -> return ()
 
     shiftMod $
+      doc "Move the marked windo to the current workspace." $
+      mapNextString $ \_ str ->
+        case str of
+          [ch] | isAlphaNum ch -> do
+            ws <- getCurrentWorkspace
+            maybe (return ()) (windows . W.shiftWin ws) =<< markToWindow ch
+          _ -> return ()
+
+    controlMod $
       doc "Swap the current window with a mark." $
       mapNextString $ \_ str ->
         case str of
-- 
cgit