amr/cl-tty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add save-theme/load-theme persistence

Browse Source
This commit is contained in:
Amr Gharbeia
2026-05-20 12:34:16 -04:00
parent 4e0b825fcc
commit 4e54737659
2 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
org/text-input.org
View File

@@ -408,9 +408,10 @@ sequences where modifiers appear in a non-standard position.
#+BEGIN_SRC lisp :tangle ~/.local/share/cl-tty/src/components/input.lisp
(defun parse-csi-params (params terminator extended)
(let* ((key (if (find terminator '(#\~ #\u))
(let* ((terminator-char (code-char terminator))
(key (if (and terminator-char (find terminator-char '(#\~ #\u)))
(cdr (assoc (first params) *csi-tilde-table*))
(cdr (assoc terminator *csi-key-table*))))
(cdr (assoc terminator-char *csi-key-table*))))
(modifier (when (and (> (length params) 1) (not (find terminator '(#\~ #\u))))
(second params)))
(actual-modifier (when (> (length extended) 1) (second extended)))
@@ -642,9 +643,9 @@ to ~parse-csi-params~ for modifier extraction.
(setf (fill-pointer extended) (length p))
(replace extended p))
r)
;; Non-digit branch: b2 is a direct CSI terminator
(progn (vector-push-extend b2 extended)
(multiple-value-list (read-param (lambda () (read-raw-byte))))))))
;; Non-digit branch: b2 is a direct CSI terminator
(progn (vector-push-extend b2 extended)
(list nil b2)))))
(let ((params (first parsed))
(terminator (or (second parsed) 0)))
(parse-csi-params (or params '()) terminator extended)))))))