More flexing with the new keysM system.

1 files changed, 20 insertions, 0 deletions

diff --git a/src/Config.hs b/src/Config.hs
index 9d090d6..759e3b8 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -1,5 +1,9 @@
 module Config (config) where
 
+import Control.Monad.IO.Class
+import Control.Monad.Loops
+import Control.Monad.RWS (MonadReader (ask))
+import qualified Wetterhorn.Core.KeyEvent as KeyEvent
 import Wetterhorn.Core.Keys
 import Wetterhorn.Core.W
 import Wetterhorn.Layout.Full
@@ -20,6 +24,22 @@ config =
                 bind 'l' $ wio $ putStrLn "lololololo"
                 bind 'j' $ wio $ putStrLn "JOGGING!"
 
+              subbind (Mod1 .+ 'p') $ do
+                str <-
+                  unfoldM
+                    ( do
+                        ke <- ask
+                        if KeyEvent.codepoint ke == '\r'
+                          then return Nothing
+                          else do
+                            Just (KeyEvent.codepoint ke) <$ nextKeyPress
+                    )
+
+                liftIO $ putStrLn $ "You input: " ++ str
+                bind (str == "hello") $ do
+                  liftIO $ putStrLn "You Win! *\\o/*"
+                liftIO $ putStrLn "You Lose :("
+
               forwardEvent,
             surfaceHook = wio . print
           },