src/Config.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

module Config (config) where

import Wetterhorn.Core.Keys
import Wetterhorn.Core.W
import Wetterhorn.Layout.Full

config :: Config WindowLayout
config =
  defaultConfig
    { hooks =
        defaultHooks
          { keyHook = keys $ do
              ignoreReleaseEvents

              bind (Mod1 .+ 'r') (shellExec "wofi --show run")
              bind (Shift .+ Mod1 .+ 'R') requestHotReload
              bind (Mod1 .+ 't') (shellExec "alacritty")

              subbind (Mod1 .+ 'l') $ do
                bind 'l' $ wio $ putStrLn "lololololo"
                bind 'j' $ wio $ putStrLn "JOGGING!"

              forwardEvent,
            surfaceHook = wio . print
          },
      layout = WindowLayout Full
    }