Cleanup and more documentation.

1 files changed, 18 insertions, 5 deletions

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