     (replace-regexp-in-string (regexp-quote (symbol-name (vc-deduce-backend))) "" (s-trim (powerline-vc)) t t)
     :when (powerline-vc))
 
+  (spaceline-define-segment narf-hud
+    "A HUD that shows which part of the buffer is currently visible."
+    (powerline-hud highlight-face default-face)
+    :tight t)
+
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
   (spaceline-install

      :when active)
     (narf-vc :face other-face :when active))
   ;; Right side
   '((battery :when active)
     selection-info
     narf-buffer-encoding-abbrev
     (major-mode (minor-modes process :when active))
     (global :when active)
     (narf-line-column narf-buffer-position :face powerline-border)
     hud)))

(provide 'core-ui)
;;; core-ui.el ends here

                                       (let ((l (length path))) (substring path (- l max-length) l))))
                        path)))
                (powerline-buffer-id)))
            (if (buffer-modified-p)
                (propertize "*" 'font-lock-face '(:inherit other-face :foreground "orange")))
            " ")
    :tight-right t)

