1 files changed, 12 insertions, 7 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 9ae9c30..a453df1 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -187,13 +187,6 @@ keymap = runKeys $ do
       doc "Print this documentation." $
       logs (documentation (keymap config))
 
-  bind xK_F8 $
-
-    justMod $
-      doc "Experimental" $ do
-        (logs . printf "WS: %s" . show . fmap workspaceName) =<< workspaceForString ",^"
-        (logs . printf "Wins: %s" . show) =<< locationSetForString "&s@,^"
-
   bind xK_F10 $ do
     justMod playPauseDoc
 
@@ -299,6 +292,18 @@ keymap = runKeys $ do
           moveLocationToWorkspaceFn ws loc
           gotoWorkspaceFn ws
 
+  bind xK_d $
+    justMod $
+    doc "Record (define) macros." $
+      subkeys $ do
+      bind xK_w $ noMod $
+        doc "Record a windowset macro" $
+        runMaybeT_ readWindowsetMacro
+
+      bind xK_t $ noMod $
+        doc "Record a workspace macro" $
+        runMaybeT_ readWorkspaceMacro
+
   bind xK_h $ do
     justMod $
       doc "Focus on the next window down in the stack" $