branch: elpa/telephone-line
commit 01a2be2798850519873fe7abc59d715a978e6f20
Author: Daniel Bordak <dbor...@fastmail.fm>
Commit: Daniel Bordak <dbor...@fastmail.fm>
Fix right separators on console
---
telephone-line-separators.el | 3 ++-
telephone-line-utils.el | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/telephone-line-separators.el b/telephone-line-separators.el
index fb82b0a05c..a7829ea41e 100644
--- a/telephone-line-separators.el
+++ b/telephone-line-separators.el
@@ -49,7 +49,8 @@
(defvar telephone-line-abs-right
(make-instance 'telephone-line-separator
:axis-func #'abs
- :alt-char #xe0b2))
+ :alt-char #xe0b2
+ :inverse-video nil))
(defvar telephone-line-abs-left
(make-instance 'telephone-line-separator
:axis-func (telephone-line-complement abs)
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index ca57b807b0..7c631bfaa9 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -147,6 +147,7 @@ color1 and color2."
(pattern-func :initarg :pattern-func :initform #'telephone-line-row-pattern)
(forced-width :initarg :forced-width :initform nil)
(alt-char :initarg :alt-char)
+ (inverse-video :initarg :inverse-video :initform t)
(image-cache :initform (make-hash-table :test 'equal :size 10))))
(cl-defmethod telephone-line-separator-height ((obj telephone-line-separator))
@@ -218,7 +219,7 @@ If it doesn't exist, create and cache it."
(list :propertize (char-to-string (oref obj alt-char))
'face (list :foreground foreground
:background background
- :inverse-video t)))
+ :inverse-video (oref obj inverse-video))))
(cl-defmethod telephone-line-separator-render ((obj telephone-line-separator)
foreground background)
(let ((fg-color (telephone-line-separator--arg-handler foreground))
