aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Wetterhorn/Core.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Wetterhorn/Core.hs b/src/Wetterhorn/Core.hs
index 29d4d8d..b5e4a6f 100644
--- a/src/Wetterhorn/Core.hs
+++ b/src/Wetterhorn/Core.hs
@@ -94,14 +94,14 @@ data WConfig = WConfig
defaultBindings :: Map (KeyState, Word32, Word32) (W ())
defaultBindings =
Map.fromList
- [ ((KeyPressed, 0x8, sym 'r'), requestHotReload),
+ [ ((KeyPressed, 0x9, sym 'Q'), requestHotReload),
+ ((KeyPressed, 0x8, sym 'r'), wio $ ForeignInterface.doShellExec "wofi --show run"),
((KeyPressed, 0x8, sym 'l'), requestLog "This is a log statement!\n"),
((KeyPressed, 0x8, sym 't'), wio $ ForeignInterface.doShellExec "alacritty"),
((KeyPressed, 0x9, sym 'T'), wio $ ForeignInterface.doShellExec "gnome-terminal"),
((KeyPressed, 0x8, sym 'c'), wio $ ForeignInterface.doShellExec "pavucontrol"),
((KeyPressed, 0x8, sym 'q'), requestExit 0)
]
-
where
sym = fromIntegral . ord