[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/coterm 952b917 52/80: Better indication of current char
From: |
ELPA Syncer |
Subject: |
[elpa] externals/coterm 952b917 52/80: Better indication of current char-mode status |
Date: |
Wed, 13 Oct 2021 18:57:35 -0400 (EDT) |
branch: externals/coterm
commit 952b91764699d740f0c1bdc7a95e3eb85dce7908
Author: m <>
Commit: m <>
Better indication of current char-mode status
---
coterm.el | 18 +++++++++++++-----
1 file changed, 13 insertions(+), 5 deletions(-)
diff --git a/coterm.el b/coterm.el
index 36f8c79..49a54af 100644
--- a/coterm.el
+++ b/coterm.el
@@ -103,7 +103,7 @@ active, which inherits from `term-raw-map'. In this map,
each
character is sent to the process, except for the escape
character (usually C-c). You can set `term-escape-char' to
customize it."
- :lighter " CHAR")
+ :lighter "")
(defvar coterm--char-old-scroll-margin nil)
@@ -171,14 +171,13 @@ If it is disabled, enable `coterm-auto-char-mode'."
(interactive)
(cond
(coterm-auto-char-mode
- ;; Interactively to show the message.
- (funcall-interactively #'coterm-auto-char-mode -1)
+ (coterm-auto-char-mode -1)
(coterm-char-mode 1)
(coterm-scroll-snap-mode 1))
(coterm-char-mode
(coterm-char-mode -1)
(coterm-scroll-snap-mode -1))
- (t (funcall-interactively #'coterm-auto-char-mode 1))))
+ (t (coterm-auto-char-mode 1))))
;;;; Automatic entry to char mode
@@ -186,7 +185,7 @@ If it is disabled, enable `coterm-auto-char-mode'."
"Whether we should enter or leave char mode automatically.
If enabled, `coterm-auto-char-functions' are consulted to set
`coterm-char-mode' and `coterm-scroll-snap-mode' automatically."
- :global nil
+ :lighter ""
(if coterm-auto-char-mode
(progn
(add-hook 'coterm-t-after-insert-hook #'coterm--auto-char nil t)
@@ -195,6 +194,14 @@ If enabled, `coterm-auto-char-functions' are consulted to
set
(remove-hook 'coterm-t-after-insert-hook #'coterm--auto-char t)
(remove-hook 'post-command-hook #'coterm--auto-char t)))
+(defvar coterm-auto-char-lighter-mode-format
+ '(coterm-char-mode (coterm-auto-char-mode " AChar" " Char")
+ (coterm-auto-char-mode "" " Line")))
+
+(define-minor-mode coterm-auto-char-lighter-mode
+ "Show current char mode status in modeline."
+ :lighter coterm-auto-char-lighter-mode-format)
+
(defvar coterm-auto-char-functions
(list #'coterm--auto-char-less-prompt
#'coterm--auto-char-mpv-prompt
@@ -397,6 +404,7 @@ In sync with variables `coterm--t-home-marker',
(setq-local comint-inhibit-carriage-motion t)
(add-hook 'comint-output-filter-functions #'coterm--comint-strip-CR nil t)
(coterm-auto-char-mode)
+ (coterm-auto-char-lighter-mode)
(add-function :filter-return
(local 'window-adjust-process-window-size-function)
- [elpa] externals/coterm c52f413 67/80: Keep char mode in less after pressing a digit, (continued)
- [elpa] externals/coterm c52f413 67/80: Keep char mode in less after pressing a digit, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm c717c84 75/80: Bind inhibit-read-only to t for terminal emulation, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 570ae6d 74/80: Mention auto char mode as a difference from term.el, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm c825746 27/80: Fix issue with ansi-color context marker, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 73aa1f3 31/80: Properly handle OSC and Emacs specific escape sequences, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm f4f69ab 32/80: Export TERMINFO environment variable, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 654e286 49/80: Fix mistake in turning mode off, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm fd4041e 58/80: Remove redundant "(dirty)", ELPA Syncer, 2021/10/13
- [elpa] externals/coterm edfdbb7 50/80: Ignore sequences \e= end \e> (output by mpv), ELPA Syncer, 2021/10/13
- [elpa] externals/coterm e534194 60/80: Fix buffer-locality of saved scroll-margin, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 952b917 52/80: Better indication of current char-mode status,
ELPA Syncer <=
- [elpa] externals/coterm bfcd5e4 63/80: Properly indicate that pmark is synchronized, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 96a636e 64/80: Protect user input at EOB more accurately, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm bd7c681 73/80: Further document the "less" line-wrap workaround, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm e0a38cc 53/80: Add more documentation for auto char mode, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 10205c8 66/80: Improve README, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 7941200 61/80: Describe package, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm e268359 59/80: Account for home marker reposition when clearing screen, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 8a5ffd9 68/80: Fix 'coterm--t-goto' for column zero, ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 11a9594 78/80: [auto-char] Detect prompts from "less -M", ELPA Syncer, 2021/10/13
- [elpa] externals/coterm 8ca9291 71/80: Minor fixes to description, ELPA Syncer, 2021/10/13