From ccc837803226e9c1b9cffc6335b0b83268b0ecbe Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 12 Jan 2024 20:51:25 +0000 Subject: reflow --- .emacs.d/init.el | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 09f94415..888b27f2 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2101,22 +2101,23 @@ Some ideas behind these behaviours are as follows. (defun spw/clone-repo () (interactive) - (let* ((method - (completing-read - "Method: " - '("git clone" "dgit clone" "debcheckout" "mr -fd co") nil t)) - (mrp (string= method "mr -fd co")) - (destination - (and (not mrp) - (expand-file-name - (completing-read "Destination: " - (nconc (mapcar #'abbreviate-file-name - (spw/src-dirs-not-projects)) - '("~/tmp" "~/src")) - nil t)))) - (source (read-from-minibuffer "What to clone: ")) - (buffer (get-buffer-create "*Repository Clone Output*")) - (default-directory (or destination (expand-file-name "~/")))) + (let* + ((method + (completing-read "Method: " + '("git clone" "dgit clone" "debcheckout" "mr -fd co") + nil t)) + (mrp (string= method "mr -fd co")) + (destination + (and (not mrp) + (expand-file-name + (completing-read "Destination: " + (nconc (mapcar #'abbreviate-file-name + (spw/src-dirs-not-projects)) + '("~/tmp" "~/src")) + nil t)))) + (source (read-from-minibuffer "What to clone: ")) + (buffer (get-buffer-create "*Repository Clone Output*")) + (default-directory (or destination (expand-file-name "~/")))) (make-directory (file-name-directory (directory-file-name (or destination source))) t) (with-current-buffer buffer (erase-buffer)) -- cgit v1.2.3