module Brick.Markup
( Markup
, markup
, (@?)
, GetAttr(..)
)
where
import Control.Lens ((.~), (&), (^.))
import Control.Monad (forM)
import qualified Data.Text as T
import Data.Text.Markup
import Data.Default (def)
import Graphics.Vty (Attr, horizCat, string)
import Brick.AttrMap
import Brick.Types
class GetAttr a where
getAttr :: a -> RenderM Attr
instance GetAttr Attr where
getAttr a = do
c <- getContext
return $ mergeWithDefault a (c^.ctxAttrMapL)
instance GetAttr AttrName where
getAttr = lookupAttrName
(@?) :: T.Text -> AttrName -> Markup AttrName
(@?) = (@@)
markup :: (Eq a, GetAttr a) => Markup a -> Widget
markup m =
Widget Fixed Fixed $ do
let pairs = markupToList m
imgs <- forM pairs $ \(t, aSrc) -> do
a <- getAttr aSrc
return $ string a $ T.unpack t
return $ def & imageL .~ horizCat imgs