fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

switch over to Mtlstats.Control module

This commit is contained in:
Jonathan Lamothe 2019-09-04 23:16:05 -04:00
parent 3a44bdca94
commit 07f335fd73
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Mtlstats.hs
View File

@ -24,13 +24,12 @@ module Mtlstats (initState, mainLoop) where
import Control.Monad (void) import Control.Monad (void)
import Control.Monad.Extra (whenM) import Control.Monad.Extra (whenM)
import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.State (get) import Control.Monad.Trans.State (get, gets)
import Data.Maybe (fromJust) import Data.Maybe (fromJust)
import qualified UI.NCurses as C import qualified UI.NCurses as C
import Mtlstats.Events import Mtlstats.Control
import Mtlstats.Types import Mtlstats.Types
import Mtlstats.UI
-- | Initializes the progran -- | Initializes the progran
initState :: C.Curses ProgState initState :: C.Curses ProgState
@ -42,7 +41,18 @@ initState = do
-- | Main program loop -- | Main program loop
mainLoop :: Action () mainLoop :: Action ()
mainLoop = do mainLoop = do
get >>= lift . draw c <- gets dispatch
get >>= lift . draw . drawController c
w <- lift C.defaultWindow w <- lift C.defaultWindow
whenM (lift (fromJust <$> C.getEvent w Nothing) >>= handleEvent) whenM (lift (fromJust <$> C.getEvent w Nothing) >>= handleController c)
mainLoop mainLoop
draw :: C.Update C.CursorMode -> C.Curses ()
draw u = do
void $ C.setCursorMode C.CursorInvisible
w <- C.defaultWindow
cm <- C.updateWindow w $ do
C.clear
u
C.render
void $ C.setCursorMode cm