diff options
| author | tim b <timb@camcompu.home> | 2010-08-13 12:33:53 -0700 |
|---|---|---|
| committer | tim b <timb@camcompu.home> | 2010-08-13 12:33:53 -0700 |
| commit | f031cab0fd7db4ad11ea5b448fa2b4ecdf20ada7 (patch) | |
| tree | 198608ebef32f706495ce599542f1c866d7195d5 /src/site.clj | |
| parent | db3d22ba1c1731e873a5a9296aad94071cdd163b (diff) | |
initial fullscreen image thing
Diffstat (limited to 'src/site.clj')
| -rw-r--r-- | src/site.clj | 6 |
1 files changed, 4 insertions, 2 deletions
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] |