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

Add attribute-type and other changes

Browse Source
This commit is contained in:
oakes
2014-01-29 04:21:49 -05:00
parent 21ae11e3d2
commit 5ecdf787b7
3 changed files with 44 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/play_clj/utils.clj
View File

@@ -70,18 +70,24 @@
[k-list ^String divider ^String str-name]
(symbol (str main-package "." (join-keys k-list) divider str-name)))
(defmacro static-camel
"Returns a fully-qualified static method or field whose last item is formatted
in camel case"
[& args]
`~(static-symbol (butlast args) "/" (key->camel (last args))))
(defmacro static-upper
"Returns a fully-qualified static method or field whose last item is formatted
in upper case"
[& args]
`~(static-symbol (butlast args) "/" (key->upper (last args))))
(defmacro static-pascal
"Returns a fully-qualified static method or field whose last item is formatted
in pascal case"
[& args]
`~(static-symbol (butlast args) "/" (key->pascal (last args))))
(defmacro static-camel
"Returns a fully-qualified static method or field whose last item is formatted
in camel case"
[& args]
`~(static-symbol (butlast args) "/" (key->camel (last args))))
(defmacro static-class
"Returns a fully-qualified static class whose last item is formatted in
pascal case"
@@ -100,7 +106,7 @@ pascal case"
(scaling :stretch-x)
(scaling :stretch-y)"
[k]
`(static-lower :utils :Scaling ~k))
`(static-camcel :utils :Scaling ~k))
; java interop