From bfabf338427b166a6012e12d38138e0aa8e5fd20 Mon Sep 17 00:00:00 2001
From: Andros Fenollosa <andros@fenollosa.email>
Date: Wed, 9 Oct 2019 19:50:14 +0200
Subject: [PATCH] Save in exceptions

---
 resources/top-1m-test.csv   |  8 ++++----
 src/wordpress_used/core.clj | 21 ++++++++++++++-------
 2 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/resources/top-1m-test.csv b/resources/top-1m-test.csv
index 911c049..6d40284 100644
--- a/resources/top-1m-test.csv
+++ b/resources/top-1m-test.csv
@@ -1,4 +1,4 @@
-1,google.com
-2,youtube.com
-4,tmall.com
-5,idecrea.es
\ No newline at end of file
+1,google.com,true
+2,youtube.com,false
+4,tmall.com,nil
+5,idecrea.es,nil
\ No newline at end of file
diff --git a/src/wordpress_used/core.clj b/src/wordpress_used/core.clj
index 247f0eb..87edfd4 100644
--- a/src/wordpress_used/core.clj
+++ b/src/wordpress_used/core.clj
@@ -26,10 +26,17 @@
 (defn -main
   [& args]
   (let [;; Name of the file containing the CSV with the domains
-        file-csv       "top-1m-test.csv"
-        ;; List with domains
-        domains        (read-csv-domains file-csv)
-        ;; List with domains with a boolean indicating if it is generate or not in WordPress
-        domains-checks (doall (vec (map #(conj % (wordpress? (get % 1))) domains)))]
-    ;; Save domains to CSV
-    (save-csv-domains file-csv domains-checks)))
+        file-csv          "top-1m-test.csv"
+        ;; Get domains from CSV
+        domains-csv       (vec (read-csv-domains file-csv))
+        ;; Filters leaving those that have not been checked
+        domains-unchecked (filter #(= (get % 2) "nil") domains-csv)]
+    (def mod-domains-csv domains-csv)
+    ;; List with domains with a boolean indicating if it is generate or not in WordPress
+    (doseq [domain-data domains-unchecked] (let [domain          (get domain-data 1)
+                                                 ;; Check if domain it is generate or not in WordPress
+                                                 check-wordpress (wordpress? domain)]
+                                             ;; Edit domains-csv with check WordPress 
+                                             (def mod-domains-csv (map #(-> (if (= domain (get % 1)) (assoc % 2 (str check-wordpress)) %)) mod-domains-csv))
+                                             ;; Save domains to CSV
+                                             (save-csv-domains file-csv mod-domains-csv)))))