aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Keys.hs
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-04-12 01:54:43 -0600
committerJosh Rahm <joshuarahm@gmail.com>2022-10-09 12:19:46 -0600
commit0a871fe0c0425d332675a8141ce1da427a572568 (patch)
tree944c009c855dfa30e033636e4684c522089fe7f1 /src/Rahm/Desktop/Keys.hs
parent7481428cc081a6e330d35ad01637addcb93c06c7 (diff)
downloadrde-0a871fe0c0425d332675a8141ce1da427a572568.tar.gz
rde-0a871fe0c0425d332675a8141ce1da427a572568.tar.bz2
rde-0a871fe0c0425d332675a8141ce1da427a572568.zip
Add another layout modifier to add a hole.
This is mostly an academic exercise, as there's probably not much reason to put a hole in the layout, but I must admit that sometimes is aesthetically pleasing to see a little more desktop wallpaper in some cases.
Diffstat (limited to 'src/Rahm/Desktop/Keys.hs')
-rw-r--r--src/Rahm/Desktop/Keys.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index e780fbf..0ff8da3 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -54,6 +54,7 @@ import Rahm.Desktop.PassMenu
import Rahm.Desktop.Logger
import Rahm.Desktop.RebindKeys
import Rahm.Desktop.Swallow
+import Rahm.Desktop.Layout.Hole (toggleHole)
import Rahm.Desktop.Layout.Pop (PopMessage(..))
import Rahm.Desktop.Layout.Flip (flipHorizontally, flipVertically)
import Rahm.Desktop.Layout.Rotate (rotateLayout)
@@ -188,6 +189,12 @@ keymap = runKeys $ do
doc "Print this documentation." $
logs (documentation (keymap config))
+ bind xK_F8 $
+
+ justMod $
+ doc "Print this documentation." $
+ sendMessage toggleHole
+
bind xK_F10 $ do
justMod playPauseDoc