From e3cd7723739aed7dea5ec8bc8952e16b2cc4b06c Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Tue, 12 Apr 2022 00:23:26 -0600
Subject: Break the Flippable modifiers into their own file.

This also combines the two into a single type.
---
 src/Rahm/Desktop/Keys.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Rahm/Desktop/Keys.hs')

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
 
-- 
cgit