branch: elpa/telephone-line
commit cce570e5817485ac5f9fc5b19228124626cfcc03
Author: Gerry Agbobada <[email protected]>
Commit: GitHub <[email protected]>
Provide TUI fallback for all separators
The fallback mechanism for TUI uses `:alt-separator`, but most of the
provided separators lack the attribute.
This allows the modeline to still be displayed in TUI if one of the package
provided separators is used.
---
telephone-line-separators.el | 108 ++++++++++++++++++++++++++++++++-----------
1 file changed, 80 insertions(+), 28 deletions(-)
diff --git a/telephone-line-separators.el b/telephone-line-separators.el
index e75df219f7..e797924502 100644
--- a/telephone-line-separators.el
+++ b/telephone-line-separators.el
@@ -79,70 +79,122 @@
(defvar telephone-line-cubed-right
(make-instance 'telephone-line-separator
- :axis-func (lambda (x) (expt x 3))))
+ :axis-func (lambda (x) (expt x 3))
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-cubed-left
(make-instance 'telephone-line-separator
- :axis-func (lambda (x) (- (expt x 3)))))
+ :axis-func (lambda (x) (- (expt x 3)))
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-cubed-hollow-right
(make-instance 'telephone-line-subseparator
- :axis-func (lambda (x) (expt x 3))))
+ :axis-func (lambda (x) (expt x 3))
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-cubed-hollow-left
(make-instance 'telephone-line-subseparator
- :axis-func (lambda (x) (- (expt x 3)))))
+ :axis-func (lambda (x) (- (expt x 3)))
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-sin-right
- (make-instance 'telephone-line-separator :axis-func
(telephone-line-complement sin)))
+ (make-instance 'telephone-line-separator
+ :axis-func (telephone-line-complement sin)
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-sin-left
- (make-instance 'telephone-line-separator :axis-func #'sin))
+ (make-instance 'telephone-line-separator
+ :axis-func #'sin
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-sin-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func
(telephone-line-complement sin)))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (telephone-line-complement sin)
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-sin-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func #'sin))
+ (make-instance 'telephone-line-subseparator
+ :axis-func #'sin
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-halfsin-right
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (sin (/ x
2))))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (- (sin (/ x 2))))
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-halfsin-left
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (sin (/ x
2)))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (sin (/ x 2)))
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-halfsin-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (sin
(/ x 2))))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (- (sin (/ x 2))))
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-halfsin-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (sin (/ x
2)))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (sin (/ x 2)))
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-cos-right
- (make-instance 'telephone-line-separator :axis-func
(telephone-line-complement cos)))
+ (make-instance 'telephone-line-separator
+ :axis-func (telephone-line-complement cos)
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-cos-left
- (make-instance 'telephone-line-separator :axis-func #'cos))
+ (make-instance 'telephone-line-separator
+ :axis-func #'cos
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-cos-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func
(telephone-line-complement cos)))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (telephone-line-complement cos)
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-cos-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func #'cos))
+ (make-instance 'telephone-line-subseparator
+ :axis-func #'cos
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-halfcos-right
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (cos (/ x
2))))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (- (cos (/ x 2))))
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-halfcos-left
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (cos (/ x
2)))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (cos (/ x 2)))
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-halfcos-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (cos
(/ x 2))))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (- (cos (/ x 2))))
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-halfcos-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (cos (/ x
2)))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (cos (/ x 2)))
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-tan-right
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (- (tan (/ x
2.2))))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (- (tan (/ x 2.2))))
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-tan-left
- (make-instance 'telephone-line-separator :axis-func (lambda (x) (tan (/ x
2.2)))))
+ (make-instance 'telephone-line-separator
+ :axis-func (lambda (x) (tan (/ x 2.2)))
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-tan-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (- (tan
(/ x 2.2))))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (- (tan (/ x 2.2))))
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-tan-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func (lambda (x) (tan (/ x
2.2)))))
+ (make-instance 'telephone-line-subseparator
+ :axis-func (lambda (x) (tan (/ x 2.2)))
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-identity-right
- (make-instance 'telephone-line-separator :axis-func #'identity))
+ (make-instance 'telephone-line-separator
+ :axis-func #'identity
+ :alt-separator telephone-line-utf-abs-right))
(defvar telephone-line-identity-left
- (make-instance 'telephone-line-separator :axis-func #'-))
+ (make-instance 'telephone-line-separator
+ :axis-func #'-
+ :alt-separator telephone-line-utf-abs-left))
(defvar telephone-line-identity-hollow-right
- (make-instance 'telephone-line-subseparator :axis-func #'identity))
+ (make-instance 'telephone-line-subseparator
+ :axis-func #'identity
+ :alt-separator telephone-line-utf-abs-hollow-right))
(defvar telephone-line-identity-hollow-left
- (make-instance 'telephone-line-subseparator :axis-func #'-))
+ (make-instance 'telephone-line-subseparator
+ :axis-func #'-
+ :alt-separator telephone-line-utf-abs-hollow-left))
(defvar telephone-line-nil
(make-instance 'telephone-line-nil-separator :forced-width 0))
