Function: majutsu-read-new-remote-name

majutsu-read-new-remote-name is a natively compiled function defined in majutsu-remote.el.

Signature

(majutsu-read-new-remote-name PROMPT &optional DEFAULT)

Documentation

Read a new Git remote name with PROMPT.

DEFAULT is preselected when non-nil. When there are no remotes, origin is used as the default. Existing remote names are rejected.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-remote.el
(defun majutsu-read-new-remote-name (prompt &optional default)
  "Read a new Git remote name with PROMPT.
DEFAULT is preselected when non-nil.  When there are no remotes, `origin' is
used as the default.  Existing remote names are rejected."
  (let* ((root (ignore-errors (majutsu--toplevel-safe)))
         (payload (majutsu-remote-candidate-data root))
         (remotes (plist-get payload :candidates))
         (remote (majutsu-completing-read-payload
                  prompt payload nil 'any nil 'majutsu-remote-name-history
                  (or default (unless remotes "origin")) 'majutsu-remote nil
                  (or root default-directory))))
    (majutsu-remote--validate-new-name remote)
    (when (member remote remotes)
      (user-error "Remote already exists: %s" remote))
    remote))