[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/coterm ba74fb8 10/80: Simplify
From: |
ELPA Syncer |
Subject: |
[elpa] externals/coterm ba74fb8 10/80: Simplify |
Date: |
Wed, 13 Oct 2021 18:57:26 -0400 (EDT) |
branch: externals/coterm
commit ba74fb86fc02661cb8283462ca8bdee65343e053
Author: m <>
Commit: m <>
Simplify
---
coterm.el | 49 +++++++++++++++++++++++--------------------------
1 file changed, 23 insertions(+), 26 deletions(-)
diff --git a/coterm.el b/coterm.el
index 46a5ff5..897d94b 100644
--- a/coterm.el
+++ b/coterm.el
@@ -334,45 +334,42 @@ initialize it sensibly."
(char
(setq ctl-params (mapcar #'string-to-number
(split-string ctl-params ";")))
+ (ins)
(pcase char
- (?H (ins) ;; cursor motion (terminfo: cup,home)
- (setq coterm--t-row
- (1- (max 1 (min (or (nth 0 ctl-params) 0)
coterm-t-height))))
- (setq coterm--t-col
- (1- (max 1 (min (or (nth 1 ctl-params) 0)
coterm-t-width))))
- (dirty))
- (?A (ins) ;; cursor up (terminfo: cuu, cuu1)
- (cl-decf coterm--t-row (car ctl-params))
- (setq coterm--t-row (max coterm--t-row 0))
- (dirty))
- (?B (ins) ;; cursor down (terminfo: cud)
- (cl-incf coterm--t-row (car ctl-params))
- (setq coterm--t-row (min coterm--t-row (1-
coterm-t-height)))
- (dirty))
- (?C (ins) ;; \E[C - cursor right (terminfo: cuf, cuf1)
- (cl-incf coterm--t-col (car ctl-params))
- (setq coterm--t-col (min coterm--t-col (1-
coterm-t-width)))
- (dirty))
- (?D (ins) ;; \E[D - cursor left (terminfo: cub)
- (cl-decf coterm--t-col (car ctl-params))
- (setq coterm--t-col (max coterm--t-col 0))
- (dirty))
+ (?H ;; cursor motion (terminfo: cup,home)
+ (setq coterm--t-row
+ (1- (max 1 (min (or (nth 0 ctl-params) 0)
coterm-t-height))))
+ (setq coterm--t-col
+ (1- (max 1 (min (or (nth 1 ctl-params) 0)
coterm-t-width))))
+ (dirty))
+ (?A ;; cursor up (terminfo: cuu, cuu1)
+ (cl-decf coterm--t-row (car ctl-params))
+ (setq coterm--t-row (max coterm--t-row 0))
+ (dirty))
+ (?B ;; cursor down (terminfo: cud)
+ (cl-incf coterm--t-row (car ctl-params))
+ (setq coterm--t-row (min coterm--t-row (1-
coterm-t-height)))
+ (dirty))
+ (?C ;; \E[C - cursor right (terminfo: cuf, cuf1)
+ (cl-incf coterm--t-col (car ctl-params))
+ (setq coterm--t-col (min coterm--t-col (1-
coterm-t-width)))
+ (dirty))
+ (?D ;; \E[D - cursor left (terminfo: cub)
+ (cl-decf coterm--t-col (car ctl-params))
+ (setq coterm--t-col (max coterm--t-col 0))
+ (dirty))
;; \E[J - clear to end of screen (terminfo: ed, clear)
((and ?J (guard (eq 0 (car ctl-params))))
- (ins)
(delete-region (coterm--t-point coterm--t-row
coterm--t-col)
(point-max))
(dirty))
((and ?J (guard (eq 1 (car ctl-params))))
- (ins)
(coterm--t-clear-region
proc-filt process 0 0 coterm--t-row coterm--t-col))
(?J
- (ins)
(delete-region (coterm--t-point 0 0) (point-max))
(dirty))
(?K ;; \E[K - clear to end of line (terminfo: el, el1)
- (ins)
(coterm--t-clear-region
proc-filt process
coterm--t-row coterm--t-col
- [elpa] branch externals/coterm created (now da8019b), ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ff83d09 03/80: Handle \e[1K, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 9e3e19b 05/80: Add support for \e[L, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm aa4a7f9 08/80: Support \e[M, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 29ef3ad 07/80: Fix scrolling, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm ba74fb8 10/80: Simplify,
ELPA Syncer <=
- [elpa] externals/coterm f1cc63e 12/80: Support \e[6n for reporting cursor position, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm cfc9f03 13/80: Fix some escape params defaulting to 1, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm cf9217d 09/80: Support \e[P and \e[@, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm e22fe83 17/80: Adjust column after resizing window, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 586ce4e 20/80: Delete off-screen rows when scrolling up, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 7b1e001 01/80: Initial commit, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm a983b5e 02/80: New function for approximately moving pmark, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 0647615 04/80: Plug marker leak, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 044b03e 06/80: Simplify, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm c48515c 11/80: Support \e[4h and \e[4l for insert mode, ELPA Syncer, 2021/10/13