Fixed ControllerGen bug.

This commit is contained in:
Daniel Ziltener 2017-08-30 16:28:01 +00:00
parent a5e7f42a26
commit ae3a80b947
2 changed files with 5 additions and 1 deletions

View file

@ -29,3 +29,6 @@ out/
.nrepl-port
*~
.idea/
syntax: glob
*.xml

View file

@ -107,7 +107,8 @@
(defn gen-fx-controller-class [fxmlpath 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)))
clazz (get-controller-class fxmlzip)
[pkg classname] (reverse (map str/reverse (str/split (str/reverse clazz) #"\." 2)))