Also show percentage of file in the modeline

1 files changed, 9 insertions, 2 deletions

@@ -125,6 +125,10 @@ indicator in the mode-line."
                             'mouse-2 #'mode-line-widen))
       'mouse-face 'mode-line-highlight))))
 
+(define-minor-mode file-percentage-mode
+  "Toggle the percentage display in the mode line (File Percentage Mode)."
+  :init-value t :global t :group 'mode-line)
+
 (defun acdw-modeline/position ()
   "Displays the current cursor position in the mode-line.
 
@@ -140,7 +144,10 @@ is, if point < mark."
      ((column-number-mode
        (column-number-indicator-zero-based
         (5 " C%c")
-        (5 " C%C")))))
+        (5 " C%C")))
+      " "))
+    (file-percentage-mode
+     (7 "%p%% "))
     ,(if (region-active-p)
          (propertize (format "%s%-5d"
                              (if (and (mark)
@@ -183,7 +190,7 @@ is, if point < mark."
 (defun acdw-modeline/wc ()
   "Display current `wc-buffer-stats'."
   (when (bound-and-true-p wc-mode)
-    (or wc-buffer-stats "[w]")))
+    (or wc-buffer-stats " [w]")))
 
 (defun acdw-modeline/winum ()
   "Show the `winum' number of the current window in the modeline.