From 747bd2e98b3aef1ce497727f6706a8fe979aef89 Mon Sep 17 00:00:00 2001
From: simon <simon@journeyman.cc>
Date: Wed, 26 Mar 2014 22:41:53 +0000
Subject: [PATCH] Replaced unhealthy fruit with traditional Scottish
 superfoods.

---
 src/vending/core.clj                  | 8 ++++----
 src/vending/views/templates/home.html | 5 ++++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/vending/core.clj b/src/vending/core.clj
index 96642f7..23647bb 100644
--- a/src/vending/core.clj
+++ b/src/vending/core.clj
@@ -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}
 	:tendered nil
 	:last-message ""
@@ -15,7 +15,7 @@
 
 (.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]
 	(coin-values coin))
@@ -140,7 +140,7 @@
 		(empty? change) (coin-return)
 		true (deliver-item machine item change))))
 
-(defn get-apple [machine]
-	(get-item machine :apples))
+(defn get-caramel-wafer [machine]
+	(get-item machine :caramel-wafer))
 
 
diff --git a/src/vending/views/templates/home.html b/src/vending/views/templates/home.html
index 3c7b8bc..66d452b 100644
--- a/src/vending/views/templates/home.html
+++ b/src/vending/views/templates/home.html
@@ -36,7 +36,10 @@
             <td id="plack" class="coins">Placks</td>
             <td id="bawbee" class="coins">Bawbees</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>
             <td colspan="3" id="output" class="hoppers">Output</td>