factor out pages and util namespaces per #6

1 files changed, 16 insertions, 0 deletions

diff --git a/src/pronouns/util.clj b/src/pronouns/util.clj
new file mode 100644
index 0000000..1269664
--- /dev/null
+++ b/src/pronouns/util.clj
@@ -0,0 +1,16 @@
+(ns pronouns.util
+  (:require [clojure.string :as s]))
+
+(defn slurp-tabfile [path]
+  (let [lines (s/split (slurp path) #"\n")]
+    (map #(s/split % #"\t") lines)))
+
+(defn table-lookup
+  [query-key table]
+  (let [arity (count query-key)
+        filtered-table (filter #(= query-key (take arity %)) table)]
+    (first filtered-table)))
+
+(defn tabfile-lookup
+  [query-key tabfile]
+  (table-lookup query-key (slurp-tabfile tabfile)))