reflow

1 files changed, 17 insertions, 16 deletions

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))