core.clj

(ns hoplonfx.core
  (:require
    [hoplonfx.ui :refer [run]]
    [hoplonfx.util :refer :all])
  (:import
    [hoplonfx ApplicationShim]
    [javafx.application Application]))

(defonce stage
  (delay
    (with-promise [q]
      (Application/launch
        ApplicationShim
        (->> (meta (deftmp #(deliver q %)))
             ((juxt :ns :name))
             ((conxt (comp str ns-name) str))
             (into-array String))))))

(defn set-scene!
  [scene]
  @stage
  (run (.setScene @stage scene)))

(defn set-title!
  [title]
  @stage
  (run (.setTitle @stage title)))

(comment

  (do (require
        '[hoplonfx.ui :refer :all]
        '[javelin.core-clj :refer :all])
      (import
        '[javafx.geometry Insets Pos]))

  (defonce n (cell 0))

  (set-title! "hello world")

  (set-scene!
    ((scene 800 600)
      ((stackpane)
        ((vbox)
          :alignment [Pos/CENTER]
          ((label)
            :padding [(Insets. 12)]
            :text [(cell= (format "clicks: %d" n))])
          ((button)
            :text ["OH SHEEITT!!"]
            :on-action (fn [_ _] (swap! n inc)))))))

  )