CamelCase fix
This commit is contained in:
parent
71e1150834
commit
257f63fba4
3 changed files with 9 additions and 5 deletions
|
@ -1,12 +1,12 @@
|
||||||
[![License](//img.shields.io/badge/license-LGPL-blue.svg?style=flat)](https://www.gnu.org/licenses/lgpl-3.0.en.html#content)
|
[![License](//img.shields.io/badge/license-LGPL-blue.svg?style=flat)](https://www.gnu.org/licenses/lgpl-3.0.en.html#content)
|
||||||
[![Clojars](//img.shields.io/badge/clojars-0.0.20-blue.svg?style=flat)](https://clojars.org/clojurefx/versions/0.0.20)
|
[![Clojars](//img.shields.io/badge/clojars-0.0.21-blue.svg?style=flat)](https://clojars.org/clojurefx/versions/0.0.21)
|
||||||
[![Gratipay](//img.shields.io/gratipay/zilti.svg?style=flat)](//gratipay.com/zilti)
|
[![Gratipay](//img.shields.io/gratipay/zilti.svg?style=flat)](//gratipay.com/zilti)
|
||||||
[![Flattr this](//api.flattr.com/button/flattr-badge-large.png)](https://flattr.com/submit/auto?user_id=zilti&url=https%3A%2F%2Fbitbucket.org%2Fzilti%2Fclojurefx)
|
[![Flattr this](//api.flattr.com/button/flattr-badge-large.png)](https://flattr.com/submit/auto?user_id=zilti&url=https%3A%2F%2Fbitbucket.org%2Fzilti%2Fclojurefx)
|
||||||
|
|
||||||
# ClojureFX
|
# ClojureFX
|
||||||
|
|
||||||
```clojure
|
```clojure
|
||||||
[clojurefx "0.0.20"]
|
[clojurefx "0.0.21"]
|
||||||
```
|
```
|
||||||
|
|
||||||
A Clojure extension to make working with [JavaFX](http://download.java.net/jdk8/jfxdocs/index.html) simpler and more idiomatic. It allows you to naturally work with stock JavaFX components through use of extended protocols. Should a feature be missing you can easily extend ClojureFX in your own codebase or just fall back to standard JavaFX methods.
|
A Clojure extension to make working with [JavaFX](http://download.java.net/jdk8/jfxdocs/index.html) simpler and more idiomatic. It allows you to naturally work with stock JavaFX components through use of extended protocols. Should a feature be missing you can easily extend ClojureFX in your own codebase or just fall back to standard JavaFX methods.
|
||||||
|
|
|
@ -1,4 +1,7 @@
|
||||||
(defproject clojurefx "0.0.20"
|
(defproject clojurefx "0.0.21"
|
||||||
|
:description "A Clojure wrapper for JavaFX."
|
||||||
|
:license "Like Clojure."
|
||||||
|
:url "https://www.bitbucket.org/zilti/clojurefx"
|
||||||
:dependencies [[org.clojure/clojure "1.8.0"]
|
:dependencies [[org.clojure/clojure "1.8.0"]
|
||||||
[swiss-arrows "1.0.0"]
|
[swiss-arrows "1.0.0"]
|
||||||
[com.taoensso/timbre "4.7.4" :exclusions [com.taoensso/carmine]]
|
[com.taoensso/timbre "4.7.4" :exclusions [com.taoensso/carmine]]
|
||||||
|
|
|
@ -33,7 +33,8 @@
|
||||||
javafx.stage.Stage {:style javafx.stage.StageStyle}}))
|
javafx.stage.Stage {:style javafx.stage.StageStyle}}))
|
||||||
|
|
||||||
(defn camelcase [kebabcase]
|
(defn camelcase [kebabcase]
|
||||||
)
|
(let [splitted (str/split kebabcase #"-")]
|
||||||
|
(reduce #(str %1 (str/capitalize %2)) (first splitted) (rest splitted))))
|
||||||
|
|
||||||
;; ## Threading helpers
|
;; ## Threading helpers
|
||||||
|
|
||||||
|
@ -96,7 +97,7 @@
|
||||||
;; ## Properties
|
;; ## Properties
|
||||||
|
|
||||||
(defn find-property [obj prop]
|
(defn find-property [obj prop]
|
||||||
(clojure.lang.Reflector/invokeInstanceMethod obj prop []))
|
(clojure.lang.Reflector/invokeInstanceMethod obj (str (camelcase prop) "Property") []))
|
||||||
|
|
||||||
(defn get-property-value
|
(defn get-property-value
|
||||||
([obj prop]
|
([obj prop]
|
||||||
|
|
Loading…
Reference in a new issue