Function: breadcrumb--project-crumbs-1

breadcrumb--project-crumbs-1 is a natively compiled function defined in breadcrumb.el.

Signature

(breadcrumb--project-crumbs-1 BFN)

Documentation

Helper for breadcrumb-project-crumbs.

Given BFN, the buffer-file-name(var)/buffer-file-name(fun), produce a a list of propertized crumbs.

Source Code

;; Defined in /nix/store/3gd3jzhj3g7mbwy1i3w6ci5d2md9d8r2-emacs-packages-deps/share/emacs/site-lisp/elpa/breadcrumb-1.0.1/breadcrumb.el
(defun bc--project-crumbs-1 (bfn)
  "Helper for `breadcrumb-project-crumbs'.
Given BFN, the `buffer-file-name', produce a a list of
propertized crumbs."
  (cl-loop
   with project = (project-current)
   with root = (if project (project-root project) default-directory)
   with relname = (file-relative-name (or bfn default-directory)
                                      root)
   for (s . more) on (split-string relname "/")
   concat s into upto
   when more concat "/" into upto
   collect (bc--format-project-node s more root upto) into retval
   finally
   (cl-return
    (if root
        (cons (propertize (file-name-base (directory-file-name root))
                          'bc-dont-shorten t
                          'face 'bc-project-base-face)
              retval)
      retval))))