brick/programs/MarkupDemo.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Data.Monoid ((<>))
import Graphics.Vty

import Brick.Main
import Brick.Widgets.Core
import Brick.Util (on, fg)
import Brick.Markup (markup, (@?))
import Brick.AttrMap (attrMap, AttrMap)
import Data.Text.Markup ((@@))

ui :: Widget
ui = m1 <=> m2
    where
        m1 = markup $ ("Hello" @@ fg blue) <> ", " <> ("world!" @@ fg red)
        m2 = markup $ ("Hello" @? "keyword1") <> ", " <> ("world!" @? "keyword2")

theMap :: AttrMap
theMap = attrMap defAttr
    [ ("keyword1",      fg magenta)
    , ("keyword2",      white `on` blue)
    ]

app :: App () Event
app =
    App { appDraw = const [ui]
        , appHandleEvent = resizeOrQuit
        , appAttrMap = const theMap
        , appStartEvent = return
        , appChooseCursor = neverShowCursor
        , appMakeVtyEvent = id
        }

main :: IO ()
main = defaultMain app ()