From 75886bd10e782425179f244d0a650d9861bc2843 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 18 Apr 2022 16:38:05 -0600
Subject: Rename Lang to WindowManagementLanguage (Moved to Wml.hs). Add more
 features to it.

---
 src/Rahm/Desktop/Keys.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

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

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index da3b695..6973b81 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -52,7 +52,7 @@ import Rahm.Desktop.Layout.Rotate (rotateLayout)
 import Rahm.Desktop.Common
 import Rahm.Desktop.Logger
 import Rahm.Desktop.Marking
-import Rahm.Desktop.Lang
+import Rahm.Desktop.Keys.Wml
 import Rahm.Desktop.MouseMotion
 import Rahm.Desktop.PassMenu
 import Rahm.Desktop.PromptConfig
@@ -140,7 +140,7 @@ keymap = runKeys $ do
   let subkeys keysM = Submap (runKeys keysM config)
       repeatable keysM = Repeat (runKeys keysM config)
 
-  bind xK_apostrophe $ do
+  forM_ [xK_apostrophe, xK_w] $ \k -> bind k $ do
     justMod $
       doc "Jumps between marks." $
       runMaybeT_ $ do
@@ -189,8 +189,9 @@ keymap = runKeys $ do
   bind xK_F8 $
 
     justMod $
-      doc "Print this documentation." $
-      sendMessage toggleHole
+      doc "Experimental" $ do
+        (logs . printf "WS: %s" . show . fmap workspaceName) =<< workspaceForString ",^"
+        (logs . printf "Wins: %s" . show) =<< locationSetForString "&s@,^"
 
   bind xK_F10 $ do
     justMod playPauseDoc
@@ -489,9 +490,6 @@ keymap = runKeys $ do
         bind xK_v $
           justMod (return () :: X ())
 
-  bind xK_w $ do
-    justMod $ doc "Jump to a window (via rofi)" windowJump
-
   bind xK_x $ do
     justMod $
       doc "Toggles respect for struts." $
-- 
cgit