vty

2 files changed, 45 insertions, 1 deletions

diff --git a/countdown.hs b/countdown.hs
index 1795a02..cfa8f2d 100755
--- a/countdown.hs
+++ b/countdown.hs
@@ -8,12 +8,51 @@
 #-}
 {-# language NoImplicitPrelude #-}
 {-# language RecordWildCards #-}
+{-# language FlexibleContexts #-}
 import Rebase.Prelude hiding (toList)
-import Control.Lens
+import Control.Lens hiding ((<|))
 import Data.Foldable (toList)
 import Data.Ratio
 import Text.Printf
+import Graphics.Vty
+import Data.Time.LocalTime
+import Control.Monad.RWS
+import Data.Sequence (Seq, (<|))
+import qualified Data.Sequence as Seq
+
+eventBufferSize = 1000
+
+billion :: Integer
+billion = 1000 * 1000 * 1000
+
+ageOfUniverseInYears :: Integer
+ageOfUniverseInYears = 13 * billion
+
+type App = RWST Vty () (Seq String) IO
+
+vtyInteract :: Bool -> App ()
+vtyInteract shouldExit = do
+    updateDisplay
+    unless shouldExit $ handleNextEvent >>= vtyInteract
+
+handleNextEvent = ask >>= liftIO . nextEvent >>= handleEvent
+    where
+        handleEvent e               = do
+            modify $ (<|) (show e) >>> Seq.take eventBufferSize
+            return $ e == EvKey KEsc []
+
+updateDisplay :: App ()
+updateDisplay = do
+    let info = string defAttr "Press ESC to exit."
+    eventLog <- foldMap (string defAttr) <$> get
+    let pic = picForImage $ info <-> eventLog
+    vty <- ask
+    liftIO $ update vty pic
 
 main :: IO ()
 main = do
+  now <- getCurrentTime
+  vty <- mkVty defaultConfig
+  _ <- execRWST (vtyInteract False) vty (Seq.empty)
+  shutdown vty
   return ()
diff --git a/package.yaml b/package.yaml
index 6f8baa7..071bcd7 100644
--- a/package.yaml
+++ b/package.yaml
@@ -5,6 +5,11 @@ dependencies:
 - base
 - rebase
 - lens
+- vty
+- time
+- mtl
+- data-default
+- containers
 
 executables:
   countdown: