From 401b293fe6a726d24cf944e626c301262d726aad Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 8 Apr 2022 14:41:34 -0600
Subject: Cleanup and more documentation.

---
 src/Internal/Keys.hs | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'src/Internal/Keys.hs')

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 748aae2..40ad0af 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -46,6 +46,7 @@ import XMonad.Actions.SpawnOn as SpawnOn
 import qualified Data.Map as Map
 import qualified XMonad.StackSet as W
 
+import Internal.LayoutZipper
 import Internal.MouseMotion
 import Internal.Windows
 import Internal.Lib
@@ -401,13 +402,25 @@ keymap = runKeys $ do
     altMod $ spawnX "sudo -A systemctl suspend && xsecurelock"
 
   bind xK_space $ do
-    justMod  $ sendMessage NextLayout
-    shiftMod $ sendMessage NextLayout
+    justMod  $
+      doc "Use the next layout in the layout list." $ sendMessage ToNextLayout
+
+    altMod   $
+      doc "Reset the layout to the default layout." $ sendMessage (SetLayout 0)
+
+    shiftMod $
+      doc "Use the previous layout in the layout list." $
+        sendMessage ToPreviousLayout
 
   bind xK_t $ do
-    justMod  $ spawnX (terminal config)
-    shiftMod $ withFocused $ windows . W.sink
-    altMod   $ spawnX (terminal config ++ " -t Floating\\ Term")
+    justMod  $
+      doc "Spawn a terminal." $ spawnX (terminal config)
+
+    shiftMod $
+      doc "Sink the current window into the tiling." $ withFocused $ windows . W.sink
+
+    altMod   $
+      doc "Spawn a floating terminal" $ spawnX (terminal config ++ " -t Floating\\ Term")
 
   bind xK_v $
     -- Allows repeated strokes of M-h and M-l to reduce and increase volume
-- 
cgit