[client] Adjust editor to look like web client text boxes
This commit is contained in:
parent
d58f1e4fef
commit
0edc241149
1 changed files with 3 additions and 1 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue