diff options
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!!" |