diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-12 00:23:26 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | 9d4e7ae016180769eb050f4c2729475236f4ad34 (patch) | |
| tree | f1a640344cde1caa78553797fef6149cf1e436b5 /src/Rahm/Desktop/Keys.hs | |
| parent | f140c38f7102c9652deeed11e218870031a8bf1e (diff) | |
| download | rde-9d4e7ae016180769eb050f4c2729475236f4ad34.tar.gz rde-9d4e7ae016180769eb050f4c2729475236f4ad34.tar.bz2 rde-9d4e7ae016180769eb050f4c2729475236f4ad34.zip | |
Break the Flippable modifiers into their own file.
This also combines the two into a single type.
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 7ca6161..b8a4c4e 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -55,6 +55,7 @@ import Rahm.Desktop.Logger import Rahm.Desktop.RebindKeys import Rahm.Desktop.Swallow import Rahm.Desktop.Layout.Pop (PopMessage(..)) +import Rahm.Desktop.Layout.Flip (flipHorizontally, flipVertically) import Rahm.Desktop.ScreenRotate (screenRotateForward, screenRotateBackward) type KeyMap l = XConfig l -> Map (KeyMask, KeySym) (X ()) @@ -245,10 +246,10 @@ keymap = runKeys $ do bind xK_f $ do justMod $ doc "Flip the current layout vertically" $ - sendMessage FlipLayout + sendMessage flipVertically shiftMod $ doc "Flip the current layout horizontally" $ - sendMessage HFlipLayout + sendMessage flipHorizontally bind xK_g $ do justMod $ @@ -625,6 +626,7 @@ mouseMap = runButtons $ do bind button13 $ do noMod $ noWindow $ click >> CopyWindow.kill1 + bind button14 $ do noMod $ noWindow $ click >> sendMessage TogglePop |