diff --git a/modules/tools/magit/autoload.el b/modules/tools/magit/autoload.el index 881a58d4f..91fd5fd84 100644 --- a/modules/tools/magit/autoload.el +++ b/modules/tools/magit/autoload.el @@ -161,36 +161,3 @@ control in buffers." (if (or arg (not (featurep 'forge))) #'github-review-start #'github-review-forge-pr-at-point))) - -(defvar +magit-clone-history nil - "History for `+magit/clone' prompt.") -;;;###autoload -(defun +magit/clone (url-or-repo dir) - "Like `magit-clone', but supports additional formats on top of absolute URLs: - -+ USER/REPO: assumes {`+magit-default-clone-url'}/USER/REPO -+ REPO: assumes {`+magit-default-clone-url'}/{USER}/REPO, where {USER} is - ascertained from your global gitconfig." - (interactive - (progn - (require 'ghub) - (let* ((user (ghub--username (ghub--host))) - (repo (read-from-minibuffer - "Clone repository (user/repo or url): " - (if user (concat user "/")) - nil nil '+magit-clone-history)) - (name (car (last (split-string repo "/" t))))) - (list repo - (read-directory-name - "Destination: " - magit-clone-default-directory - name nil name))))) - (magit-clone-regular - (cond ((string-match-p "^[^/]+$" url-or-repo) - (require 'ghub) - (format +magit-default-clone-url (ghub--username (ghub--host)) url-or-repo)) - ((string-match-p "^\\([^/]+\\)/\\([^/]+\\)/?$" url-or-repo) - (apply #'format +magit-default-clone-url (split-string url-or-repo "/" t))) - (url-or-repo)) - dir - nil))