Something went wrong. Try again.
Making a new TUI editor maybe
Something went wrong. Try again.
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768module Main ( main ) where
----------------------------------------------------------------------------------------------------
import qualified Brickimport qualified Brick.BChan as BChan
import Control.Monad ( void )
import Glyph.Event ( Event )import qualified Glyph.Key.Kitty as Kittyimport qualified Glyph.Startup as Startupimport qualified Glyph.Startup.Args as Argsimport Glyph.State ( State )import qualified Glyph.Update as Updateimport qualified Glyph.View.Element.Base as Baseimport Glyph.View.Id ( Id )import qualified Glyph.View.Style as Style
import qualified Graphics.Vty as Vtyimport Graphics.Vty.Config ( VtyUserConfig (..) )import qualified Graphics.Vty.CrossPlatform as VtyPlatform
import qualified System.IO as IO
----------------------------------------------------------------------------------------------------
main :: IO ()main = let app :: Brick.App State Event Id app = Brick.App { Brick.appDraw = Base.baseView , Brick.appChooseCursor = Brick.showFirstCursor , Brick.appHandleEvent = Update.update , Brick.appStartEvent = return () , Brick.appAttrMap = Style.attrMap }
eventQueueDepth = 64
vtyConfig :: VtyUserConfig vtyConfig = Vty.defaultConfig { configInputMap = configInputMap Vty.defaultConfig <> Kitty.inputMap }
buildVty = VtyPlatform.mkVty vtyConfig in do -- ToDo: Read cli args -- args <- readArgs let args = Args.noArgs
state <- Startup.startup args
channel <- BChan.newBChan eventQueueDepth initialVty <- buildVty Kitty.with IO.stdout Kitty.defaultFlags <| void <| Brick.customMain initialVty buildVty (Just channel) app state