    [atom-finder.util :refer :all]
    [atom-finder.atom-patch :refer :all]
    [atom-finder.questions.question-util :refer :all]
+   [clj-cdt.clj-cdt :refer :all]
+   [clj-cdt.expr-operator :refer :all]
+   [clj-cdt.writer-util :refer :all]
    [clojure.pprint :refer [pprint]]
    [clojure.string :as string]
    [swiss.arrows :refer :all]

           :file (atom-finder-relative-path file))))
       (map prn)
       dorun
       (log-to "tmp/all-node-counts_2018-01-22_opname.edn")
       time-mins
       ))

;; Total node counts in entire corpus
'((->>
   "tmp/all-node-counts_2018-01-22_opname.edn"
   read-lines
   (map (partial-right dissoc :file))
   (apply merge-with +)
   (sort-by (comp - last))
   (map (partial zipmap [:node-type :count]))
   (maps-to-csv "tmp/all-node-counts_2018-01-22_opname.csv")
   time-mins
   ))

(defn c-files-no-cpp-or-h
  "Search directory structure for C-only files"

       files-in-dir
       (filter #(->> %1 .getName file-ext #{"c"} (and (.isFile %1))))))

(defn summarize-all-nodes [edn-file csv-file]
  (->>
   edn-file
   read-lines
   (map (partial-right dissoc :file))
   (apply merge-with +)
   (sort-by (comp - last))
   (map (partial zipmap [:node-type :count]))
   (maps-to-csv csv-file)
   time-mins
   ))

(defn main-all-nodes
  []
  (let [edn-file "tmp/all-node-counts_2018-08-31_for-esem.edn"
        csv-file "src/analysis/data/all-node-counts_2018-08-31_for-esem.csv"]
    (count-all-nodes-in-project edn-file)
    (summarize-all-nodes edn-file csv-file)
  ))
