diff options
| author | 0xNul <57599792+0xNul@users.noreply.github.com> | 2023-07-10 23:16:02 -0700 |
|---|---|---|
| committer | 0xNul <57599792+0xNul@users.noreply.github.com> | 2023-07-10 23:16:02 -0700 |
| commit | 3c8481ad4812ab903f14dd306b1e3b3204cd1fdf (patch) | |
| tree | 7dd4bec4c4bcfefcf3379d81aee738b0a0d74723 /src | |
| parent | a3de04f403d7604d57912603edd0f7457ad94579 (diff) | |
clean up tab widget code
Diffstat (limited to 'src')
| -rw-r--r-- | src/votann/tab_widget.clj | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/src/votann/tab_widget.clj b/src/votann/tab_widget.clj index ab6a8ae..e7ff9c1 100644 --- a/src/votann/tab_widget.clj +++ b/src/votann/tab_widget.clj @@ -5,19 +5,24 @@ [votann.enhancements-widget :refer [enhancements-view-widget]] [cljfx.api :as fx])) +(defn list-view-tab [data] + [{:fx/type :tab + :text "List" + :closable false + :content (list-view-widget data)}]) + +(def unit-view-tab + (vec (for [unit get-models] + {:fx/type :tab + :text unit + :closable false + :content (unit-view-widget (unit-file-name unit))}))) + +(def enhancements-view-tab + [{:fx/type :tab + :text "Enhancements" + :closable false + :content enhancements-view-widget}]) + (defn tab-widget [data] - (vec (apply merge - (vec (apply merge - [{:fx/type :tab - :text "List" - :closable false - :content (list-view-widget data)}] - (vec (for [unit get-models] - {:fx/type :tab - :text unit - :closable false - :content (unit-view-widget (unit-file-name unit))})))) - [{:fx/type :tab - :text "Enhancements" - :closable false - :content enhancements-view-widget}]))) + (vec (apply concat [(list-view-tab data) unit-view-tab enhancements-view-tab]))) |