 
   (defvar narf--mode-line-padding (pl/percent-xpm powerline-height 100 0 100 0 1 nil nil))
   (spaceline-define-segment *pad
-    "A HUD that shows which part of the buffer is currently visible."
+    "Padding, to ensure the mode-line is `powerline-height' pixels tall"
     narf--mode-line-padding
     :tight-right t)
 


(use-package hl-line
  :init
  (add-hook! (prog-mode markdown-mode) 'hl-line-mode) ; line highlighting
  :config
  (defvar-local narf--hl-line-mode nil)

  (defun narf|hl-line-on ()  (if narf--hl-line-mode (hl-line-mode +1)))
  (defun narf|hl-line-off () (if narf--hl-line-mode (hl-line-mode -1)))

               (eq end pend))
          ":All"
        (let ((perc (/ end 0.01 pend)))
          (cond ((= start 1) ":Top")
                ((>= perc 100) ":Bot")
                (t (format ":%d%%%%" perc))))))
    :tight t)

  (spaceline-define-segment *vc
    "Version control info"
    (substring vc-mode (+ 1 (length (symbol-name (vc-backend buffer-file-name)))))
    :when (and active vc-mode)
    :face other-face
    :tight-right t)

  ;; search indicators
