diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-02-28 12:37:51 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-02-28 12:40:50 -0700 |
| commit | e7300f03dcf0af7d968977000a10e8a8befdb60a (patch) | |
| tree | 8f853663851a27b8914e429eda45b0c1fb97dd0b /src/Config.hs | |
| parent | b444f874bc12cb8710068200500f14fd1e5f6776 (diff) | |
| download | montis-e7300f03dcf0af7d968977000a10e8a8befdb60a.tar.gz montis-e7300f03dcf0af7d968977000a10e8a8befdb60a.tar.bz2 montis-e7300f03dcf0af7d968977000a10e8a8befdb60a.zip | |
Huge refactor for the Haskell code.
This adds new layout configuration, preparing for actually using the
layouts. This also restructures the code and tries to keep code
interfacing with the foreign structures together and rename them to more
sensible names.
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/Config.hs b/src/Config.hs index 818150e..e49a869 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -1,6 +1,14 @@ -module Config (wetterhorn) where +module Config where -import Wetterhorn.Core +import Wetterhorn.Core.W +import Wetterhorn.Layout.Full +import Wetterhorn.Layout.Combine -wetterhorn :: IO Wetterhorn -wetterhorn = initWetterhorn defaultConfig +config = defaultConfig { + keyHook = wio . print, + surfaceHook = wio . print, + layout = WindowLayout Full +} + +-- wetterhorn :: IO Wetterhorn +-- wetterhorn = initWetterhorn defaultConfig |