kimendisch/pronoun.lol
0
0
Fork 0
Code Issues Pull Requests Projects Activity

Fix docstrings

Browse Source
This commit is contained in:
Morgan Astra 2018-11-14 12:48:47 -08:00
parent 788bfa8cd7
commit 05a2d8fcff
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/pronouns/util.clj
View File

@ -19,8 +19,9 @@
(defn print-and-return "for debugging" [x] (println x) x) (defn print-and-return "for debugging" [x] (println x) x)
(defn slurp-tabfile [path] (defn slurp-tabfile
"read a tabfile from a filesystem <path> as a table" "Read a tabfile from a filesystem <path> as a table"
[path]
(let [lines (s/split (slurp path) #"\n")] (let [lines (s/split (slurp path) #"\n")]
(map #(s/split % #"\t") lines))) (map #(s/split % #"\t") lines)))
@ -98,10 +99,11 @@
[table] [table]
(map (partial shortest-unambiguous-path table) table)) (map (partial shortest-unambiguous-path table) table))
(defn vec-coerce [x] (defn vec-coerce
"wrap a value <x> in a vector if it is not already in one. note that if "wrap a value <x> in a vector if it is not already in one. note that if
<x> is already in a sequence for which vector? is false, this will add <x> is already in a sequence for which vector? is false, this will add
another layer of nesting." another layer of nesting."
[x]
(if (vector? x) x [x])) (if (vector? x) x [x]))
(defn strip-markup [form] (defn strip-markup [form]