add "tools" namespace, for handy development functions/code
This commit is contained in:
parent
10c1fa60cf
commit
331b4a0134
25
vwowrla.core/repl/tools.clj
Normal file
25
vwowrla.core/repl/tools.clj
Normal 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?))))
|
Reference in a new issue