mirrors/cosmopolitan
1
0
Fork 0
mirror of https://github.com/jart/cosmopolitan.git synced 2025-05-29 00:32:29 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

bestline keybindings and redbean definitions (#678)

Browse source 
* Add ctrl-left/right keys to bestline
* Update redbean API definitions
This commit is contained in:
Danny Robinson 2022-11-06 07:28:08 +00:00 • committed by GitHub
parent 3f0bcdc3ef
commit 543c93f623
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
third_party/linenoise/linenoise.c vendored
View file

@ -47,6 +47,8 @@
│ ALT-> END OF HISTORY │ │ ALT-> END OF HISTORY │
│ ALT-F FORWARD WORD │ │ ALT-F FORWARD WORD │
│ ALT-B BACKWARD WORD │ │ ALT-B BACKWARD WORD │
│ CTRL-RIGHT FORWARD WORD │
│ CTRL-LEFT BACKWARD WORD │
│ CTRL-ALT-F FORWARD EXPR │ │ CTRL-ALT-F FORWARD EXPR │
│ CTRL-ALT-B BACKWARD EXPR │ │ CTRL-ALT-B BACKWARD EXPR │
│ ALT-RIGHT FORWARD EXPR │ │ ALT-RIGHT FORWARD EXPR │
@ -2173,6 +2175,14 @@ ssize_t linenoiseEdit(struct linenoiseState *l, const char *prompt, char **obuf,
default: default:
break; break;
} }
} else if (rc == 6 && seq[2] == '1' &&
seq[3] == ';' && seq[4] == '5') {
switch (seq[5]) {
CASE('C', linenoiseEditRightWord(l)); // \e[1;5C ctrl-right
CASE('D', linenoiseEditLeftWord(l)); // \e[1;5D ctrl-left
default:
break;
}
} }
} else { } else {
switch (seq[2]) { switch (seq[2]) {

8
tool/net/definitions.lua
View file

@ -108,6 +108,8 @@ KEYBOARD
ALT-> END OF HISTORY ALT-> END OF HISTORY
ALT-F FORWARD WORD ALT-F FORWARD WORD
ALT-B BACKWARD WORD ALT-B BACKWARD WORD
CTRL-RIGHT FORWARD WORD
CTRL-LEFT BACKWARD WORD
CTRL-K KILL LINE FORWARDS CTRL-K KILL LINE FORWARDS
CTRL-U KILL LINE BACKWARDS CTRL-U KILL LINE BACKWARDS
ALT-H KILL WORD BACKWARDS ALT-H KILL WORD BACKWARDS
@ -7116,6 +7118,12 @@ kLogError = nil
---Logging anything at this level will result in a backtrace and process exit. ---Logging anything at this level will result in a backtrace and process exit.
kLogFatal = nil kLogFatal = nil
---@type integer turn `+` into space. See `ParseUrl`.
kUrlPlus = nil
---@type integer to transcode ISO-8859-1 input into UTF-8. See `ParseUrl`.
kUrlLatin1 = nil
--[[ --[[
──────────────────────────────────────────────────────────────────────────────── ────────────────────────────────────────────────────────────────────────────────
LEGAL LEGAL

2
tool/net/help.txt
View file

@ -102,6 +102,8 @@ KEYBOARD
ALT-> END OF HISTORY ALT-> END OF HISTORY
ALT-F FORWARD WORD ALT-F FORWARD WORD
ALT-B BACKWARD WORD ALT-B BACKWARD WORD
CTRL-RIGHT FORWARD WORD
CTRL-LEFT BACKWARD WORD
CTRL-K KILL LINE FORWARDS CTRL-K KILL LINE FORWARDS
CTRL-U KILL LINE BACKWARDS CTRL-U KILL LINE BACKWARDS
ALT-H KILL WORD BACKWARDS ALT-H KILL WORD BACKWARDS