aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Rahm')
-rw-r--r--src/Rahm/Desktop/Keys.hs3
-rw-r--r--src/Rahm/Desktop/Keys/Local.hs5
2 files changed, 8 insertions, 0 deletions
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 ()