^n and ^p in fields now moves caret to end

TODO.FACTOR.txt

@@ -8,7 +8,6 @@
 - editor:
   - better listener multi-line expression handling
   - history doesn't work in a good way if you ^K the input
-  - history: move caret to end
 - graphical module manager tool
 - services do not launch if factor not running
 - roundoff is still not quite right with tracks

library/ui/text/commands.factor

@@ -60,6 +60,10 @@ sequences ;
 
 : select-all ( editor -- ) T{ doc-elt } select-elt ;
 
+: editor-doc-start ( editor -- ) T{ doc-elt } editor-prev ;
+
+: editor-doc-end ( editor -- ) T{ doc-elt } editor-next ;
+
 editor H{
     { T{ key-down f f "RETURN" } [ "\n" swap user-input ] }
     { T{ key-down f { S+ } "RETURN" } [ "\n" swap user-input ] }
@@ -92,8 +96,8 @@ editor H{
     { T{ key-down f f "END" } [ T{ one-line-elt } editor-next ] }
     { T{ key-down f { S+ } "HOME" } [ T{ one-line-elt } editor-select-prev ] }
     { T{ key-down f { S+ } "END" } [ T{ one-line-elt } editor-select-next ] }
-    { T{ key-down f { C+ } "HOME" } [ T{ doc-elt } editor-prev ] }
-    { T{ key-down f { C+ } "END" } [ T{ doc-elt } editor-next ] }
+    { T{ key-down f { C+ } "HOME" } [ editor-doc-start ] }
+    { T{ key-down f { C+ } "END" } [ editor-doc-end ] }
     { T{ key-down f { C+ S+ } "HOME" } [ T{ doc-elt } editor-select-prev ] }
     { T{ key-down f { C+ S+ } "END" } [ T{ doc-elt } editor-select-next ] }
     { T{ key-down f f "DELETE" } [ T{ char-elt } editor-delete ] }

library/ui/text/field.factor

@@ -10,9 +10,9 @@ C: field ( model -- field )
     [ set-field-model ] keep
     dup dup set-control-self ;
 
-: field-prev control-model go-back ;
+: field-prev dup control-model go-back editor-doc-end ;
 
-: field-next control-model go-forward ;
+: field-next dup control-model go-forward editor-doc-end ;
 
 : field-commit ( field -- string )
     [ editor-text ] keep