From 965e8e68afc66c766f7cd344bf6f76556ec206b8 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Tue, 24 Feb 2026 13:39:50 +0100 Subject: [PATCH] feat(clone): add function to clone from a known URL --- majjit.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/majjit.el b/majjit.el index 23e4cff..fd2c206 100644 --- a/majjit.el +++ b/majjit.el @@ -141,6 +141,19 @@ If COLOCATE-P is t, colocate the repository with git." repository (magit-convert-filename-for-git directory)))) +;;;###autoload +(defun majjit-clone-from-url (url) + "Clone a repository from a known URL." + (let ((directory (read-directory-name + "Clone to: " + (if (functionp majjit-default-directory) + (funcall majjit-default-directory) + majjit-default-directory) + nil nil + (magit-clone--url-to-name url))) + (colocate-p (yes-or-no-p "Colocate? "))) + (majjit--internal url directory colocate-p))) + ;;;###autoload (defun majjit-clone (repository directory colocate-p) "Clone a git REPOSITORY using jujutsu into a DIRECTORY.