   (let ((all-the-icons-scale-factor 1.2)
         (modified-p (buffer-modified-p))
         faces)
-    (if active (push 'doom-modeline-buffer-path faces))
+    (if (active)   (push 'doom-modeline-buffer-path faces))
     (if modified-p (push 'doom-modeline-buffer-modified faces))
     (concat (if buffer-read-only
                 (concat (all-the-icons-octicon


(defun doom-make-xpm (color height width)
  "Create an XPM bitmap."
  (propertize
   " " 'display
   (let ((data nil)
         (i 0))
     (setq data (make-list height (make-list width 1)))
     (pl/make-xpm "percent" color color (reverse data)))))
(pl/memoize 'doom-make-xpm)

(defun doom-buffer-path ()
  "Displays the buffer's full path relative to the project root (includes the

                       :v-adjust -0.05)
                      " "))
            (propertize (doom-buffer-path)
                        'face (if faces `(:inherit ,faces))))))

(defun *buffer-encoding ()
  "The encoding and eol style of the buffer."
