Revert "ui: better support for Emacs-style key bindings."

[factor.git] / basis / ui / tools / listener / listener-docs.factor

diff --git a/basis/ui/tools/listener/listener-docs.factor b/basis/ui/tools/listener/listener-docs.factor
index 22db983c1e2badd9ba24b5e96cb613caafc37f2f..6983c0490d65abae9eb7ec7d85576bf2aadf2c61 100644 (file)
--- a/basis/ui/tools/listener/listener-docs.factor
+++ b/basis/ui/tools/listener/listener-docs.factor
@@ -49,7 +49,35 @@ $nl
 { $operations T{ vocab-link f "kernel" } }
 { $command-map interactor "quotation" }
 { $heading "Editing commands" }
-"The text editing commands are standard and follow Emacs-style text entry; see " { $link "gadgets-editors-commands" } "."
+"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
 { $heading "Implementation" }
 "Listeners are instances of " { $link listener-gadget } ". The listener consists of an output area (instance of " { $link pane } ") and an input area (instance of " { $link interactor } "). Clickable presentations can also be printed to the listener; see " { $link "ui-presentations" } "." ;