diff options
author | Morgan Astra <m@morganastra.me> | 2018-11-14 12:48:47 -0800 |
---|---|---|
committer | Morgan Astra <m@morganastra.me> | 2018-11-14 12:48:47 -0800 |
commit | 05a2d8fcff181a09ca7f79ad7590dab24575ab0d (patch) | |
tree | bf743fb7e0e0b87e54251caf0731d0b1edd8a523 | |
parent | 788bfa8cd7a759aa531786abdd05274520154a99 (diff) |
Fix docstrings
-rw-r--r-- | src/pronouns/util.clj | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/pronouns/util.clj b/src/pronouns/util.clj index 3db3c35..01571b6 100644 --- a/src/pronouns/util.clj +++ b/src/pronouns/util.clj @@ -19,8 +19,9 @@ (defn print-and-return "for debugging" [x] (println x) x) -(defn slurp-tabfile [path] - "read a tabfile from a filesystem <path> as a table" +(defn slurp-tabfile + "Read a tabfile from a filesystem <path> as a table" + [path] (let [lines (s/split (slurp path) #"\n")] (map #(s/split % #"\t") lines))) @@ -98,10 +99,11 @@ [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 <x> is already in a sequence for which vector? is false, this will add another layer of nesting." + [x] (if (vector? x) x [x])) (defn strip-markup [form] |