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

More head-level additions.

Browse Source 
Note that I used "image/x-icon" for the "shortcut icon" type, even
though it's different from the one used on the "icon" type right above
it.

Need to sort the CSS mess: I think that "css/style.css" is meant to be
out global CSS (so it needs to change), and "css/scribble.css" is
probably what "more.css" is doing and it's being used only on the front
page since that has the scribble-rendered examples.

Also, need to scan all the "@;" comments here: some might need to be in
the actual HTML output, and some look like leftovers from wherever this
HTML was ripped from that are not applicable.
This commit is contained in:
Eli Barzilay 2013-09-28 16:50:25 -04:00 committed by Matthew Flatt
parent 57bf159aa4
commit 5ed2101d50
2 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,7 +59,8 @@
@comment{[if IE 7]> <html class="no-js ie7 oldie" lang="en"> <![endif]}
@comment{[if IE 8]> <html class="no-js ie8 oldie" lang="en"> <![endif]}
@comment{[if IE 9]> <html class="no-js ie9" lang="en"> <![endif]}
@comment{[if gt IE 9]><!--> <html class="no-js" lang="en" itemscope itemtype="http://schema.org/Product"> <!--<![endif]}
@comment{[if gt IE 9]><!--> <html class="no-js" lang="en" @;
itemscope itemtype="http://schema.org/Product"> <!--<![endif]}
})
(define (page* #:id [id #f] #:dir [dir #f] #:file [file #f]
@ -185,8 +186,8 @@
(define (html-favicon-maker icon)
(define headers
@list{@link[rel: "icon" href: icon type: "image/ico"]
@link[rel: "shortcut icon" href: icon]})
@list{@link[rel: "icon" href: icon type: "image/ico"]
@link[rel: "shortcut icon" href: icon type: "image/x-icon"]})
(λ () headers))
(define (html-head-maker style favicon)
@ -194,8 +195,34 @@
@list{
@meta[name: "generator" content: "Racket"]
@meta[http-equiv: "Content-Type" content: "text/html; charset=utf-8"]
@meta[charset: "utf-8"]
@; Use the .htaccess and remove this line to avoid edge case issues.
@; More info: h5bp.com/b/378
@meta[http-equiv: "X-UA-Compatible" content: "IE=edge,chrome=1"]
@favicon
@link[rel: "stylesheet" type: "text/css" href: style title: "default"]})
@; Mobile viewport optimized: j.mp/bplateviewport
@meta[name: "viewport"
content: "width=device-width, initial-scale=1.0, maximum-scale=1"]
@; Place favicon.ico and apple-touch-icon.png in the root
@; directory: mathiasbynens.be/notes/touch-icons
@; CSS: implied media=all
@; CSS concatenated and minified via ant build script
@; @link[rel: "stylesheet" href="css/minified.css"]
@; CSS imports non-minified for staging, minify before moving to
@; production
@; ... TODO: distribute the CSS stuffs ...
@; @link[rel: "stylesheet" href: "css/gumby.css"]
@; @link[rel: "stylesheet" href: "css/style.css"] <-- DROP?? (next line)
@; @link[rel: "stylesheet" href: "css/scribble.css"] <-- DROP?? (more.css)
@link[rel: "stylesheet" type: "text/css" href: style title: "default"]
@; More ideas for your <head> here: h5bp.com/d/head-Tips
@; All JavaScript at the bottom, except for Modernizr / Respond.
@; Modernizr enables HTML5 elements & feature detects; Respond is
@; a polyfill for min/max-width CSS3 Media Queries
@; For optimal performance, use a custom Modernizr build:
@; www.modernizr.com/download/
@script[src: "js/libs/modernizr-2.6.2.min.js"]
})
(λ (title* more-headers)
(head "\n" (title title*)
"\n" headers

1
new-racket-web/web/www/index.rkt
View File

@ -268,6 +268,7 @@
Racket provides a rich language extension API, the DrRacket @;
integrated development environment, and many batteries-included @;
libraries.}
@; Ask google to not use the ODP description
#:extra-headers @list{@meta[name: "robots" content: "NOODP"]
@(lazy more.css)}
@div[class: 'leftpane]{