Fixed ControllerGen bug.
This commit is contained in:
parent
a5e7f42a26
commit
ae3a80b947
2 changed files with 5 additions and 1 deletions
|
@ -29,3 +29,6 @@ out/
|
||||||
.nrepl-port
|
.nrepl-port
|
||||||
*~
|
*~
|
||||||
.idea/
|
.idea/
|
||||||
|
|
||||||
|
syntax: glob
|
||||||
|
*.xml
|
||||||
|
|
|
@ -107,7 +107,8 @@
|
||||||
|
|
||||||
(defn gen-fx-controller-class [fxmlpath clj-fn]
|
(defn gen-fx-controller-class [fxmlpath clj-fn]
|
||||||
(let [clj-fn (if (symbol? clj-fn)
|
(let [clj-fn (if (symbol? clj-fn)
|
||||||
(str (namespace clj-fn) "/" (name clj-fn)))
|
(str (namespace clj-fn) "/" (name clj-fn))
|
||||||
|
clj-fn)
|
||||||
fxmlzip (zip-tree-seq (xml/parse (io/input-stream fxmlpath)))
|
fxmlzip (zip-tree-seq (xml/parse (io/input-stream fxmlpath)))
|
||||||
clazz (get-controller-class fxmlzip)
|
clazz (get-controller-class fxmlzip)
|
||||||
[pkg classname] (reverse (map str/reverse (str/split (str/reverse clazz) #"\." 2)))
|
[pkg classname] (reverse (map str/reverse (str/split (str/reverse clazz) #"\." 2)))
|
||||||
|
|
Loading…
Reference in a new issue