From: rearman <rearman@r717.net>
Date: Tue, 19 Aug 2025 12:53:35 +0000 (-0400)
Subject: Add interactive clone with vc, make Git the first backend
X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=0c4c2458918ea817bd8bfd199a5ba0dc00ff035a;p=emacsinit.git

Add interactive clone with vc, make Git the first backend
---

diff --git a/init.el b/init.el
index be07156..58af819 100644
--- a/init.el
+++ b/init.el
@@ -147,6 +147,7 @@
 
 ;; Draftwieldiŋ
 (setq vc-make-backup-files t
+      vc-handled-backends '(Git Hg RCS CVS SVN SCCS SRC Bzr)
       backup-by-copying t
       backup-directory-alist `((".*" . "~/emacs-backups/")))
 
diff --git a/re/re-bindings.el b/re/re-bindings.el
index 41368b2..38f197a 100644
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -72,6 +72,9 @@
 (keymap-global-set "C-c r" #'recentf-open-files)
 (keymap-global-set "C-x r B" #'bookmark-jump-other-window)
 
+;; Draftweilding
+(keymap-global-set "C-x v C" #'re/vc-clone)
+
 ;; (E)Lisp
 (keymap-global-set "C-M-z" #'eval-region)
 (keymap-global-set "C-M-S-q" #'sedit-auto-prettify-sexp)
diff --git a/re/re-editing-defuns.el b/re/re-editing-defuns.el
index 51acb1e..92bc97d 100644
--- a/re/re-editing-defuns.el
+++ b/re/re-editing-defuns.el
@@ -160,5 +160,13 @@ Taken from https://www.masteringemacs.org/article/fixing-mark-commands-transient
   (interactive)
   (set-mark-command 1))
 
+(defun re/vc-clone ()
+  "Interactively clone with vc-mode.
+Prompt for url and local dir."
+  (interactive)
+  (let* ((url (read-string "Repository URL: "))
+	 (dir (read-string "Local Dir: " (file-name-base url))))
+    (vc-clone url nil dir nil)))
+
 (provide 're-editing-defuns)
 ;;; re-editing-defuns.el ends here