summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--resources/css/style.css2
-rw-r--r--src/votann/codex_view.clj23
-rw-r--r--src/votann/core.clj4
-rw-r--r--src/votann/current_list_widget.clj2
4 files changed, 24 insertions, 7 deletions
diff --git a/resources/css/style.css b/resources/css/style.css
index cc21013..8476c73 100644
--- a/resources/css/style.css
+++ b/resources/css/style.css
@@ -37,7 +37,7 @@ stats-two {
content {
display: flex;
align-items: stretch;
- min-height: 573px;
+ min-height: 617px;
margin-left: 50px;
margin-right: 50px;
border-left: solid;
diff --git a/src/votann/codex_view.clj b/src/votann/codex_view.clj
index 89bff26..ff50453 100644
--- a/src/votann/codex_view.clj
+++ b/src/votann/codex_view.clj
@@ -124,7 +124,9 @@
(:a weapon)
(:bs weapon)
(:s weapon)
- (:ap weapon)
+ (if (= 0 (:ap weapon))
+ 0
+ (str "-" (:ap weapon)))
(:d weapon)))])
(if-not (empty? melee)
@@ -137,7 +139,9 @@
(:a weapon)
(:bs weapon)
(:s weapon)
- (:ap weapon)
+ (if (= 0 (:ap weapon))
+ 0
+ (str "-" (:ap weapon)))
(:d weapon)))])])
(defn column-1 [ranged-weapons melee-weapons]
@@ -247,7 +251,20 @@
(defn content [model]
[:content
- (column-1 (:ranged-weapons model) (:melee-weapons model))
+ (column-1 (-> (map (fn [model]
+ (:ranged-weapons model)) (:bodyguards model))
+ (concat (:ranged-weapons model))
+ (flatten)
+ (->>
+ (distinct)
+ (sort-by :name)))
+ (-> (map (fn [model]
+ (:melee-weapons model)) (:bodyguards model))
+ (concat (:melee-weapons model))
+ (flatten)
+ (->>
+ (distinct)
+ (sort-by :name))))
(column-2 model)])
(defn bottom [model]
diff --git a/src/votann/core.clj b/src/votann/core.clj
index 9dc46d6..7958151 100644
--- a/src/votann/core.clj
+++ b/src/votann/core.clj
@@ -9,8 +9,8 @@
{:fx/type :stage
:max-width 1340
:min-width 1340
- :max-height 1000
- :min-height 1000
+ :max-height 1018
+ :min-height 1018
:on-close-request (fn [_] (System/exit 0))
:icons [(get-resource-path (str "icons/256x256.png"))
(get-resource-path (str "icons/48x48.png"))
diff --git a/src/votann/current_list_widget.clj b/src/votann/current_list_widget.clj
index b6915df..0a75fca 100644
--- a/src/votann/current_list_widget.clj
+++ b/src/votann/current_list_widget.clj
@@ -43,7 +43,7 @@
(defn current-list-widget [{:keys [units]}]
{:fx/type :scroll-pane
- :pref-height 860
+ :pref-height 904
:pref-width 300
:content {:fx/type :v-box
:alignment :top-center