(ns myapp.desktop
  (:require
    [clojure.java.io :refer [resource input-stream]]))

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

(defn ^:Private myapp-desktop-start [app ^javafx.stage.Stage stage]
  "Implements javafx.application.Application.start(javafx.stage.Stage)."
  (let [ bundle (java.util.ResourceBundle/getBundle "DesktopWindow")
         loader (doto (javafx.fxml.FXMLLoader.) (.setResources bundle))
         stream (-> "DesktopWindow.fxml" resource input-stream)
           node (. loader (load stream))
          scene (javafx.scene.Scene. node 640 480)
          title (. bundle (getString "window.title")) ]
    (doto stage
      (.setTitle title)
      (.setScene scene)
      (.show))))

(defn start-desktop
  "Launch our desktop subclass of javafx.application.Application."
  [args]
  (javafx.application.Application/launch Desktop args))