JavaFX Clojure app template

core.clj

(ns myapp.core (:gen-class))

(gen-class
  :name myapp.Application
  :extends javafx.application.Application
  :prefix "myapp-")

(defn ^:Private myapp-start
  "Implements javafx.application.Application.start."
  [app ^javafx.stage.Stage stage]
  (let [ args (into-array String (-> app .getParameters .getRaw))
        ] ; TODO Create a Scene or load one from fxml.
    ; args is now a similar seq as was passed to -main originally.
    ; Do all program init in here.
    (doto stage
      (.setTitle "Hi I'm a window.")
      ;(.setScene scene)
      (.show))))

(defn -main
  "Program launcher."
  [& args]
  (javafx.application.Application/launch myapp.Application (into-array String args)))

dev.clj

(ns myapp.dev
  (:require [myapp.core :refer [-main]]))

(defn dev-start
  [& args]
  (.start (Thread. (fn [] (apply -main args)))))

(dev-start "--arg1" "--arg2" "blah")

project.clj

(defproject myapp "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.6.0"]]
  :main myapp.core 
  :aot [myapp.core]) ; Need this to generate our Application class.