From 5b568bcfd841bcd8fa3972035f6bdff82cb5d3f0 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sun, 22 Sep 2019 01:24:44 +0200 Subject: [PATCH] Header now displays TLS encryption status instead of url. --- elpher.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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) -- 2.20.1