Function: majutsu-workspace--roots-for-names

majutsu-workspace--roots-for-names is a natively compiled function defined in majutsu-workspace.el.

Signature

(majutsu-workspace--roots-for-names NAMES &optional ROOT)

Documentation

Return an alist mapping workspace NAMES to known root directories.

ROOT is the workspace root used to query sibling workspaces. Missing structured roots are resolved only with non-interactive helpers. If a root remains unavailable, the matching alist value is nil.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-workspace.el
(defun majutsu-workspace--roots-for-names (names &optional root)
  "Return an alist mapping workspace NAMES to known root directories.
ROOT is the workspace root used to query sibling workspaces.  Missing
structured roots are resolved only with non-interactive helpers.  If a
root remains unavailable, the matching alist value is nil."
  (let* ((root (file-name-as-directory (or root default-directory)))
         (entries (condition-case nil
                      (majutsu-workspace-list-entries root)
                    (error nil))))
    (mapcar (lambda (name)
              (cons name
                    (or (majutsu-workspace--entry-root name entries)
                        (let ((default-directory root))
                          (or (condition-case nil
                                  (majutsu-workspace--root-for-name name)
                                (error nil))
                              (majutsu-workspace--sibling-root name root))))))
            names)))