      (log-to "tmp/code-age_all_2018-01-16_00_clang-emacs.edn")
      ))
 
-'((->>
-   "tmp/code-age_all_2018-01-16_all_per-year_combined.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))

       (map prn)
       )
  )

   (filter :date)
   (sort-by (juxt :project :date))
   reverse
   (maps-to-csv csv-file)
   time-mins
   ))

