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.
(goto-char pos)))))))
(defun eat--t-device-status-report ()
"Send the current Y and X coordinate to client."
;; TODO: Is this really device status report function?
(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-device-status-report (n)
"Report device (terminal) status.
If N is 5, send OK sequence. If N is 6, send the current Y and X
coordinate to client."
(pcase n
(5
(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)
"Set cursor state to STATE.
@ -3218,8 +3224,8 @@ is the selection data encoded in base64."
(setq p (cdr p))))
(eat--t-set-sgr-params params))
;; CSI 6 n.
('((?n) nil ((6)))
(eat--t-device-status-report))
(`((?n) nil ((,n)))
(eat--t-device-status-report n))
;; CSI <n> SP q.
(`((?q ?\ ) nil ((,n)))
(eat--t-set-cursor-style n))