Add interactive clone with vc, make Git the first backend

diff --git a/init.el b/init.el
index be0715618891932a82d575b091d0d1d2ee49b2f5..58af819e4e347c2ab5f2213174042b4c8fe475b4 100644 (file)
--- 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 41368b2c0d4958acca864262aa9f095c4a39fc30..38f197a02b57e250ee4fe6f4a6807c7f2b0e9c0b 100644 (file)
--- 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 51acb1e816a7efdf80ab8d45447944ecc1cbfe49..92bc97dfc024e31bfa5ce00eef44d561356afa00 100644 (file)
--- 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