    [schema.core :as s]
    [clojure.data.csv :as csv]
    [clojure.string :as str]
+   [clj-cdt.clj-cdt :refer :all]
    )
   (:import
    [org.eclipse.cdt.core.dom.ast IASTNode]

       (log-to "tmp/comment-counts_2018-01-26_01_proximity-1-line.edn")
       time-mins
   ))

    ))

;; 33 hours
(defn comment-counts-wrt-atoms [edn-file]
  (->> "~/opt/src/atom-finder"
       expand-home
       (pmap-dir-trees atoms-by-comments&function)
       ;;(take 2)
       (mapcat (fn [file-nodes]
                 (->> file-nodes
                      (map #(assoc % :file (->> % :file atom-finder-relative-path)))
                      (map (partial-right dissoc :node))
                      frequencies
                      )))
       (map prn)
       dorun
       (log-to edn-file)
       time-mins
   ))

