ui.gadgets.editors: adding Ctrl-o for insert-newline-after cursor.

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 3f19c39e39b409985c2e970188a0243d4e527b1a..36285120eb8618119bb125ae7ca03af776061a96 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -630,6 +630,9 @@ PRIVATE>
 : insert-newline ( editor -- )
     "\n" swap user-input* drop ;
 
+: insert-newline-after ( editor -- )
+    [ insert-newline ] [ previous-character ] bi ;
+
 : change-selection ( editor quot -- )
     '[ gadget-selection @ ] [ user-input* drop ] bi ; inline
 
@@ -684,6 +687,7 @@ multiline-editor "multiline" f {
     { T{ key-down f { S+ } "RET" } insert-newline }
     { T{ key-down f f "ENTER" } insert-newline }
     { T{ key-down f { S+ } "ENTER" } insert-newline }
+    { T{ key-down f { C+ } "o" } insert-newline-after }
     { T{ key-down f { C+ } "j" } com-join-lines }
 } define-command-map