[client] Adjust editor to look like web client text boxes

This commit is contained in:
Joscha 2020-03-14 00:04:37 +00:00
parent d58f1e4fef
commit 0edc241149

View file

@ -8,6 +8,7 @@ module Forest.Client
import Brick import Brick
import Brick.BChan import Brick.BChan
import Brick.Widgets.Edit
import Control.Monad import Control.Monad
import Control.Monad.IO.Class import Control.Monad.IO.Class
import qualified Graphics.Vty as Vty import qualified Graphics.Vty as Vty
@ -128,6 +129,7 @@ clientAttrMap = attrMap Vty.defAttr
, ("focus", Vty.defAttr `Vty.withBackColor` Vty.blue) , ("focus", Vty.defAttr `Vty.withBackColor` Vty.blue)
, ("flags", Vty.defAttr `Vty.withForeColor` Vty.brightBlack) , ("flags", Vty.defAttr `Vty.withForeColor` Vty.brightBlack)
, (treeLineAttr, Vty.defAttr `Vty.withForeColor` Vty.brightBlack) , (treeLineAttr, Vty.defAttr `Vty.withForeColor` Vty.brightBlack)
, (editAttr, Vty.defAttr `Vty.withBackColor` Vty.brightBlack)
] ]
clientApp :: App ClientState Event ResourceName clientApp :: App ClientState Event ResourceName