From 78553af55c244d6d68b1498cca1a4ab613745780 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 17 Dec 2014 16:29:58 -0500 Subject: [PATCH] st, http://st.suckless.org/ --- ansi/lcd-terminal.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/ansi/lcd-terminal.rkt b/ansi/lcd-terminal.rkt index b3bc4d0..a8891ee 100644 --- a/ansi/lcd-terminal.rkt +++ b/ansi/lcd-terminal.rkt @@ -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))]))