simon/youyesyet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

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

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/cljs/youyesyet/canvasser_app/gis.cljs
View file

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

5
src/cljs/youyesyet/canvasser_app/views/elector.cljs
View file

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