fix indentation

emacs-eask · Sep 3, 2023 · 02b676a · 02b676a
1 parent 6e24a8b
commit 02b676a
Showing 1 changed file with 28 additions and 28 deletions.
diff --git a/lisp/_prepare.el b/lisp/_prepare.el
@@ -310,17 +310,17 @@ Arguments FNC and ARGS are used for advice `:around'."
          (fmt (eask--action-format (length package-archives)))
          (download-p))
     (eask-with-verbosity-override 'log
-                                  (when (= 1 eask--action-index) (eask-msg ""))
-                                  (eask-with-progress
-                                    (format "  - %sDownloading %s (%s)... "
-                                            (format fmt eask--action-index)
-                                            (ansi-green (eask-2str name))
-                                            (ansi-yellow (eask-2str url)))
-                                    (eask-with-verbosity 'debug
-                                      (apply fnc args)
-                                      (setq download-p t))
-                                    (cond (download-p "done ✓")
-                                          (t          "failed ✗"))))))
+      (when (= 1 eask--action-index) (eask-msg ""))
+      (eask-with-progress
+        (format "  - %sDownloading %s (%s)... "
+                (format fmt eask--action-index)
+                (ansi-green (eask-2str name))
+                (ansi-yellow (eask-2str url)))
+        (eask-with-verbosity 'debug
+          (apply fnc args)
+          (setq download-p t))
+        (cond (download-p "done ✓")
+              (t          "failed ✗"))))))
 
 (defun eask--download-archives ()
   "If archives download failed; download it manually."
@@ -337,23 +337,23 @@ Arguments FNC and ARGS are used for advice `:around'."
            (fmt (eask--action-format (length package-archives))))
       (unless (file-exists-p local-file)
         (eask-with-verbosity-override 'log
-                                      (when (= 1 eask--action-index) (eask-msg ""))
-                                      (eask-with-progress
-                                        (format "  - %sDownloading %s (%s) manually... "
-                                                (format fmt eask--action-index)
-                                                (ansi-green name)
-                                                (ansi-yellow url))
-                                        (eask-with-verbosity 'debug
-                                          (unless local-archive-p
-                                            (if (url-file-exists-p url-file)
-                                                (progn
-                                                  (ignore-errors (make-directory dir t))
-                                                  (url-copy-file url-file local-file t)
-                                                  (setq download-p t))
-                                              (eask-debug "No archive-contents found in `%s'" (ansi-green name)))))
-                                        (cond (download-p      "done ✓")
-                                              (local-archive-p "skipped ✗")
-                                              (t               "failed ✗")))))
+          (when (= 1 eask--action-index) (eask-msg ""))
+          (eask-with-progress
+            (format "  - %sDownloading %s (%s) manually... "
+                    (format fmt eask--action-index)
+                    (ansi-green name)
+                    (ansi-yellow url))
+            (eask-with-verbosity 'debug
+              (unless local-archive-p
+                (if (url-file-exists-p url-file)
+                    (progn
+                      (ignore-errors (make-directory dir t))
+                      (url-copy-file url-file local-file t)
+                      (setq download-p t))
+                  (eask-debug "No archive-contents found in `%s'" (ansi-green name)))))
+            (cond (download-p      "done ✓")
+                  (local-archive-p "skipped ✗")
+                  (t               "failed ✗")))))
       (when download-p (eask-pkg-init t)))))
 
 ;;