diff options
Diffstat (limited to 'breadcrumb.el')
| -rw-r--r-- | breadcrumb.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/breadcrumb.el b/breadcrumb.el index dc0bbc0..433cd32 100644 --- a/breadcrumb.el +++ b/breadcrumb.el @@ -346,11 +346,13 @@ to ROOT." (defun bc--project-crumbs-1 (bfn) "Helper for `breadcrumb-project-crumbs'. -Given BFN, the `buffer-file-name', produce a a list of +Given BFN, the `buffer-file-name', produce a list of propertized crumbs." (cl-loop with project = (project-current) with root = (if project (project-root project) default-directory) + with pname = (if project (project-name project) + (file-name-nondirectory (directory-file-name root))) with relname = (file-relative-name (or bfn default-directory) root) for (s . more) on (split-string relname "/") @@ -360,7 +362,7 @@ propertized crumbs." finally (cl-return (if root - (cons (propertize (file-name-nondirectory (directory-file-name root)) + (cons (propertize pname 'bc-dont-shorten t 'face 'bc-project-base-face) retval) |