From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Aleksandr Vityazev via "Bug reports for GNU Emacs, the Swiss army knife of text editors" Newsgroups: gmane.emacs.bugs Subject: bug#73357: [PATCH] Make vc-clone interactive Date: Sun, 29 Sep 2024 21:23:13 +0300 Message-ID: <871q12fhf2.fsf@disroot.org> References: <875xqrlr3b.fsf@disroot.org> <86ploz935f.fsf@gnu.org> <87y13nk39b.fsf@disroot.org> <87ed59tkpk.fsf@posteo.net> Reply-To: Aleksandr Vityazev Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="25614"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Eli Zaretskii , 73357@debbugs.gnu.org To: Philip Kaludercic Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Sep 29 20:24:47 2024 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1suyb9-0006YG-6w for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 29 Sep 2024 20:24:47 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1suyav-00044k-Ce; Sun, 29 Sep 2024 14:24:34 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1suyat-00044a-P4 for bug-gnu-emacs@gnu.org; Sun, 29 Sep 2024 14:24:32 -0400 Original-Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1suyat-0001NJ-7z for bug-gnu-emacs@gnu.org; Sun, 29 Sep 2024 14:24:31 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=debbugs.gnu.org; s=debbugs-gnu-org; h=MIME-Version:Date:References:In-Reply-To:From:To:Subject; bh=cOqv+elanvm1NnU0ggELytAcarwZbFJEG4NllV5bXVo=; b=fRTOOytJlaHe3VlSKrKK9ix54HdBeWoq56ZLBHC0xIvRE7GTWEC4YpKrX8lfnVFAlutzB1co9WcSf2H/+JyJy5207ueInyXhBYdVgTsmDFZaPFql+a3pUuMhyO7rKex9IJrgLWEhfwckYGzs5dgeQ1xnH2vJv+szC/Vw/XBOaM5OY1ItDQlJ1Lr/MiXJedfl8lCGSDwVDaUOWp4PE43U+eXa3Go1reL56bzQcAlHMiqbU0LgMeE5InsC8YThegueIKmD7/ES4qDH2XU0D4HloREDM6jnH+a8h2ITPn46AESKlFekV5TCOqKA2L6aSWgXzgkzfrYtAscajNINH+lh7Q==; Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1suybO-0003Qn-FD for bug-gnu-emacs@gnu.org; Sun, 29 Sep 2024 14:25:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Aleksandr Vityazev Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 29 Sep 2024 18:25:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 73357 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 73357-submit@debbugs.gnu.org id=B73357.172763424313156 (code B ref 73357); Sun, 29 Sep 2024 18:25:02 +0000 Original-Received: (at 73357) by debbugs.gnu.org; 29 Sep 2024 18:24:03 +0000 Original-Received: from localhost ([127.0.0.1]:41599 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1suyaP-0003Pw-Rb for submit@debbugs.gnu.org; Sun, 29 Sep 2024 14:24:03 -0400 Original-Received: from layka.disroot.org ([178.21.23.139]:54252) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1suyaG-0003PY-U5 for 73357@debbugs.gnu.org; Sun, 29 Sep 2024 14:23:58 -0400 Original-Received: from mail01.disroot.lan (localhost [127.0.0.1]) by disroot.org (Postfix) with ESMTP id E1A4E23D78; Sun, 29 Sep 2024 20:23:19 +0200 (CEST) X-Virus-Scanned: SPAM Filter at disroot.org Original-Received: from layka.disroot.org ([127.0.0.1]) by localhost (disroot.org [127.0.0.1]) (amavis, port 10024) with ESMTP id p9450ufxugi2; Sun, 29 Sep 2024 20:23:18 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=disroot.org; s=mail; t=1727634198; bh=swsAFUZWWJjWqtMLPtoTkIr9JPBpkNI+/Bf3ihxrO7k=; h=From:To:Cc:Subject:In-Reply-To:References:Date; b=MuQFSDaH6/KKPbSMXTQLJknioR8ppDtIuWP/OFbZLMheXIjI9yv0oWGWUfGktoXgt NogrC8E+XURLUSna0HiKKcYue10rWRdxeGQXlTCW4/o3k6CHCk/2xCTIfWEolmfx/M EngIXFKJZqXdu+XtSqpI6UAAYWGP9KYHMatfJ8R4FNEjpcZWcaJsJLKfmHGwWDiNFx 6zmf5XiL5acfzqWKxw1wDeIbOQ04J9cstSov0OGI8i3GEpsquOhO/0QQ6Jqe3WUGBg M4zfnwGP/4o5Rw8JLOF/V5RlmP4K8l8Vl1s9avBeYOx7ezB8B3GYMSosGpf32Nx4bw HJ/YX8zZtSQqg== In-Reply-To: <87ed59tkpk.fsf@posteo.net> (Philip Kaludercic's message of "Tue, 24 Sep 2024 10:22:31 +0000") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.bugs:292659 Archived-At: --=-=-= Content-Type: text/plain On 2024-09-24 10:22, Philip Kaludercic wrote: > Aleksandr Vityazev writes: > >> On 2024-09-19 16:36, Eli Zaretskii wrote: >> >>>> Date: Thu, 19 Sep 2024 16:18:16 +0300 >>>> From: Aleksandr Vityazev via "Bug reports for GNU Emacs, >>>> the Swiss army knife of text editors" >>>> >>>> Cloning is used quite often, so I would like to have an interactive >>>> command. A patch is attached to the email. WDYT? >>> >>> Thanks, but making this function a command will take more than just >>> adding the interactive form. I think we need at least: >>> >>> . mention that in interactive usage the command prompts for the >>> argument (why do we have to prompt for REV, btw?) >> >> I clarified in the docstring. We can agree that we shouldn't prompt for REV >> when cloning interactively, removed. >> >>> . announce the change in NEWS >> Announced but did not mark the news with +++ or ---. >>> . maybe update the user manual >> maybe if I have to, I'll do it. >>> . maybe make the command fall back to 'checkout' method if 'clone' >>> is not supported >> >> it's worth thinking about, because I can't say for sure right now if >> it's worth it. And how to do this when vc-checkout requires a file as an >> argument. >> >>>> + (when (file-directory-p directory) >>>> + (if (called-interactively-p 'interactive) >>>> + (find-file directory) >>>> + directory)))) >>> >>> This changes the value returned by the function from what it did >>> before, no? >> >> If the function is called from the code, it returns nil or the >> directory, just like in the previous version. Or am I missing >> something? >> >> V2 patch: >> >>>>From b302b5c42e01fe0b6f7607128ed660babf55e35a Mon Sep 17 00:00:00 2001 >> Message-ID: >> From: Aleksandr Vityazev >> Date: Thu, 19 Sep 2024 16:11:31 +0300 >> Subject: [PATCH] Make vc-clone interactive >> >> * lisp/vc/vc.el (vc-clone): Make interactive. >> Mention this in the doc string. >> (vc--remotes-history): New defvar. >> * etc/NEWS: Announce it. >> --- >> etc/NEWS | 7 +++++++ >> lisp/vc/vc.el | 42 ++++++++++++++++++++++++++++-------------- >> 2 files changed, 35 insertions(+), 14 deletions(-) >> >> diff --git a/etc/NEWS b/etc/NEWS >> index b52ad001a2e..db5f05c823c 100644 >> --- a/etc/NEWS >> +++ b/etc/NEWS >> @@ -359,6 +359,13 @@ functionality of the standard 'xref' commands in TeX buffers. You can >> restore the standard 'etags' backend with the 'M-x xref-etags-mode' >> toggle. >> >> +** VC >> + >> +*** 'vc-clone' is now an interactive command. >> +When called interactively, 'vc-clone' now prompts for the address of the >> +remote repository, the backend that will be used for cloning, as well as >> +the directory where the repository will be cloned. > > Try to avoid passive voice, as in "be used" and "be cloned". Fixed. > >> + >> >> * New Modes and Packages in Emacs 31.1 >> >> diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el >> index 597a1622f5a..fc964803a02 100644 >> --- a/lisp/vc/vc.el >> +++ b/lisp/vc/vc.el >> @@ -3804,6 +3804,8 @@ vc-check-headers >> (interactive) >> (vc-call-backend (vc-backend buffer-file-name) 'check-headers)) >> >> +(defvar vc--remotes-history) >> + >> (defun vc-clone (remote &optional backend directory rev) >> "Clone repository REMOTE using version-control BACKEND, into DIRECTORY. >> If successful, return the string with the directory of the checkout; >> @@ -3814,20 +3816,32 @@ vc-clone >> If BACKEND is nil or omitted, the function iterates through every known >> backend in `vc-handled-backends' until one succeeds to clone REMOTE. >> If REV is non-nil, it indicates a specific revision to check out after >> -cloning; the syntax of REV depends on what BACKEND accepts." >> - (setq directory (expand-file-name (or directory default-directory))) >> - (if backend >> - (progn >> - (unless (memq backend vc-handled-backends) >> - (error "Unknown VC backend %s" backend)) >> - (vc-call-backend backend 'clone remote directory rev)) >> - (catch 'ok >> - (dolist (backend vc-handled-backends) >> - (ignore-error vc-not-supported >> - (when-let ((res (vc-call-backend >> - backend 'clone >> - remote directory rev))) >> - (throw 'ok res))))))) >> +cloning; the syntax of REV depends on what BACKEND accepts. >> +If called interactively, prompt for REMOTE, BACKEND and DIRECTORY in >> +the minibuffer." >> + (interactive >> + (list (read-string "Remote: " nil 'vc--remotes-history) >> + (intern (completing-read "Backend: " vc-handled-backends nil t)) > > We could consider moving `package-vc-heuristic-alist' to vc so as to > provide some useful default when cloning. make sense, moved package-vc-heuristic-alist, package-vc--backend-type and package-vc--guess-backend into vc > >> + (expand-file-name > > Here also, I think it would make sense to re-use the same interface as > `package-vc-checkout' provides, by prompting for a not-yet existing > directory. I agree > >> + (read-directory-name "Clone dir: ")))) >> + (let ((directory (expand-file-name (or directory default-directory)))) >> + (setq directory > > I think binding this in a `let*' expression would look nicer. also agree > >> + (if backend >> + (progn >> + (unless (memq backend vc-handled-backends) >> + (error "Unknown VC backend %s" backend)) >> + (vc-call-backend backend 'clone remote directory rev)) >> + (catch 'ok >> + (dolist (backend vc-handled-backends) >> + (ignore-error vc-not-supported >> + (when-let ((res (vc-call-backend >> + backend 'clone >> + remote directory rev))) >> + (throw 'ok res))))))) >> + (when (file-directory-p directory) >> + (if (called-interactively-p 'interactive) > > Perhaps we can add a FIND-FILE argument to the end, so that it is also > possible to open the directory from a script as well. might be useful, added and documented in doc string. > >> + (find-file directory) >> + directory)))) > > I'd always return `directory', that seems simpler. Simpler, but it seems logical to switch to a directory when using it interactively. I left it as it was. > >> >> (declare-function log-view-current-tag "log-view" (&optional pos)) >> (defun vc-default-last-change (_backend file line) >> -- >> 2.46.0 V3 patch: --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-Make-vc-clone-interactive.patch Content-Description: [PATCH] Make vc-clone interactive >From 6d5dbb1d1354d7476caaeeecfe15b8fd6335490a Mon Sep 17 00:00:00 2001 Message-ID: <6d5dbb1d1354d7476caaeeecfe15b8fd6335490a.1727634026.git.avityazev@disroot.org> From: Aleksandr Vityazev Date: Sun, 29 Sep 2024 21:13:28 +0300 Subject: [PATCH] Make vc-clone interactive * lisp/vc/vc.el (vc-clone): Make interactive. Add optional argument FIND-FILE. Mention these changes in the doc string. (vc--remotes-history): New defvar. * lisp/emacs-lisp/package-vc (package-vc--backend-type, package-vc-heuristic-alist, package-vc--guess-backend): Rename and move to ... (package-vc-default-backend): Set type to vc-backend-type. (package-vc--clone, package-vc--read-package-name, package-vc-install, package-vc-checkout): Use vc-guess-backend. * lisp/vc/vc (vc-backend-type, vc-heuristic-alist, vc-guess-backend): ... here. * etc/NEWS: Announce these changes. --- etc/NEWS | 12 ++++ lisp/emacs-lisp/package-vc.el | 75 ++-------------------- lisp/vc/vc.el | 115 +++++++++++++++++++++++++++++----- 3 files changed, 118 insertions(+), 84 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index aaf3783f006..3722e12c01d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -444,6 +444,18 @@ toggle. Putting (require 'midnight) in your init file no longer activates the mode. Now, one needs to say (midnight-mode +1) instead. +** VC + +*** 'vc-clone' is now an interactive command. +When called interactively, 'vc-clone' now prompts for the remote +repository address, the backend for cloning, if it has not been +determined automatically according to the URL, and the directory to +clone the repository into. + +*** 'vc-clone' now accepts an optional argument FIND-FILE. +When the argument is non-nil, the function switches to a buffer visiting +directory to which the repository was cloned. + * New Modes and Packages in Emacs 31.1 diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el index e168096e153..82b450368d0 100644 --- a/lisp/emacs-lisp/package-vc.el +++ b/lisp/emacs-lisp/package-vc.el @@ -63,62 +63,6 @@ package-vc (defconst package-vc--elpa-packages-version 1 "Version number of the package specification format understood by package-vc.") -(defconst package-vc--backend-type - `(choice :convert-widget - ,(lambda (widget) - (let (opts) - (dolist (be vc-handled-backends) - (when (or (vc-find-backend-function be 'clone) - (alist-get 'clone (get be 'vc-functions))) - (push (widget-convert (list 'const be)) opts))) - (widget-put widget :args opts)) - widget)) - "The type of VC backends that support cloning package VCS repositories.") - -(defcustom package-vc-heuristic-alist - `((,(rx bos "http" (? "s") "://" - (or (: (? "www.") "github.com" - "/" (+ (or alnum "-" "." "_")) - "/" (+ (or alnum "-" "." "_"))) - (: "codeberg.org" - "/" (+ (or alnum "-" "." "_")) - "/" (+ (or alnum "-" "." "_"))) - (: (? "www.") "gitlab" (+ "." (+ alnum)) - "/" (+ (or alnum "-" "." "_")) - "/" (+ (or alnum "-" "." "_"))) - (: "git.sr.ht" - "/~" (+ (or alnum "-" "." "_")) - "/" (+ (or alnum "-" "." "_"))) - (: "git." (or "savannah" "sv") "." (? "non") "gnu.org/" - (or "r" "git") "/" - (+ (or alnum "-" "." "_")) (? "/"))) - (or (? "/") ".git") eos) - . Git) - (,(rx bos "http" (? "s") "://" - (or (: "hg.sr.ht" - "/~" (+ (or alnum "-" "." "_")) - "/" (+ (or alnum "-" "." "_"))) - (: "hg." (or "savannah" "sv") "." (? "non") "gnu.org/hgweb/" - (+ (or alnum "-" "." "_")) (? "/"))) - eos) - . Hg) - (,(rx bos "http" (? "s") "://" - (or (: "bzr." (or "savannah" "sv") "." (? "non") "gnu.org/r/" - (+ (or alnum "-" "." "_")) (? "/"))) - eos) - . Bzr)) - "Alist mapping repository URLs to VC backends. -`package-vc-install' consults this alist to determine the VC -backend from the repository URL when you call it without -specifying a backend. Each element of the alist has the form -\(URL-REGEXP . BACKEND). `package-vc-install' will use BACKEND of -the first association for which the URL of the repository matches -the URL-REGEXP of the association. If no match is found, -`package-vc-install' uses `package-vc-default-backend' instead." - :type `(alist :key-type (regexp :tag "Regular expression matching URLs") - :value-type ,package-vc--backend-type) - :version "29.1") - (defcustom package-vc-default-backend 'Git "Default VC backend to use for cloning package repositories. `package-vc-install' uses this backend when you specify neither @@ -127,7 +71,7 @@ package-vc-default-backend The value must be a member of `vc-handled-backends' that supports the `clone' VC function." - :type package-vc--backend-type + :type vc-backend-type :version "29.1") (defcustom package-vc-register-as-project t @@ -626,13 +570,6 @@ package-vc--unpack-1 ""))) t)) -(defun package-vc--guess-backend (url) - "Guess the VC backend for URL. -This function will internally query `package-vc-heuristic-alist' -and return nil if it cannot reasonably guess." - (and url (alist-get url package-vc-heuristic-alist - nil nil #'string-match-p))) - (declare-function project-remember-projects-under "project" (dir &optional recursive)) (defun package-vc--clone (pkg-desc pkg-spec dir rev) @@ -646,7 +583,7 @@ package-vc--clone (unless (file-exists-p dir) (make-directory (file-name-directory dir) t) (let ((backend (or (plist-get pkg-spec :vc-backend) - (package-vc--guess-backend url) + (vc-guess-backend url) (plist-get (alist-get (package-desc-archive pkg-desc) package-vc--archive-data-alist nil nil #'string=) @@ -753,7 +690,7 @@ package-vc--read-package-name ;; pointing towards a repository, and use that as a backup (and-let* ((extras (package-desc-extras (cadr pkg))) (url (alist-get :url extras)) - ((package-vc--guess-backend url))))))) + ((vc-guess-backend url))))))) (not allow-url))) (defun package-vc--read-package-desc (prompt &optional installed) @@ -917,7 +854,7 @@ package-vc-install (cdr package) rev)) ((and-let* (((stringp package)) - (backend (or backend (package-vc--guess-backend package)))) + (backend (or backend (vc-guess-backend package)))) (package-vc--unpack (package-desc-create :name (or name (intern (file-name-base package))) @@ -930,7 +867,7 @@ package-vc-install (or (package-vc--desc->spec (cadr desc)) (and-let* ((extras (package-desc-extras (cadr desc))) (url (alist-get :url extras)) - (backend (package-vc--guess-backend url))) + (backend (vc-guess-backend url))) (list :vc-backend backend :url url)) (user-error "Package `%s' has no VC data" package)) rev))) @@ -958,7 +895,7 @@ package-vc-checkout (let ((pkg-spec (or (package-vc--desc->spec pkg-desc) (and-let* ((extras (package-desc-extras pkg-desc)) (url (alist-get :url extras)) - (backend (package-vc--guess-backend url))) + (backend (vc-guess-backend url))) (list :vc-backend backend :url url)) (user-error "Package `%s' has no VC data" (package-desc-name pkg-desc))))) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 597a1622f5a..cd877bd8097 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -929,7 +929,69 @@ vc-find-revision-no-save :type 'boolean :version "27.1") +(defconst vc-backend-type + `(choice :convert-widget + ,(lambda (widget) + (let (opts) + (dolist (be vc-handled-backends) + (when (or (vc-find-backend-function be 'clone) + (alist-get 'clone (get be 'vc-functions))) + (push (widget-convert (list 'const be)) opts))) + (widget-put widget :args opts)) + widget)) + "The type of VC backends that support cloning VCS repositories.") + +(defcustom vc-heuristic-alist + `((,(rx bos "http" (? "s") "://" + (or (: (? "www.") "github.com" + "/" (+ (or alnum "-" "." "_")) + "/" (+ (or alnum "-" "." "_"))) + (: "codeberg.org" + "/" (+ (or alnum "-" "." "_")) + "/" (+ (or alnum "-" "." "_"))) + (: (? "www.") "gitlab" (+ "." (+ alnum)) + "/" (+ (or alnum "-" "." "_")) + "/" (+ (or alnum "-" "." "_"))) + (: "git.sr.ht" + "/~" (+ (or alnum "-" "." "_")) + "/" (+ (or alnum "-" "." "_"))) + (: "git." (or "savannah" "sv") "." (? "non") "gnu.org/" + (or "r" "git") "/" + (+ (or alnum "-" "." "_")) (? "/"))) + (or (? "/") ".git") eos) + . Git) + (,(rx bos "http" (? "s") "://" + (or (: "hg.sr.ht" + "/~" (+ (or alnum "-" "." "_")) + "/" (+ (or alnum "-" "." "_"))) + (: "hg." (or "savannah" "sv") "." (? "non") "gnu.org/hgweb/" + (+ (or alnum "-" "." "_")) (? "/"))) + eos) + . Hg) + (,(rx bos "http" (? "s") "://" + (or (: "bzr." (or "savannah" "sv") "." (? "non") "gnu.org/r/" + (+ (or alnum "-" "." "_")) (? "/"))) + eos) + . Bzr)) + "Alist mapping repository URLs to VC backends. +`vc-clone' consults this alist to determine the VC +backend from the repository URL when you call it without +specifying a backend. Each element of the alist has the form +\(URL-REGEXP . BACKEND). `vc-clone' will use BACKEND of +the first association for which the URL of the repository matches +the URL-REGEXP of the association." + :type `(alist :key-type (regexp :tag "Regular expression matching URLs") + :value-type ,vc-backend-type) + :version "29.1") + +(defun vc-guess-backend (url) + "Guess the VC backend for URL. +This function will internally query `vc-heuristic-alist' +and return nil if it cannot reasonably guess." + (and url (alist-get url vc-heuristic-alist + nil nil #'string-match-p))) + ;; File property caching (defun vc-clear-context () @@ -3804,7 +3866,9 @@ vc-check-headers (interactive) (vc-call-backend (vc-backend buffer-file-name) 'check-headers)) -(defun vc-clone (remote &optional backend directory rev) +(defvar vc--remotes-history) + +(defun vc-clone (remote &optional backend directory rev find-file) "Clone repository REMOTE using version-control BACKEND, into DIRECTORY. If successful, return the string with the directory of the checkout; otherwise return nil. @@ -3814,20 +3878,41 @@ vc-clone If BACKEND is nil or omitted, the function iterates through every known backend in `vc-handled-backends' until one succeeds to clone REMOTE. If REV is non-nil, it indicates a specific revision to check out after -cloning; the syntax of REV depends on what BACKEND accepts." - (setq directory (expand-file-name (or directory default-directory))) - (if backend - (progn - (unless (memq backend vc-handled-backends) - (error "Unknown VC backend %s" backend)) - (vc-call-backend backend 'clone remote directory rev)) - (catch 'ok - (dolist (backend vc-handled-backends) - (ignore-error vc-not-supported - (when-let ((res (vc-call-backend - backend 'clone - remote directory rev))) - (throw 'ok res))))))) +cloning; the syntax of REV depends on what BACKEND accepts. +If FIND-FILE is non-nil, switches to a buffer visiting DIRECTORY to +which the repository was cloned. It would be useful in scripts, but not +in regular code. +If called interactively, prompt for REMOTE, DIRECTORY and BACKEND, +if BACKEND has not been automatically determined according to the REMOTE +URL, in the minibuffer." + (interactive + (let* ((url (read-string "Remote: " nil 'vc--remotes-history)) + (backend (or (vc-guess-backend url) + (intern (completing-read + "Backend: " vc-handled-backends nil t))))) + (list url backend + (read-directory-name + "Clone into new or empty directory: " nil nil + (lambda (dir) (or (not (file-exists-p dir)) + (directory-empty-p dir))))))) + (let* ((directory (expand-file-name (or directory default-directory))) + (backend (or backend (vc-guess-backend remote))) + (directory (if backend + (progn + (unless (memq backend vc-handled-backends) + (error "Unknown VC backend %s" backend)) + (vc-call-backend backend 'clone remote directory rev)) + (catch 'ok + (dolist (backend vc-handled-backends) + (ignore-error vc-not-supported + (when-let ((res (vc-call-backend + backend 'clone + remote directory rev))) + (throw 'ok res)))))))) + (when (file-directory-p directory) + (if (or find-file (called-interactively-p 'interactive)) + (find-file directory) + directory)))) (declare-function log-view-current-tag "log-view" (&optional pos)) (defun vc-default-last-change (_backend file line) -- 2.46.0 --=-=-= Content-Type: text/plain -- Best regards, Aleksandr Vityazev --=-=-=--