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

[client] Fix initial editor contents

Browse source
This commit is contained in:
Joscha 2020-02-19 23:37:36 +00:00
parent 385ec894ef
commit 1fd476e585
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Forest/Client/UiState.hs
View file

@ -26,12 +26,11 @@ module Forest.Client.UiState
, renderUiState , renderUiState
) where ) where
import qualified Graphics.Vty as Vty
import Brick import Brick
import Control.Monad
import Data.Maybe import Data.Maybe
import qualified Data.Set as Set import qualified Data.Set as Set
import qualified Data.Text as T import qualified Data.Text as T
import qualified Graphics.Vty as Vty
import Forest.Client.NodeEditor import Forest.Client.NodeEditor
import Forest.Client.NodeUtil import Forest.Client.NodeUtil
@ -130,7 +129,7 @@ foldAtFocus s =
editNode :: Bool -> Path -> UiState n -> UiState n editNode :: Bool -> Path -> UiState n -> UiState n
editNode reply path s = editNode reply path s =
let text = maybe "" nodeText $ applyPath path $ uiRootNode s let text = if reply then "" else nodeText $ getFocusedNode s
editorInfo = EditorInfo editorInfo = EditorInfo
{ eiEditor = beginEdit (uiEditorName s) text { eiEditor = beginEdit (uiEditorName s) text
, eiPath = path , eiPath = path