From 817b0a34c4548094a17de2644e46b7b9cfad7629 Mon Sep 17 00:00:00 2001
From: Joscha <joscha@plugh.de>
Date: Sun, 9 Feb 2020 21:20:52 +0000
Subject: [PATCH] Make editor always start at the end of the first line

---
 package.yaml                    | 1 +
 src/Forest/Client/NodeEditor.hs | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/package.yaml b/package.yaml
index 06bfa4a..529a2cd 100644
--- a/package.yaml
+++ b/package.yaml
@@ -19,6 +19,7 @@ dependencies:
 - brick
 - containers
 - text
+- text-zipper
 - transformers
 - vty
 - websockets
diff --git a/src/Forest/Client/NodeEditor.hs b/src/Forest/Client/NodeEditor.hs
index 80e32a2..2e35b2c 100644
--- a/src/Forest/Client/NodeEditor.hs
+++ b/src/Forest/Client/NodeEditor.hs
@@ -12,6 +12,7 @@ module Forest.Client.NodeEditor
 import           Brick
 import           Brick.Widgets.Edit
 import qualified Data.Text                  as T
+import           Data.Text.Zipper
 import qualified Graphics.Vty               as Vty
 
 import           Forest.Client.ResourceName
@@ -26,7 +27,7 @@ asReply = neReply
 
 editNode :: T.Text -> NodeEditor
 editNode text = NodeEditor
-  { neEditor = editorText RnEditor (Just 1) text
+  { neEditor = applyEdit gotoEOL $ editorText RnEditor (Just 1) text
   , neReply = False
   }