[elpa] externals/nano-modeline aba353af56 11/26: Added elpher mode

[ELPA Syncer]

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

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

diff --git a/nano-modeline.el b/nano-modeline.el
index a64f5e319b..11e9511b93 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -385,6 +385,20 @@ made DEFAULT."
                     (t (concat (elfeed-search--count-unread) " ")))
    'face (nano-modeline-face)))
 
+(defun nano-modeline-elpher-protocol ()
+  "Elpher protocol"
+  
+  (propertize (format "(%s)"
+   (elpher-address-protocol (elpher-page-address elpher-current-page)))
+   'face (nano-modeline-face)))
+
+(defun nano-modeline-elpher-title ()
+  "Elpher protocol"
+
+  (propertize
+   (elpher-page-display-string elpher-current-page)
+   'face (nano-modeline-face 'bold)))
+
 (defun nano-modeline-date (&optional date format)
   "Date using given FORMAT and DATE"
 
@@ -492,6 +506,17 @@ made DEFAULT."
              (nano-modeline-window-dedicated))
            default))
 
+(defun nano-modeline-elpher-mode ()
+  "Nano line for elpher mode"
+
+  (setq elpher-use-header nil)
+  (funcall nano-modeline-position
+           '((nano-modeline-buffer-status "GEM") " "
+             (nano-modeline-elpher-title) " "
+             (nano-modeline-elpher-protocol))
+           '((nano-modeline-cursor-position)
+             (nano-modeline-window-dedicated))))
+
 (defun nano-modeline-org-mode ()
   "Nano line for org mode"