emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/telephone-line 01a2be2798 129/195: Fix right separators on


From: ELPA Syncer
Subject: [nongnu] elpa/telephone-line 01a2be2798 129/195: Fix right separators on console
Date: Wed, 5 Jan 2022 02:59:39 -0500 (EST)

branch: elpa/telephone-line
commit 01a2be2798850519873fe7abc59d715a978e6f20
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]