[elpa] externals/coterm ff83d09 03/80: Handle \e[1K

[ELPA Syncer]

branch: externals/coterm
commit ff83d09d1a89fd156906b039500d5aef2ca76cbd
Author: m <>
Commit: m <>

    Handle \e[1K
---
 coterm.el | 52 ++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 38 insertions(+), 14 deletions(-)

diff --git a/coterm.el b/coterm.el
index 3437776..87f10cd 100644
--- a/coterm.el
+++ b/coterm.el
@@ -310,22 +310,46 @@ initialize it sensibly."
                              (cl-decf coterm--t-col (car ctl-params))
                              (setq coterm--t-col (max coterm--t-col 0))
                              (dirty))
-                         (?J ;; \E[J - clear to end of screen (terminfo: ed, 
clear)
+                         ;; \E[J - clear to end of screen (terminfo: ed, clear)
+                         ((and ?J (guard (eq 0 (car ctl-params))))
                           (ins)
                           (coterm--t-approximate-pmark pmark)
-                          (pcase (car ctl-params)
-                            (0
-                             (delete-region pmark (point-max)))
-                            (1 (coterm--t-normalize-home-offset)
-                               (delete-region coterm--t-home-marker pmark)
-                               (unless (= pmark (point-max))
-                                 ;; Substitute deleted region with empty lines
-                                 (funcall proc-filt process
-                                          (concat (make-string coterm--t-row 
?\n)
-                                                  (make-string coterm--t-col 
?\s)))))
-                            (_ (coterm--t-normalize-home-offset)
-                               (delete-region coterm--t-home-marker 
(point-max))))
-                          (dirty))))))))))
+                          (delete-region pmark (point-max))
+                          (dirty))
+                         ((and ?J (guard (eq 1 (car ctl-params))))
+                          (ins)
+                          (coterm--t-approximate-pmark pmark)
+                          (coterm--t-normalize-home-offset)
+                          (delete-region coterm--t-home-marker pmark)
+                          (if (= pmark (point-max))
+                              (dirty)
+                            ;; Substitute deleted region with empty lines
+                            (funcall proc-filt process
+                                     (concat (make-string coterm--t-row ?\n)
+                                             (unless (eq (char-after pmark) 
?\n)
+                                               (make-string coterm--t-col 
?\s))))))
+                         (?J
+                          (ins)
+                          (coterm--t-normalize-home-offset)
+                          (delete-region coterm--t-home-marker (point-max))
+                          (dirty))
+                         (?K ;; \E[K - clear to end of line (terminfo: el, el1)
+                          (ins)
+                          (coterm--t-approximate-pmark pmark)
+                          (save-excursion
+                            (goto-char pmark)
+                            (if (eq 1 (car ctl-params))
+                                ;; Clear left of pmark
+                                (forward-line 0)
+                              ;; Clear right of pmark
+                              (forward-line 1)
+                              (unless (eobp)
+                                (backward-char)))
+                            (delete-region (point) pmark)
+                            (if (eolp)
+                                (if (eq 1 (car ctl-params)) (dirty))
+                              (funcall proc-filt process
+                                       (make-string coterm--t-col 
?\s)))))))))))))
 
             (cond
              ((setq match (string-match coterm-t-control-seq-prefix-regexp