From 2f3ba5d038eb1c65dbfb2a1cda3636aa80f6e448 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 13 Sep 2019 18:10:00 +0200 Subject: [PATCH] Added URL to header. --- elpher.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/elpher.el b/elpher.el index 9430f8c..9c0138b 100644 --- a/elpher.el +++ b/elpher.el @@ -4,7 +4,7 @@ ;; Author: Tim Vaughan ;; Created: 11 April 2019 -;; Version: 2.1.2 +;; Version: 2.2.0 ;; Keywords: comm gopher ;; Homepage: https://github.com/tgvaughan/elpher ;; Package-Requires: ((emacs "26")) @@ -65,7 +65,7 @@ ;;; Global constants ;; -(defconst elpher-version "2.1.2" +(defconst elpher-version "2.2.0" "Current version of elpher.") (defconst elpher-margin-width 6 @@ -424,7 +424,12 @@ unless PRESERVE-PARENT is non-nil." (defun elpher-update-header () "If `elpher-use-header' is true, display current node info in window header." (if elpher-use-header - (setq header-line-format (elpher-node-display-string elpher-current-node)))) + (let* ((display-string (elpher-node-display-string elpher-current-node)) + (address (elpher-node-address elpher-current-node)) + (url-string (if (elpher-address-special-p address) + "" + (concat " - " (elpher-address-to-url address) "")))) + (setq header-line-format (list display-string url-string))))) (defmacro elpher-with-clean-buffer (&rest args) "Evaluate ARGS with a clean *elpher* buffer as current." -- 2.20.1