Minor look-and-feel stuff.
This commit is contained in:
parent
0cb097a64d
commit
0ad6a3e81b
3 changed files with 7 additions and 1 deletions
|
|
@ -72,7 +72,8 @@
|
|||
:motd "This is a test version only. There is no real data."
|
||||
;;; the options from among which electors can select.
|
||||
:options [{:id :yes :description "Yes"} {:id :no :description "No"}]
|
||||
;;; the currently displayed 'page' within the app.
|
||||
;;; the queue of items waiting to be transmitted.
|
||||
:outqueue ()
|
||||
;;; the currently displayed page within the app.
|
||||
:page :home
|
||||
})
|
||||
|
|
|
|||
|
|
@ -79,6 +79,7 @@
|
|||
{:addresses
|
||||
(cons new-address (remove old-address (:addresses db)))
|
||||
:address new-address
|
||||
:elector elector
|
||||
:outqueue (cons (assoc args :action :set-intention) (:outqueue db))}))))))
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue