Function: marginalia--project-root

marginalia--project-root is a byte-compiled function defined in marginalia.el.

Signature

(marginalia--project-root)

Documentation

Return project root.

Source Code

;; Defined in ~/.emacs.d/elpa/marginalia-20260724.810/marginalia.el
(defun marginalia--project-root ()
  "Return project root."
  (marginalia--in-minibuffer
    (when (eq marginalia--project-root 'unset)
      (setq marginalia--project-root
            (or (let ((prompt (minibuffer-prompt))
                      case-fold-search)
                  (and (string-match
                        "\\`\\(?:Dired\\|Find file\\) in \\(.*\\): \\'"
                        prompt)
                       (match-string 1 prompt)))
                (when-let* ((proj (project-current)))
                  (project-root proj)))))
    marginalia--project-root))