From ba40cdae500f153633dc306c03b0709c2c6f0276 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Tue, 5 Mar 2024 01:10:09 -0700
Subject: Better KeysM implementation and functions.

This is making better key bindings possible and awesome!
---
 src/Config.hs | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'src/Config.hs')

diff --git a/src/Config.hs b/src/Config.hs
index 87a0277..9d090d6 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -9,14 +9,18 @@ config =
   defaultConfig
     { hooks =
         defaultHooks
-          { keyHook = ofKeys testKeys,
-              -- runKeybinds $ do
-              --   bind (Mod1 .+ 'r') (shellExec "wofi --show run")
+          { keyHook = keys $ do
+              ignoreReleaseEvents
 
-              --   subbind (Mod1 .+ 'g') $ do
-              --     bind 't' $ shellExec "alacritty"
+              bind (Mod1 .+ 'r') (shellExec "wofi --show run")
+              bind (Shift .+ Mod1 .+ 'R') requestHotReload
+              bind (Mod1 .+ 't') (shellExec "alacritty")
 
-              --   bind (Mod1 .+ 'Q') requestHotReload,
+              subbind (Mod1 .+ 'l') $ do
+                bind 'l' $ wio $ putStrLn "lololololo"
+                bind 'j' $ wio $ putStrLn "JOGGING!"
+
+              forwardEvent,
             surfaceHook = wio . print
           },
       layout = WindowLayout Full
-- 
cgit