steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools.listener: change previous/next line to multiline-editor.

master
John Benediktsson 2020-06-06 16:47:30 -07:00
parent 02386eebcc
commit 35681032d9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/tools/listener/listener-docs.factor
View File

@ -73,14 +73,17 @@ ui.gadgets.editors ui.gestures ui.tools.listener ;
editor \"emacs\" f { editor \"emacs\" f {
{ T{ key-down f { C+ } \"b\" } previous-character } { T{ key-down f { C+ } \"b\" } previous-character }
{ T{ key-down f { C+ } \"f\" } next-character } { T{ key-down f { C+ } \"f\" } next-character }
{ T{ key-down f { C+ } \"p\" } previous-line }
{ T{ key-down f { C+ } \"n\" } next-line }
{ T{ key-down f { C+ } \"u\" } delete-to-start-of-line } { T{ key-down f { C+ } \"u\" } delete-to-start-of-line }
{ T{ key-down f { C+ } \"k\" } delete-to-end-of-line } { T{ key-down f { C+ } \"k\" } delete-to-end-of-line }
{ T{ key-down f { C+ } \"a\" } start-of-line } { T{ key-down f { C+ } \"a\" } start-of-line }
{ T{ key-down f { C+ } \"e\" } end-of-line } { T{ key-down f { C+ } \"e\" } end-of-line }
} define-command-map } define-command-map
multiline-editor \"emacs\" f {
{ T{ key-down f { C+ } \"p\" } previous-line }
{ T{ key-down f { C+ } \"n\" } next-line }
} define-command-map
\"interactor\" interactor get-command-at [ \"interactor\" interactor get-command-at [
[ drop T{ key-down f { C+ } \"k\" } = ] assoc-reject [ drop T{ key-down f { C+ } \"k\" } = ] assoc-reject
] change-commands drop interactor update-gestures" ] change-commands drop interactor update-gestures"