Something went wrong. Try again.
Making a new TUI editor maybe
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960module Glyph.View.Style where
----------------------------------------------------------------------------------------------------
import qualified Brickimport Brick.Widgets.Border.Style ( BorderStyle (..) )
import Glyph.State ( State )
import qualified Graphics.Vty.Attributes as VtyAttrimport qualified Graphics.Vty.Attributes.Color as VtyColor
----------------------------------------------------------------------------------------------------
attrMap :: State -> Brick.AttrMapattrMap _ = Brick.attrMap VtyAttr.defAttr [ ( Brick.attrName "bottomBar" , VtyAttr.withBackColor (VtyAttr.withForeColor VtyAttr.defAttr VtyColor.black) (VtyColor.rgbColor (100 :: Word8) 50 200) ) , ( Brick.attrName "error" , VtyAttr.withBackColor (VtyAttr.withForeColor VtyAttr.defAttr VtyColor.black) (VtyColor.rgbColor (255 :: Word8) 50 50) ) , ( Brick.attrName "warn" , VtyAttr.withBackColor (VtyAttr.withForeColor VtyAttr.defAttr VtyColor.black) (VtyColor.rgbColor (255 :: Word8) 125 50) ) , ( Brick.attrName "info" , VtyAttr.withBackColor (VtyAttr.withForeColor VtyAttr.defAttr VtyColor.black) (VtyColor.rgbColor (50 :: Word8) 255 50) ) ]
ruledBorderStyle :: BorderStyleruledBorderStyle = BorderStyle { bsCornerTL = '─' , bsCornerTR = '─' , bsCornerBR = '─' , bsCornerBL = '─' , bsIntersectFull = '─' , bsIntersectL = '─' , bsIntersectR = '─' , bsIntersectT = '─' , bsIntersectB = '─' , bsHorizontal = '─' , bsVertical = ' ' }