                                                   (file-name-directory
                                                    (or buffer-file-truename
                                                        (file-truename buffer-file-name)))
-                                                  (file-truename buffer-file-name)))
-         propertized-file-name)
-    (if (null file-name-split) "%b"
+                                                  (file-truename buffer-file-name))))
+    (if (null file-name-split)
+        "%b"
       (pcase-let ((`(,root-path-parent ,project ,relative-path ,filename) file-name-split))
         (let ((sp-faces `(:inherit ,(or modified-faces (if active 'font-lock-comment-face))
                           ,@(if active '(:weight bold))))


;; fish-style modeline
(def-package! shrink-path
  :commands (shrink-path-file-mixed))


;;

(defvar +doom-modeline-vspc
  (propertize " " 'face 'variable-pitch)
  "TODO")

(defvar +doom-modeline-buffer-file-name-style 'truncate-upto-project
  "Determines the style used by `+doom-modeline-buffer-file-name'.

Given ~/Projects/FOSS/emacs/lisp/comint.el
truncate-upto-project => ~/P/F/emacs/lisp/comint.el
truncate-upto-root => ~/P/F/e/lisp/comint.el
truncate-all => ~/P/F/e/l/comint.el
relative-to-project => lisp/comint.el
file-name => comint.el")

;; externs
(defvar anzu--state nil)
