Написание проекта JavaFX в Clojure

Question

Я пытаюсь понять, как правильно настроить JavaFX для работы с проектом Clojure. Читая различные источники, это то, что я придумал:

Это project.clj:

(defproject cljfx "0.1.0-SNAPSHOT" 
    :description "FIXME: write description" 
    :url "http://example.com/FIXME" 
    :license {:name "Eclipse Public License" 
      :url "http://www.eclipse.org/legal/epl-v10.html"} 
    :dependencies [[org.clojure/clojure "1.8.0"]] 
    :resource-paths ["lib/jfxrt.jar"] 
    :main ^:skip-aot cljfx.core 
    :target-path "target/%s" 
    :profiles {:uberjar {:aot :all}}) 

Я не знаю, если я должен использовать: ресурсные пути или добавить JavaFX путь к классам с помощью: вектора зависимостей ...

Это core.clj:

Я в основном переведен на Clojure пример из этого урока:

http://docs.oracle.com/javafx/2/get_started/hello_world.htm

(ns cljfx.core 
    (:gen-class 
    :extends javafx.application.Application) 
    (:import 
    [javafx.application Application] 
    [javafx.stage Stage] 
    [javafx.scene Scene] 
    [javafx.scene.control Button] 
    [javafx.scene.layout StackPane] 
    [javafx.event ActionEvent EventHandler])) 


(defn -main [& args] 
    (Application/launch cljfx.core args)) 

(defn button [text] 
    (doto (Button.) 
    (.setText (str "Say " text)) 
    (.setOnAction (proxy [EventHandler] [] 
        (handle [event] 
         (println text)))))) 

(defn -start [primaryStage] 
    (let [root (doto (StackPane.) 
       (-> (.getChildren) 
        (.add (button "Hello World!"))))] 
    (doto primaryStage 
     (.setScene (Scene. root 300 250)) 
     (.show)))) 

Это не компилируется, и я не знаю, что я делаю неправильно ... Вы можете мне помочь?

Здесь ошибка: http://pastebin.com/sYeK7MJd

Answer 1

Там могут быть и другие проблемы, но корень проблемы в журнале Pastebin является:

Caused by: clojure.lang.ArityException: Wrong number of args (2) passed to: core/-start 

При использовании GEN-класса и обеспечение реализации методов, каждый метод необходимо взять экземпляр как первый параметр. Соглашение состоит в том, чтобы использовать «это»:

(defn -start [this primaryStage] 

Попробуйте сделать это, и убедитесь, что местные вызовы методов экземпляра применяются к «это».