notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make calls! more reliable

Browse Source
This commit is contained in:
oakes
2014-01-12 02:57:03 -05:00
parent 489ffe0c0f
commit d758e4f89c
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/play_clj/utils.clj
View File

@@ -56,17 +56,18 @@
[a] [a]
(Array. true (into-array a) 1 (count a))) (Array. true (into-array a) 1 (count a)))
(defn create-method-call
[[k v]]
(flatten (list (key->method k) (try (eval v)
(catch Exception _ v)))))
(defmacro call! (defmacro call!
[obj k & args] [obj k & args]
`(~(key->method k) ~obj ~@args)) `(~(key->method k) ~obj ~@args))
(defn calls!*
[[k v]]
(flatten (list (key->method k) (eval v))))
(defmacro calls! (defmacro calls!
[obj & {:keys [] :as args}] [obj & {:keys [] :as args}]
`(doto ~obj ~@(map calls!* args))) `(doto ~obj ~@(map create-method-call args)))
(defmulti create-entity class) (defmulti create-entity class)