Add acdw-modeline/position

1 files changed, 29 insertions, 0 deletions

@@ -94,6 +94,35 @@ indicator in the mode-line."
                             'mouse-2 #'mode-line-widen))
       'mouse-face 'mode-line-highlight))))
 
+(defun acdw-modeline/position ()
+  "Displays the current cursor position in the mode-line.
+
+Unlike `simple-modeline-segment-position', this changes the first
+character from '+' to '-' if the region goes 'backward' -- that
+is, if point < mark."
+  `((line-number-mode
+     ((column-number-mode
+       (column-number-indicator-zero-based
+        (8 " %l:%c")
+        (8 " %l:%C"))
+       (5 " L%l")))
+     ((column-number-mode
+       (column-number-indicator-zero-based
+        (5 " C%c")
+        (5 " C%C")))))
+    ,(if (region-active-p)
+         (propertize (format "%s%s"
+                             (if (and (mark)
+                                      (< (point) (mark)))
+                                 "-"
+                               "+")
+                             (apply #'+ (mapcar
+                                         (lambda (pos)
+                                           (- (cdr pos)
+                                              (car pos)))
+                                         (region-bounds))))
+                     'font-lock-face 'font-lock-variable-name-face))))
+
 (defun acdw-modeline/text-scale ()
   ;; adapted from https://github.com/seagle0128/doom-modeline
   (when (and (boundp 'text-scale-mode-amount)