From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sat, 21 Sep 2019 23:24:44 +0000 (+0200)
Subject: Header now displays TLS encryption status instead of url.
X-Git-Tag: v2.3.6~2
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=5b568bcfd841bcd8fa3972035f6bdff82cb5d3f0

Header now displays TLS encryption status instead of url.
---

diff --git a/elpher.el b/elpher.el
index fcdd9f4..acc20ba 100644
--- a/elpher.el
+++ b/elpher.el
@@ -426,11 +426,13 @@ unless PRESERVE-PARENT is non-nil."
   (if elpher-use-header
       (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) "")))
-             (header (replace-regexp-in-string "%" "%%" (concat display-string
-                                                                url-string))))
+             (tls-string (if (and (not (elpher-address-special-p address))
+                                  (member (elpher-address-protocol address)
+                                          '("gophers" "gemini")))
+                             " [TLS]"
+                           ""))
+             (header (concat display-string
+                             (propertize tls-string 'face 'bold))))
         (setq header-line-format header))))
 
 (defmacro elpher-with-clean-buffer (&rest args)