Function: forge-checkout-worktree-default-read-directory-function

forge-checkout-worktree-default-read-directory-function is a byte-compiled function defined in forge-commands.el.

Signature

(forge-checkout-worktree-default-read-directory-function PULLREQ)

Source Code

;; Defined in ~/.emacs.d/elpa/forge-20260408.1922/forge-commands.el
(defun forge-checkout-worktree-default-read-directory-function (pullreq)
  (pcase-let* (((eieio number head-ref) pullreq)
               (path (read-directory-name
                      (format "Checkout #%s in new worktree: " number)
                      (file-name-directory
                       (directory-file-name default-directory))
                      nil nil
                      (let ((branch (forge--pullreq-branch-internal pullreq)))
                        (if (string-match-p "\\`pr-[0-9]+\\'" branch)
                            (number-to-string number)
                          (format "%s-%s" number
                                  (string-replace "/" "-" head-ref)))))))
    (when (equal path "")
      (user-error "The empty string isn't a valid path"))
    path))