tweaking charts for color blind people

StankovicMarko · Sep 7, 2017 · 0023852 · 0023852
1 parent 7e04f33
commit 0023852
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/src/clj/htembh/routes/results.clj b/src/clj/htembh/routes/results.clj
@@ -65,9 +65,9 @@
           green (:green p-range)
           yellow (:yellow p-range)]
       (cond
-        (< res-p green) (add-color map "green")
-        (and (>= res-p green) (< res-p yellow)) (add-color map "yellow")
-        :else (add-color map "red")))))
+        (< res-p green) (add-color map "Green")
+        (and (>= res-p green) (< res-p yellow)) (add-color map "Yellow")
+        :else (add-color map "Red")))))
 
 (defn make-total [seq]
   (conj (vec seq) {:topic "TOTAL"

diff --git a/src/cljs/htembh/components/results.cljs b/src/cljs/htembh/components/results.cljs
@@ -14,7 +14,14 @@
            :title {:text "Points"
                    :align "high"}
            :labels {:overflow "justify"}}
-   :tooltip {:valueSuffix " points"}
+   :tooltip {
+             :headerFormat "<b>{point.x}</b><br/>"
+             :pointFormat "<div style=\"margin-right: 3px; margin-top: 5px; float: left; height: 5px; width: 5px; border-radius: 50%; background:{point.color}\">
+             </div>{series.name}: <b>{point.y} points</b><br/>Priority: <b>{point.color}</b>"
+             :useHTML true
+
+             }
+   ;; {:valueSuffix " points"}
    :plotOptions {:column {:dataLabels {:enabled true}}}
    :legend {:layout "vertical"
             :align "center"