Capitalise names of icons, since that seems to be the decision we've made.

This commit is contained in:
Simon Brooke 2019-03-13 15:08:26 +00:00
parent 3f0491d4c5
commit 71d8174869
2 changed files with 5 additions and 4 deletions

View file

@ -2,7 +2,7 @@
:author "Simon Brooke"}
youyesyet.canvasser-app.gis
(:require [cljs.reader :refer [read-string]]
[clojure.string :refer [lower-case]]
[clojure.string :refer [capitalize lower-case]]
[cemerick.url :refer (url url-encode)]
[day8.re-frame.http-fx]
[re-frame.core :refer [dispatch reg-event-db reg-event-fx subscribe]]
@ -74,7 +74,7 @@
(:dwellings address))))))]
(case (count intentions)
0 "unknown-pin"
1 (lower-case (str (name (first intentions)) "-pin"))
1 (capitalize (lower-case (str (name (first intentions)) "-pin")))
"mixed-pin")))

View file

@ -1,7 +1,8 @@
(ns ^{:doc "Canvasser app single elector panel."
:author "Simon Brooke"}
youyesyet.canvasser-app.views.elector
(:require [reagent.core :refer [atom]]
(:require [clojure.string :refer [capitalize]]
[reagent.core :refer [atom]]
[re-frame.core :refer [reg-sub subscribe dispatch]]
[youyesyet.canvasser-app.ui-utils :as ui]))
@ -51,7 +52,7 @@
"Generate a row showing this `option` for this elector."
[elector option]
(let [optid (:id option)
optname (name optid)]
optname (capitalize (name optid))]
[:tr {:key (str "options-" optname)}
(let [selected (= optid (:intention elector))
image (if selected (str "img/option/" optname "-selected.png")