luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Maintain the arglist metadata for helpers

Browse source 
This should hopefully make documentation via clojure.repl/doc and
others a bit more readable.
This commit is contained in:
Gary Fredericks 2014-05-01 17:26:33 +00:00
parent 88bc556578
commit edd268ae7d
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/honeysql/helpers.clj
View file

@ -10,11 +10,14 @@
(let [kw (keyword (name helper))] (let [kw (keyword (name helper))]
`(do `(do
(defmethod build-clause ~kw ~(into ['_] arglist) ~@more) (defmethod build-clause ~kw ~(into ['_] arglist) ~@more)
(defn ~helper [& args#] (doto (defn ~helper [& args#]
(let [[m# args#] (if (map? (first args#)) (let [[m# args#] (if (map? (first args#))
[(first args#) (rest args#)] [(first args#) (rest args#)]
[{} args#])] [{} args#])]
(build-clause ~kw m# args#)))))) (build-clause ~kw m# args#)))
;; maintain the original arglist instead of getting
;; ([& args__6880__auto__])
(alter-meta! assoc :arglists '(~arglist))))))
(defn collify [x] (defn collify [x]
(if (coll? x) x [x])) (if (coll? x) x [x]))