From 4e40935ab906323e3e4533940a3233bd4e1867e8 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 30 Mar 2021 20:36:13 -0700 Subject: [PATCH] ui.gadgets.editors: adding Ctrl-o for insert-newline-after cursor. --- basis/ui/gadgets/editors/editors.factor | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index 3f19c39e39..36285120eb 100644 --- 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 -- 2.34.1