From f031cab0fd7db4ad11ea5b448fa2b4ecdf20ada7 Mon Sep 17 00:00:00 2001
From: tim b <timb@camcompu.home>
Date: Fri, 13 Aug 2010 12:33:53 -0700
Subject: initial fullscreen image thing

---
 src/site.clj | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index 4cde45d..b3aae51 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -1106,8 +1106,10 @@ order by count desc limit ? offset ?")
 		  (do-upload-avatar session image)))))
 
 (defn serve-meme [session meme]
-  (if-let [st (fetch-template meme session)]
-    (.toString st)
+  (if-let [st   (fetch-template meme session)]
+    (let [now  (System/currentTimeMillis)]
+      (.setAttribute st "timestamp" now)
+      (.toString st))
     (unknown-page)))
 
 (defn hall-of-fame [session]
-- 
cgit v1.2.3-70-g09d2