diff options
| author | Josh Rahm <rahm@google.com> | 2024-03-25 14:19:20 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2024-03-25 14:19:20 -0600 |
| commit | 71190dfcb38fddf6248ee0f1994082f0ea02d502 (patch) | |
| tree | ee17a28d4a9a28b672e8d3d83c217ab0cfe19770 /src/Config.hs | |
| parent | 211fce2128121f3c9374442a13c5d756182a7cb1 (diff) | |
| download | montis-71190dfcb38fddf6248ee0f1994082f0ea02d502.tar.gz montis-71190dfcb38fddf6248ee0f1994082f0ea02d502.tar.bz2 montis-71190dfcb38fddf6248ee0f1994082f0ea02d502.zip | |
Checkpoint.
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 7 |
1 files changed, 6 insertions, 1 deletions
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!!" |