add "tools" namespace, for handy development functions/code

This commit is contained in:
Gered 2016-03-08 18:21:06 -05:00
parent 10c1fa60cf
commit 331b4a0134

View file

@ -0,0 +1,25 @@
(ns tools
(:import
(java.util TimeZone))
(:require
[clojure.java.io :as io])
(:use
vwowrla.core.parser))
(def opts {:log-owner-char-name "Blasticus"
:year 2016
:timezone (TimeZone/getDefault)
:windows? false})
(defn collect-unique-entity-names
[f options]
(with-open [rdr (io/reader f)]
(->> (line-seq rdr)
(reduce
(fn [entity-names ^String line]
(let [event (parse-line line options)]
(-> entity-names
(conj (:source-name event))
(conj (:target-name event)))))
#{})
(remove nil?))))