From 71190dfcb38fddf6248ee0f1994082f0ea02d502 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 25 Mar 2024 14:19:20 -0600
Subject: Checkpoint.

---
 src/Config.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Config.hs')

diff --git a/src/Config.hs b/src/Config.hs
index dab514b..ca99aad 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -1,5 +1,6 @@
 module Config (config) where
 
+import Control.Monad (unless, when)
 import Control.Monad.IO.Class
 import Control.Monad.Loops
 import Text.Printf
@@ -8,7 +9,6 @@ import Wetterhorn.Dsl.Bind
 import Wetterhorn.Dsl.Input
 import Wetterhorn.Keys.Macros
 import Wetterhorn.Layout.Full
-import Control.Monad (unless)
 
 config :: Config WindowLayout
 config =
@@ -23,6 +23,11 @@ config =
         useInputHandler $ do
           ev <- nextInputEvent
 
+          macroSupport
+            (Mod1 .+ 'q')
+            (weak $ Mod1 .+ '@')
+            ev
+
           bind ev (released btnLeft) $ do
             wio $ putStrLn "Left Button Released!!"
 
-- 
cgit