v0.8.0: cl-tty input primitives, on-key keyword dispatch, XDG tangle paths, remove croatoan
- read-raw-byte: sb-unix:unix-read instead of read-char-no-hang - raw-mode: sb-posix:tcsetattr instead of stty - read-event: no probe-file /dev/stdin guard - on-key: accepts &key ctrl alt shift code - .asd: :croatoan dropped, :cl-tty added - script: detection fix (empty lisp/ -> XDG)
This commit is contained in:
@@ -34,7 +34,9 @@ Event handlers + daemon I/O + main loop.
|
||||
#+BEGIN_SRC lisp :tangle /home/user/.local/share/passepartout/lisp/channel-tui-main.lisp
|
||||
(in-package :passepartout.channel-tui)
|
||||
|
||||
(defun on-key (ch)
|
||||
(defun on-key (key &key ctrl alt shift code)
|
||||
(let ((ch key))
|
||||
(declare (ignore alt shift))
|
||||
(cond
|
||||
;; v0.7.1: Esc — interrupt streaming
|
||||
((and (or (eq ch :escape) (eql ch 27)) (st :streaming-text))
|
||||
@@ -563,7 +565,7 @@ Event handlers + daemon I/O + main loop.
|
||||
(setf (st :dirty) (list nil nil t))
|
||||
(when (and (char= chr #\/) (null (st :dialog-stack))
|
||||
(= (length (st :input-buffer)) 1))
|
||||
(unified-menu-show "/")))))))
|
||||
(unified-menu-show "/"))))))))
|
||||
|
||||
;; v0.9.0 — unified command minibuffer (replaces separate palette and slash menus)
|
||||
(defun unified-menu-show (&optional initial-filter)
|
||||
|
||||
Reference in New Issue
Block a user