diff options
| author | Josh Rahm <rahm@google.com> | 2025-03-19 11:29:21 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2025-03-19 11:29:21 -0600 |
| commit | 00a4a74040b0e75bcd97b35bf979d77d94ba42e3 (patch) | |
| tree | 955ef22731b62ee72d75e8be25452f565f36034f /src/Rahm/Desktop | |
| parent | eaaeb8e37037a612cf9f078919004c5910eb2e5f (diff) | |
| download | rde-00a4a74040b0e75bcd97b35bf979d77d94ba42e3.tar.gz rde-00a4a74040b0e75bcd97b35bf979d77d94ba42e3.tar.bz2 rde-00a4a74040b0e75bcd97b35bf979d77d94ba42e3.zip | |
Add a mechanism for local key bindings.
Diffstat (limited to 'src/Rahm/Desktop')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 3 | ||||
| -rw-r--r-- | src/Rahm/Desktop/Keys/Local.hs | 5 |
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 () |