From f031cab0fd7db4ad11ea5b448fa2b4ecdf20ada7 Mon Sep 17 00:00:00 2001 From: tim b Date: Fri, 13 Aug 2010 12:33:53 -0700 Subject: initial fullscreen image thing --- src/site.clj | 6 +++-- static/js/fullscreen.js | 62 +++++++++++++++++++++++++++++++++++++++++++++++++ template/fullscreen.st | 20 ++++++++++++++++ 3 files changed, 86 insertions(+), 2 deletions(-) create mode 100644 static/js/fullscreen.js create mode 100644 template/fullscreen.st 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] diff --git a/static/js/fullscreen.js b/static/js/fullscreen.js new file mode 100644 index 0000000..78ef904 --- /dev/null +++ b/static/js/fullscreen.js @@ -0,0 +1,62 @@ +function initFullscreen(){ + Room = "dumpfm"; + refresh() + ImageCache = [] + SeenImages = {} +} + +function scanMessagesForImages(messages){ + for(var m=0; m + + + + + + + + +

+ + + \ No newline at end of file -- cgit v1.2.3-70-g09d2