suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added the scripts on the bottom of the page.

Browse Source 
All are commented out ATM.  (The files, if any, need to be distributed
in addition to the CSS file(s).)
This commit is contained in:
Eli Barzilay 2013-09-28 17:22:40 -04:00 committed by Matthew Flatt
parent e565d8f84f
commit b9f3cd746e
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
new-racket-web/web/common/layout.rkt
View File

@ -62,6 +62,20 @@
@comment{[if gt IE 9]><!--> <html class="no-js" lang="en" @;
itemscope itemtype="http://schema.org/Product"> <!--<![endif]}
})
(define postamble
@list{
@; Grab Google CDN's jQuery, with a protocol relative URL;
@; fall back to local if offline
@; ... TODO: distribute the JS stuffs ...
@; @script[src: '("http://ajax.googleapis.com/"
@; "ajax/libs/jquery/1.9.1/jquery.min.js")]
@; @script/inline{
@; window.jQuery || document.write(@;
@; '<script src="/js/libs/jquery-1.9.1.min.js"><\/script>')}
@; @script[src: "js/libs/gumby.min.js"]
@; @script[src: "js/plugins.js"]
@; @script[src: "js/main.js"]
})
(define (page* #:id [id #f] #:dir [dir #f] #:file [file #f]
;; if this is true, return only the html -- don't create
@ -112,7 +126,8 @@
@(if body-attrs
(apply body `(,@body-attrs ,content))
(body content))
@||}})
@postamble}
@||})
(define this (and (not html-only?)
(resource/referrer (get-path 'page id file "html" dir)
(file-writer output-xml page)