misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

st, http://st.suckless.org/

This commit is contained in:
Tony Garnock-Jones 2014-12-17 16:29:58 -05:00
parent 780cc2e9e8
commit 78553af55c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ansi/lcd-terminal.rkt
View File

@ -79,11 +79,19 @@
["F" (decode-shifting params 'end)]
["G" (decode-shifting params 'begin)] ;; linux console (!)
["H" (decode-shifting params 'home)]
["J" #:when (equal? params '(2)) (S- 'home)] ;; st, http://st.suckless.org/
["J" #:when (not params) (C- 'end)] ;; st, http://st.suckless.org/
["K" #:when (equal? params '(2)) (S- 'delete)] ;; st, http://st.suckless.org/
["K" #:when (not params) (S- 'end)] ;; st, http://st.suckless.org/
["L" (C- 'insert)] ;; st, http://st.suckless.org/
["M" (C- 'delete)] ;; st, http://st.suckless.org/
["P" (simple-key 'delete)] ;; st, http://st.suckless.org/
["Z" (C-S- #\I)] ;; TODO: should this instead be a 'backtab key?
["a" (S- 'up)]
["b" (S- 'down)]
["c" (S- 'right)]
["d" (S- 'left)]
["h" #:when (equal? params '(4)) (simple-key 'insert)] ;; st, http://st.suckless.org/
[_ (simple-key (unknown-escape-sequence lexeme))])]
[_ (simple-key (unknown-escape-sequence lexeme))]))