        (map prn)
        )
   )
+
+  (defn main-code-age
+    []
+    (let [edn-file "tmp/code-age_all_2018-08-30_parse-source-args.edn"
+          csv-file "tmp/code-age_all_2018-08-30_parse-source-args.csv"]
+      (println (str (now)))
+      (atoms-on-the-first-of-every-month edn-file)
+      (summarize-code-age edn-file csv-file)
+      ))

   (filter :date)
   (sort-by (juxt :project :date))
   reverse
   (maps-to-csv "tmp/code-age_all_2018-01-16_all_per-year_combined.csv")
   time-mins
   ))


     (log-to "tmp/code-age_all_2018-01-16_00_clang-emacs.edn")
     ))

(defn summarize-code-age [edn-file csv-file]
  (->>
   edn-file
   read-lines
   (take 20)
   (filter :path)
   ;(remove #(->> % :path (re-find #"test\/|\/test")))
   (group-by (juxt :date :project :rev-str))
