cljr-slash: refactor conditional

Author: yuhan0

clj-refactor.el

@@ -1977,28 +1977,28 @@ command will add the corresponding require statement to the ns
 form."
   (interactive)
   (insert "/")
-  (unless (or (cljr--in-map-destructuring?)
-              (cljr--in-ns-above-point-p)
-              (cljr--in-reader-literal-p))
-    (when-let (aliases (and cljr-magic-requires
-                            (not (cider-in-comment-p))
-                            (not (cider-in-string-p))
-                            (not (cljr--in-keyword-sans-alias-p))
-                            (clojure-find-ns)
-                            (cljr--magic-requires-lookup-alias)))
-      (let ((short (cl-first aliases)))
-        (when-let (long (cljr--prompt-user-for "Require " (cl-second aliases)))
-          (when (and (not (cljr--in-namespace-declaration-p (concat ":as " short "\b")))
-                     (or (not (eq :prompt cljr-magic-requires))
-                         (not (> (length (cl-second aliases)) 1)) ; already prompted
-                         (yes-or-no-p (format "Add %s :as %s to requires?" long short))))
-            (save-excursion
-              (cljr--insert-in-ns ":require")
-              (let ((libspec (format "[%s :as %s]" long short)))
-                (insert libspec)
-                (ignore-errors (cljr--maybe-eval-ns-form))
-                (cljr--indent-defun)
-                (cljr--post-command-message "Required %s" libspec)))))))))
+  (when-let (aliases (and cljr-magic-requires
+                          (not (cljr--in-map-destructuring?))
+                          (not (cljr--in-ns-above-point-p))
+                          (not (cljr--in-reader-literal-p))
+                          (not (cider-in-comment-p))
+                          (not (cider-in-string-p))
+                          (not (cljr--in-keyword-sans-alias-p))
+                          (clojure-find-ns)
+                          (cljr--magic-requires-lookup-alias)))
+    (let ((short (cl-first aliases)))
+      (when-let (long (cljr--prompt-user-for "Require " (cl-second aliases)))
+        (when (and (not (cljr--in-namespace-declaration-p (concat ":as " short "\b")))
+                   (or (not (eq :prompt cljr-magic-requires))
+                       (not (> (length (cl-second aliases)) 1)) ; already prompted
+                       (yes-or-no-p (format "Add %s :as %s to requires?" long short))))
+          (save-excursion
+            (cljr--insert-in-ns ":require")
+            (let ((libspec (format "[%s :as %s]" long short)))
+              (insert libspec)
+              (ignore-errors (cljr--maybe-eval-ns-form))
+              (cljr--indent-defun)
+              (cljr--post-command-message "Required %s" libspec))))))))
 
 (defun cljr--in-namespace-declaration-p (s)
   (save-excursion