fa4c073b9e
Add a `resource/referrer' abstraction for referrers, on top of plain resources. (When the referrer is `values', it just returns the plain resource.) Also add `url-of' to replace `get-resource-path'.
43 lines
1.6 KiB
Racket
43 lines
1.6 KiB
Racket
#lang meta/web
|
|
|
|
(require "resources.rkt" "../download/download-pages.rkt")
|
|
|
|
(provide download)
|
|
(define download
|
|
@page[#:link-title "Download" #:window-title "Download Racket"
|
|
#:file "download/" #:part-of 'download]{
|
|
@(render-download-page)})
|
|
|
|
(define images (list (copyfile (in-here "download.png"))
|
|
(copyfile (in-here "download-dark.png"))))
|
|
|
|
(provide download-button)
|
|
(define (download-button)
|
|
@text{
|
|
@script/inline[type: "text/javascript"]{
|
|
@; Don't load all images here -- it causes a delay when loading the
|
|
@; page instead, do it only when needed, and also set a timer to do it
|
|
@; after loading the page. This makes it so that there's almost never
|
|
@; a delay when loading the page, and also no delay when switching the
|
|
@; image.
|
|
var rollovers = false, the_download_button = false;
|
|
function init_rollovers() {
|
|
if (!rollovers) {
|
|
rollovers = [ new Image(), new Image() ];
|
|
rollovers[0].src = "@(car images)";
|
|
rollovers[1].src = "@(cadr images)";
|
|
the_download_button = document.getElementById("download_button");
|
|
}
|
|
}
|
|
function set_download_image(n) {
|
|
if (!rollovers) init_rollovers();
|
|
the_download_button.src = rollovers[n].src;
|
|
}
|
|
setTimeout(init_rollovers, 400);
|
|
}
|
|
@a[href: (url-of download)
|
|
onmouseover: "set_download_image(1);"
|
|
onmouseout: "set_download_image(0);"]{
|
|
@img[id: "download_button" src: (car images) style: "border-width: 0;"
|
|
alt: "Download Racket" title: "Download Racket"]}})
|