-"The text editing commands are standard; see " { $link "gadgets-editors-commands" } "."
-$nl
-"If you want to add support for Emacs-style text entry, specifically the following:"
-$nl
-{ $table
- { "Ctrl-k" "Delete to end of line" }
- { "Ctrl-a" "Move cursor to start of line" }
- { "Ctrl-e" "Move cursor to end of line" }
-}
-$nl
-"Then you can run the following code, or add it to your " { $link ".factor-rc" } "."
-$nl
-{ $code
- "USING: accessors assocs kernel sequences sets ui.commands
-ui.gadgets.editors ui.gestures ui.tools.listener ;
-
-\"multiline\" multiline-editor get-command-at [
- {
- { 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+ } \"e\" } end-of-line }
- } append members
-] change-commands drop multiline-editor update-gestures
-
-\"interactor\" interactor get-command-at [
- [ drop T{ key-down f { C+ } \"k\" } = ] assoc-reject
-] change-commands drop interactor update-gestures"
-}
-$nl