Garmelon/forest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Joscha 2020-03-14 00:04:37 +00:00
parent d58f1e4fef
commit 0edc241149
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Forest/Client.hs
View file

@ -8,6 +8,7 @@ module Forest.Client
import Brick
import Brick.BChan
import Brick.Widgets.Edit
import Control.Monad
import Control.Monad.IO.Class
import qualified Graphics.Vty as Vty
@ -118,7 +119,7 @@ clientHandleEvent cs (VtyEvent ev)
| isEditorActive (csUiState cs) = onKeyWithEditor cs ev
| otherwise = onKeyWithoutEditor cs ev
clientHandleEvent cs (AppEvent ev) = case ev of
EventNode node -> onUiState cs $ replaceRootNode node
EventNode node -> onUiState cs $ replaceRootNode node
EventConnectionClosed -> halt cs
clientHandleEvent cs _ = continue cs
@ -128,6 +129,7 @@ clientAttrMap = attrMap Vty.defAttr
, ("focus", Vty.defAttr `Vty.withBackColor` Vty.blue)
, ("flags", 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