From 00a4a74040b0e75bcd97b35bf979d77d94ba42e3 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Wed, 19 Mar 2025 11:29:21 -0600
Subject: Add a mechanism for local key bindings.

---
 .gitignore                     | 1 +
 src/Rahm/Desktop/Keys.hs       | 3 +++
 src/Rahm/Desktop/Keys/Local.hs | 5 +++++
 3 files changed, 9 insertions(+)
 create mode 100644 src/Rahm/Desktop/Keys/Local.hs

diff --git a/.gitignore b/.gitignore
index bb6c218..96293e3 100644
--- a/.gitignore
+++ b/.gitignore
@@ -2,3 +2,4 @@
 *.cabal
 *.lock
 build/*
+src/Rahm/Desktop/Keys/Local.hs
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 6dceffd..9ca862a 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -66,6 +66,7 @@ import Rahm.Desktop.History
     jumpToLastLocation,
   )
 import Rahm.Desktop.Keys.Dsl2
+import Rahm.Desktop.Keys.Local
 import Rahm.Desktop.Keys.Grab (KeySymOrKeyCode (..))
 import Rahm.Desktop.Keys.KeyFeed (execKeyFeed, liftXToFeed, pushKey, runKeyFeed, runKeyFeedX)
 import Rahm.Desktop.Keys.Wml
@@ -1303,6 +1304,8 @@ bindings = do
         "Kills xmonad. Always binds to the 'Q' key."
         (io exitSuccess :: X ())
 
+  localKeys
+
 cornersConfig :: Map ScreenCorner (X ())
 cornersConfig =
   Map.fromList
diff --git a/src/Rahm/Desktop/Keys/Local.hs b/src/Rahm/Desktop/Keys/Local.hs
new file mode 100644
index 0000000..afc1b36
--- /dev/null
+++ b/src/Rahm/Desktop/Keys/Local.hs
@@ -0,0 +1,5 @@
+module Rahm.Desktop.Keys.Local where
+
+
+localKeys :: (Monad m) => m ()
+localKeys = return ()
-- 
cgit