Function: majutsu-workspace--prompt-name

majutsu-workspace--prompt-name is a natively compiled function defined in majutsu-workspace.el.

Signature

(majutsu-workspace--prompt-name &optional PROMPT ROOT DEFAULT)

Documentation

Prompt for a workspace name from ROOT.

DEFAULT is the default candidate; otherwise use the current workspace.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-workspace.el
(defun majutsu-workspace--prompt-name (&optional prompt root default)
  "Prompt for a workspace name from ROOT.
DEFAULT is the default candidate; otherwise use the current workspace."
  (let* ((root (or root default-directory))
         (payload (majutsu-workspace-candidate-data root))
         (current (cl-find-if (lambda (entry)
                                (plist-get entry :current))
                              (plist-get payload :entry-list)))
         (default (or default (plist-get current :name) ""))
         (prompt (or prompt "Workspace")))
    (majutsu-completing-read-payload prompt payload
                                     nil t nil 'majutsu-workspace-name-history
                                     default 'majutsu-workspace payload root)))