Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement device status report function properly

Browse source 
* eat.el (eat--t-device-status-report): Implement properly.
Take an argument.
* eat.el (eat--t-handle-output): Update call to
'eat--t-device-status-report'.
This commit is contained in:
Akib Azmain Turja 2023-07-20 15:26:24 +06:00
parent e26cc22643
commit 1a52dc1dff
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
eat.el
View file

@ -1970,14 +1970,20 @@ to (1, 1). When N is 3, also erase the scrollback."
;; Restore point. ;; Restore point.
(goto-char pos))))))) (goto-char pos)))))))
(defun eat--t-device-status-report () (defun eat--t-device-status-report (n)
"Send the current Y and X coordinate to client." "Report device (terminal) status.
;; TODO: Is this really device status report function?
(let ((cursor (eat--t-disp-cursor If N is 5, send OK sequence. If N is 6, send the current Y and X
(eat--t-term-display eat--t-term)))) coordinate to client."
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term (pcase n
(format "\e[%i;%iR" (eat--t-cur-y cursor) (5
(eat--t-cur-x cursor))))) (funcall (eat--t-term-input-fn eat--t-term) eat--t-term "\e[0n"))
(6
(let ((cursor (eat--t-disp-cursor
(eat--t-term-display eat--t-term))))
(funcall (eat--t-term-input-fn eat--t-term) eat--t-term
(format "\e[%i;%iR" (eat--t-cur-y cursor)
(eat--t-cur-x cursor)))))))
(defun eat--t-set-cursor-state (state) (defun eat--t-set-cursor-state (state)
"Set cursor state to STATE. "Set cursor state to STATE.
@ -3218,8 +3224,8 @@ is the selection data encoded in base64."
(setq p (cdr p)))) (setq p (cdr p))))
(eat--t-set-sgr-params params)) (eat--t-set-sgr-params params))
;; CSI 6 n. ;; CSI 6 n.
('((?n) nil ((6))) (`((?n) nil ((,n)))
(eat--t-device-status-report)) (eat--t-device-status-report n))
;; CSI <n> SP q. ;; CSI <n> SP q.
(`((?q ?\ ) nil ((,n))) (`((?q ?\ ) nil ((,n)))
(eat--t-set-cursor-style n)) (eat--t-set-cursor-style n))