        '(:eval (format-mode-line
                 (propertized-buffer-identification
                  (or (when-let* ((buffer-file-truename buffer-file-truename)
-                                 (prj (cdr-safe (project-current)))
+                                 ;; (prj (cdr-safe (project-current)))
+                                 (prj (if (fboundp 'projectile-project-root)
+					  (projectile-project-root)
+					default-directory))
                                  (prj-parent (directory-file-name (expand-file-name prj))))
                       (concat (file-relative-name (file-name-directory buffer-file-truename) prj-parent) (file-name-nondirectory buffer-file-truename)))
                   "%b")))))


  :custom
  (project-find-functions (list #'user/project-find-root)))

(use-package vc :ensure nil
  :defer

  :commands (git-timemachine git-timemachine-toggle))

(use-package project
  :disabled
  :ensure nil
  :general
  ("C-c p f" 'project-find-file)
