diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-02-11 19:11:21 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-02-11 19:11:21 -0700 |
| commit | 2d530e35ee67126c83afb89ed7a3066b65782f57 (patch) | |
| tree | 00f2e411ed5ee19f1810a4fb58585cc3e91f8841 /src/Main.hs | |
| parent | d5d8526cfa80b17bd2562fda06614659fc42a20a (diff) | |
| download | montis-2d530e35ee67126c83afb89ed7a3066b65782f57.tar.gz montis-2d530e35ee67126c83afb89ed7a3066b65782f57.tar.bz2 montis-2d530e35ee67126c83afb89ed7a3066b65782f57.zip | |
Import tinywl into the project, starting the compositor phase.
Right now nothing interesting is happening, but the new tinywl
implementation is successfully loading a plugin and calling a handler
for 'handle keybinding', which is pretty slick.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.hs b/src/Main.hs index bdffd6f..75e21bd 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,6 +3,7 @@ module Main (main) where import Control.Monad.Writer (MonadWriter (tell), execWriter) +import Text.Printf import Wetterhorn.Core foreign export ccall wetterhorn :: IO Wetterhorn @@ -12,10 +13,9 @@ wetterhorn = initWetterhorn $ WConfig "This is a string" - ( do - (WState str i) <- getWState - wio $ putStrLn $ "Handle something!!! :) " ++ str ++ " " ++ show i - incrementState + ( \sym -> do + wio $ + printf "Got Key: %x\n" sym ) main :: IO () |