[emacs] Show global position percentage in mode line

1 files changed, 22 insertions, 18 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-nov.el b/emacs/.emacs.d/lisp/my/my-nov.el
index d43a8f3..7cdb2a7 100644
--- a/emacs/.emacs.d/lisp/my/my-nov.el
+++ b/emacs/.emacs.d/lisp/my/my-nov.el
@@ -28,31 +28,38 @@
 
 (require 'nov)
 
+(defvar my-nov-mode-line-format "%p%% %t: %c")
+(defvar-local my-nov-title nil)
+(defvar-local my-nov-chapter-title nil)
+(defvar-local my-nov-position-percent nil)
+
 ;; override nov-render-title
 ;; this is because header line does not work with follow mode
 (defun my-nov-render-title (dom)
   "Custom <title> rendering function for DOM.
 Sets `header-line-format' to a combination of the EPUB title and
 chapter title."
-  (let ((title (cdr (assq 'title nov-metadata)))
-        (chapter-title (car (esxml-node-children dom))))
-    (when (not chapter-title)
-      (setq chapter-title "No title"))
-    ;; this shouldn't happen for properly authored EPUBs
-    (when (not title)
-      (setq title "No title"))
-    ;; TODO: fix mode line update
+  (setq my-nov-title (cdr (assq 'title nov-metadata))
+        my-nov-chapter-title (car (esxml-node-children dom))))
+
+(defun my-nov-update-mode-line ()
+  (setq my-nov-position-percent
+        (/ (* 100 (my-nov-word-position)) my-nov-total-word-count))
+  (let ((title (or my-nov-title (propertize "No title" 'face 'italic)))
+        (chapter-title (or my-nov-chapter-title
+                           (propertize "No title" 'face 'italic))))
     (setq mode-line-buffer-identification
-          (format "%s: %s (%d%%)"
-	                title chapter-title
-                  (/ (* 100 (my-nov-word-position)) my-nov-total-word-count)
-                  ))
-    ))
+          (format-spec
+	         my-nov-mode-line-format
+	         `((?c . ,chapter-title)
+		         (?t . ,title)
+             (?p . ,my-nov-position-percent))))))
 
 (defun my-nov-render-span (dom)
   (unless (equal (dom-attr dom 'epub:type) "pagebreak")
     (shr-generic dom)))
 
+
 (defun my-nov-find-file-with-ipath (file-name ipath)
   "Find epub file and goto IPATH.
 
@@ -149,15 +156,12 @@ Useful for recoll."
 (defun my-nov-word-position ()
   "Where are we in terms of word position?
 
-Return n, such that nth word of the epub is at the beginning of the
-screen."
+Return n, such that nth word of the epub is at point."
   (my-nov-count-words)
   (let ((result 0))
     (dotimes (i nov-documents-index)
       (setq result (+ result (cdr (aref my-nov-document-word-counts i)))))
-    (save-excursion
-      (move-to-window-line 0)
-      (setq result (+ result (count-words (point-min) (point)))))))
+    (setq result (+ result (count-words (point-min) (point))))))
 
 (defun my-nov-skim-forward ()
   "Forward by 3-10% of the book."