diff options
Diffstat (limited to 'src/Rahm')
| -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 () |