[nongnu] elpa/telephone-line c4cab5a5dc 150/195: Merge branch 'master' of github.com:dbordak/telephone-line

[ELPA Syncer]

branch: elpa/telephone-line
commit c4cab5a5dcaa577f7b92c14220c39b4db07dfa37
Merge: aa746faab1 1cc28a7811
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Merge branch 'master' of github.com:dbordak/telephone-line
---
 telephone-line-segments.el | 39 +++++++++++++++++++++++++++++++++++++++
 telephone-line-utils.el    | 10 ++++++++--
 2 files changed, 47 insertions(+), 2 deletions(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index 8750b2e01a..398a30573f 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -120,6 +120,45 @@ mouse-3: Toggle minor modes"
                              'mouse-2 #'mode-line-widen)
                  face ,face)))
 
+(defun telephone-line--hud-axis-func (y)
+  (let* ((height (or telephone-line-height (frame-char-height)))
+         (start (floor (* height (float (window-start))) (point-max)))
+         (end (ceiling (* height (float (window-end))) (point-max))))
+    (if (<= start y end) 1 0)))
+
+(defclass telephone-line--hud (telephone-line-separator)
+  ((axis-func :initarg :axis-func :initform #'telephone-line--hud-axis-func)
+   (axis-init :initarg :axis-init
+              :initform (lambda (height) (number-sequence 0 (- height 1))))
+   (pattern-func :initarg :pattern-func :initform 
#'telephone-line-row-pattern-binary)
+   (image-cache :initform (make-hash-table :test 'equal :size 100))))
+
+(cl-defmethod telephone-line-separator-render-image ((obj telephone-line--hud) 
foreground background)
+  "Find cached pbm of OBJ in FOREGROUND and BACKGROUND.
+If it doesn't exist, create and cache it."
+  (let* ((height (or telephone-line-height (frame-char-height)))
+         (start (floor (* height (float (window-start))) (point-max)))
+         (end (ceiling (* height (float (window-end))) (point-max)))
+         (hash-key (format "%s_%s_%d_%d" background foreground start end)))
+    ;; Return cached image if we have it.
+    (or (gethash hash-key (oref obj image-cache))
+        (puthash hash-key
+                 (telephone-line-propertize-image
+                  (telephone-line--create-pbm-image
+                   (telephone-line-separator-create-body obj)
+                   background foreground))
+                 (oref obj image-cache)))))
+
+(defvar telephone-line-hud (make-instance 'telephone-line--hud))
+
+(telephone-line-defsegment telephone-line-hud-segment ()
+  (let ((fg (face-attribute face :foreground)))
+    (telephone-line-separator-render telephone-line-hud
+                                     (if (eq fg 'unspecified)
+                                         (face-attribute 'default :foreground)
+                                       fg)
+                                     face)))
+
 (telephone-line-defsegment telephone-line-erc-modified-channels-segment ()
   (when (boundp 'erc-modified-channels-object)
     (string-trim erc-modified-channels-object)))
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 2422b1b6dc..f7fed7c5db 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -114,7 +114,7 @@ color1 and color2."
 
 (defun telephone-line-propertize-image (image)
   "Return a propertized string of IMAGE."
-  (propertize (make-string (ceiling (car (image-size image))) ? )
+  (propertize (make-string (ceiling (car (image-size image))) ?|)
               'display image))
 
 (defun telephone-line-row-pattern (fill total)
@@ -137,6 +137,11 @@ color1 and color2."
        (cons (- 1 rem)  ;Right AA pixel
              (make-list (- total intpadding 2) 1)))))) ;Right gap
 
+(defun telephone-line-row-pattern-binary (fill total)
+  (if (= fill 0)
+      (make-list total 0)
+    (make-list total 1)))
+
 (defmacro telephone-line-complement (func)
   "Return a function which is the complement of FUNC."
   `(lambda (x)
@@ -148,6 +153,7 @@ color1 and color2."
 
 (defclass telephone-line-separator ()
   ((axis-func :initarg :axis-func)
+   (axis-init :initarg :axis-init :initform #'telephone-line-create-trig-axis)
    (pattern-func :initarg :pattern-func :initform #'telephone-line-row-pattern)
    (forced-width :initarg :forced-width :initform nil)
    (alt-separator :initarg :alt-separator)
@@ -178,7 +184,7 @@ color1 and color2."
          (width (telephone-line-separator-width obj))
          (normalized-axis (telephone-line--normalize-axis
                            (mapcar (oref obj axis-func)
-                                   (telephone-line-create-trig-axis height))))
+                                   (funcall (oref obj axis-init) height))))
          (range (seq-max normalized-axis))
          (scaling-factor (/ (1- width)(float range))))
     (mapcar (lambda (x)