print it right!!

Author: escherize

.github/workflows/process_docs_changes.yml

@@ -74,7 +74,7 @@ jobs:
         run: |
           script/links || true
           echo 'checking reported links...'
-          cat htmlproofer.out | wc -l
+          echo "htmlproofer spit out a report of length: $(cat htmlproofer.out | wc -l)"
           bb script/analyze_links.clj --htmlproofer-output htmlproofer.out
           exit 1
 

script/analyze_links.clj

@@ -126,16 +126,19 @@
         _                         (println (count external-or-missing-links) "reported links without redirects.")
         _                         (println "Checking if the missing links are live on https://metabase.com ...")
         out                       (check-broken-links external-or-missing-links)]
-    (prn ["htmlproofer links:"]
-         (doseq [l (sort (set htmlproofer-links))]
-           (println " " l)))
-    (prn ["redirects:"]
-         (doseq [l (sort (set redirects))]
-           (println " " l)))
-    (prn ["external-or-missing-links:"]
-         (doseq [l (sort (set external-or-missing-links))]
-           (println " " l)))
-
+    (println ">>>>>>>>>> htmlproofer links <<<<<<<<<")
+    (doseq [l (sort (set htmlproofer-links))]
+      (println " " l))
+    (println "\n\n\n")
+    (println ">>>>>>>>>> redirects <<<<<<<<<")
+    (doseq [l (sort (set redirects))]
+      (println " " l))
+    (println "\n\n\n")
+    (println ">>>>>>>>>> external-or-missing-links <<<<<<<<<")
+    (doseq [l (sort (set external-or-missing-links))]
+      (println " " l))
+
+    (println "\n\n\n")
     (if (zero? (:broken-count out))
       (do
         (println "Done. OK.")
@@ -147,6 +150,12 @@
 (when (= *file* (System/getProperty "babashka.file"))
   (apply -main *command-line-args*))
 
+
+(comment
+
+
+  )
+
 (comment
 
   (def opts {:htmlproofer-output "htmlproofer.out"})