[elpa] externals/nano-modeline b4faafa 12/25: Added elpher mode

[ELPA Syncer]

branch: externals/nano-modeline
commit b4faafa4a50e135523bda57e70dd2419e1ae9d45
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Added elpher mode
---
 nano-modeline.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/nano-modeline.el b/nano-modeline.el
index 2d4ae32..4c3a08a 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -638,6 +638,24 @@ depending on the version of mu4e."
 ;;          #'buffer-menu-mode-header-line)
 
 ;; ---------------------------------------------------------------------
+(defun nano-modeline-elpher-mode-p ()
+  (derived-mode-p 'elpher-mode))
+
+(defun nano-modeline-elpher-mode ()
+  (let* ((display-string (elpher-page-display-string elpher-current-page))
+         (sanitized-display-string (replace-regexp-in-string "%" "%%" 
display-string))
+         (address (elpher-page-address elpher-current-page))
+         (tls-string (if (and (not (elpher-address-about-p address))
+                              (member (elpher-address-protocol address)
+                                      '("gophers" "gemini")))
+                         "(TLS encryption)"
+                       "")))
+    (nano-modeline-render "GEM"
+                          sanitized-display-string
+                          tls-string
+                          "")))
+
+;; ---------------------------------------------------------------------
 (defun nano-modeline-completion-list-mode-p ()
   (derived-mode-p 'completion-list-mode))