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

Replaced unhealthy fruit with traditional Scottish superfoods.

Browse source
This commit is contained in:
simon 2014-03-26 22:41:53 +00:00
parent 0c0774de59
commit 747bd2e98b
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/vending/core.clj
View file

@ -2,7 +2,7 @@
(defn make-default-machine [] { :stock {:apples 5 :oranges 5 :lemons 5} (defn make-default-machine [] { :stock {:caramel-wafer 5 :teacake 5 :snowball 5}
:coins {:merk 1 :plack 4 :bawbee 4 :bodle 4} :coins {:merk 1 :plack 4 :bawbee 4 :bodle 4}
:tendered nil :tendered nil
:last-message "" :last-message ""
@ -15,7 +15,7 @@
(.indexOf (keys coin-values) :bodle) (.indexOf (keys coin-values) :bodle)
(def item-prices {:apples 0.65 :oranges 1 :lemons 1.5}) (def item-prices {:caramel-wafer 0.65 :teacake 1 :snowball 1.5})
(defn coin-value [coin] (defn coin-value [coin]
(coin-values coin)) (coin-values coin))
@ -140,7 +140,7 @@
(empty? change) (coin-return) (empty? change) (coin-return)
true (deliver-item machine item change)))) true (deliver-item machine item change))))
(defn get-apple [machine] (defn get-caramel-wafer [machine]
(get-item machine :apples)) (get-item machine :caramel-wafer))

5
src/vending/views/templates/home.html
View file

@ -36,7 +36,10 @@
<td id="plack" class="coins">Placks</td> <td id="plack" class="coins">Placks</td>
<td id="bawbee" class="coins">Bawbees</td> <td id="bawbee" class="coins">Bawbees</td>
<td id="bodle" class="coins">Bodles</td> <td id="bodle" class="coins">Bodles</td>
<td id="change-chute"></td> <td id="change-chute" rowspan="2"></td>
</tr>
<tr>
<td id="message">Last Message</td>
</tr> </tr>
<tr> <tr>
<td colspan="3" id="output" class="hoppers">Output</td> <td colspan="3" id="output" class="hoppers">Output</td>