[nongnu] elpa/telephone-line ab518000fd 2/2: Merge pull request #133 from gagbo/header-line

[ELPA Syncer]

branch: elpa/telephone-line
commit ab518000fdcd9a6600bcbf97f3ff028314465ddf
Merge: 6f3455a365 f1939248be
Author: Daniel Bordak <daniel.bordak@dbordak.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #133 from gagbo/header-line
    
    Add ability to target header-line
---
 telephone-line.el | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/telephone-line.el b/telephone-line.el
index 6ad8ccb841..876d27c3d6 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -166,6 +166,12 @@ Secondary separators do not incur a background color 
change."
   :group 'telephone-line
   :type 'symbol)
 
+(defcustom telephone-line-target 'mode-line
+  "The target line to display telephone-line."
+  :group 'telephone-line
+  :type '(choice (const :tag "Mode line" mode-line)
+                 (const :tag "Header line (Emacs 28+)" header-line)))
+
 (defun telephone-line-fill (reserve &optional face)
   "Return RESERVE empty space on the right, optionally with a FACE."
   (propertize " "
@@ -411,10 +417,12 @@ separators, as they are conditional, are evaluated 
on-the-fly."
   :group 'telephone-line
   :global t
   :lighter nil
-  (setq-default mode-line-format
-                (if telephone-line-mode
-                    `("%e" ,@(telephone-line--generate-mode-line))
-                  telephone-line--default-mode-line)))
+  (let ((line (if telephone-line-mode
+                          `("%e" ,@(telephone-line--generate-mode-line))
+                        telephone-line--default-mode-line)))
+    (if (eq telephone-line-target 'mode-line)
+          (setq-default mode-line-format line)
+        (setq-default header-line-format line))))
 
 (provide 'telephone-line)
 ;;; telephone-line.el ends here