From ae3a80b9472cd348d95ce9a97ef40077bbc18d7c Mon Sep 17 00:00:00 2001 From: "dziltener@lyrion.ch" Date: Wed, 30 Aug 2017 16:28:01 +0000 Subject: [PATCH] Fixed ControllerGen bug. --- .hgignore | 3 +++ src/clojurefx/controllergen.clj | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/.hgignore b/.hgignore index 8d4e496..c465db3 100644 --- a/.hgignore +++ b/.hgignore @@ -29,3 +29,6 @@ out/ .nrepl-port *~ .idea/ + +syntax: glob +*.xml diff --git a/src/clojurefx/controllergen.clj b/src/clojurefx/controllergen.clj index 4b7aab0..98ecdf1 100644 --- a/src/clojurefx/controllergen.clj +++ b/src/clojurefx/controllergen.clj @@ -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)))