videocapture.settings - Videocapture

(defn init-config-list [instance]
  (let [config-box ^ChoiceBox (.-configBox instance)
	config-choices (keys (get-setting :configs))]
    (debug config-choices)
    (.addAll (.getItems config-box) (into-array String (map name config-choices)))
    (.setValue config-box (name (get-setting :configuration)))))

(defn init-group-list [instance]
  (.setText (.-roomNumber instance) (get-setting :form :room))
  (let [group-list ^ListView (.-groupList instance)]
    (.setSelectionMode (.getSelectionModel group-list) SelectionMode/SINGLE)
    (.addAll (.getItems group-list) (into-array String (get-setting :form :groups)))
    (.setOnMouseClicked group-list (fx/fi javafx.event.EventHandler [event]
					  (.setText ^TextField (.-groupInput instance)
						    (-> group-list .getSelectionModel .getSelectedItem))))))

(defn init-camera-pane [instance]
  (.setText (.-camType instance) (name (get-setting :camera :type)))
  (.setText (.-camAddress instance) (get-setting :camera :address))
  (.setText (.-camUsername instance) (get-setting :camera :username))
  (.setText (.-camPassword instance) (get-setting :camera :password)))

(defn init-server-pane [instance]
  (.setText (.-smbServer instance) (get-setting :smb :dns))
  (.setText (.-smbDir instance) (get-setting :smb :directory))
  (.setText (.-smbUser instance) (get-setting :smb :username))
  (.setText (.-smbPassword instance) (get-setting :smb :password)))

(defn init-supervisor-pane [instance]
  (if (get-setting :clients :activated)
    (do (.setText (.-supervisorState instance) "Aktiviert")
	(.setSelected (.-supervisorState instance) true))
    (do (.setText (.-supervisorState instance) "Deaktiviert")
	(.setSelected (.-supervisorState instance) false)))
  (.setOnAction (.-supervisorState instance) (fx/fi javafx.event.EventHandler [event]
						    (if (= (.getText (.-supervisorState instance)) "Aktiviert")
						      (.setText (.-supervisorState instance) "Deaktiviert")
						      (.setText (.-supervisorState instance) "Aktiviert"))))

  (let [source-list ^ListView (.-sourceList instance)]
    (.setSelectionMode (.getSelectionModel source-list) SelectionMode/SINGLE)
    (.addAll (.getItems source-list) (into-array String (get-setting :supervisor :videosources)))
    (.setOnMouseClicked source-list (fx/fi javafx.event.EventHandler [event]
					   (.setText ^TextField (.-sourceInput instance)
						     (-> source-list .getSelectionModel .getSelectedItem))))))

(defn stage-init [instance]

  (init-config-list instance)
  (init-group-list instance)
  (init-camera-pane instance)
  (init-supervisor-pane instance)
  (init-server-pane instance)
  )

(defn init "This initializes the settings window." [^Window parent]
  (let [stage (new Stage)
	content (fxml/load-fxml-with-controller (io/resource "fxml/settings.fxml") "videocapture.settings/stage-init")
	scene (new javafx.scene.Scene content 1024 768)]
    (.add (.getStylesheets scene) (.toExternalForm (io/resource "css/gui.css")))
    (.initOwner stage parent)
    (.initModality stage Modality/WINDOW_MODAL)
    (.setTitle stage "Einstellungen")
    (.setScene stage scene)
    (.show stage)
    stage))

(defn move-listview-item [listview direction]
  (let [items (.getItems listview)
	index (-> listview .getSelectionModel .getSelectedIndex)
	item (-> listview .getSelectionModel .getSelectedItem)
	new-index (if (= direction :up) (dec index) (inc index))]
    (when-not (or (= -1 new-index) (= (count items) new-index))
      (.remove items index (inc index))
      (.add items new-index item)
      (.selectIndices (.getSelectionModel listview) new-index (int-array [])))))

(defn source-add [instance event]
  (let [source-input ^TextField (.-sourceInput instance)]
    (.add (.getItems ^ListView (.-sourceList instance)) (.getText source-input))
    (.setText source-input "")))

(defn add-group [instance event]
  (let [group-input ^TextField (.-groupInput instance)]
    (.add (.getItems ^ListView (.-groupList instance)) (.getText group-input))
    (.setText group-input "")))

(defn rm-group [instance event]
  (let [group-input ^TextField (.-groupInput instance)
	item (-> instance .-groupList .getSelectionModel .getSelectedItem)]
    (.setText group-input "")
    (.remove ^List (.getItems (.-groupList instance)) ^String item)))

(defn source-del [instance event]
  (let [source-input ^TextField (.-sourceInput instance)
      item (-> instance .sourceList .getSelectionModel .getSelectedItem)]
    (.setText source-input "")
    (.remove ^List (.getItems (.-sourceList instance)) ^String item)))

(defn source-mv-up [instance event]
  (move-listview-item (.-sourceList instance) :up))

(defn source-mv-down [instance event]
  (move-listview-item (.-sourceList instance) :down))

(defn mv-up-group [instance event]
  (move-listview-item (.-groupList instance) :up))

(defn mv-down-group [instance event]
  (move-listview-item (.-groupList instance) :down))

(defn save-supervisor-pane [settings instance]
  (let [activated (.isSelected (.-supervisorState instance))
	items (.getItems (.-sourceList instance))]
    (-> settings
	(assoc-in [:supervisor :activated] activated)
	(assoc-in [:supervisor :videosources] (into [] items)))))

(defn save [instance event]
  (reset! (:settings @settings)
	  (-> @(:settings @settings)
	      (assoc-in [:form :room] (.getText (.-roomNumber instance)))
	      (assoc-in [:form :groups] (into [] (.getItems (.-groupList instance))))
	      (assoc :camera {:type (keyword (.getText (.-camType instance)))
			      :address (.getText (.-camAddress instance))
			      :username (.getText (.-camUsername instance))
			      :password (.getText (.-camPassword instance))})
	      (assoc :configuration (keyword (.getValue (.-configBox instance))))
	      (assoc :smb {:username (.getText (.-smbUser instance))
			   :password (.getText (.-smbPassword instance))
			   :dns (.getText (.-smbServer instance))
			   :directory (.getText (.-smbDir instance))})
	      (save-supervisor-pane instance)))
  (pprint/pprint @(:settings @settings) (io/writer "settings.edn"))
  (-> instance .-toplevel .getScene .getWindow .hide))

(defn cancel [instance event]
  (-> instance .-toplevel .getScene .getWindow .hide))