;; Some XHTML and HTML doctypes, as strings
;; Author: Jim Ursetto
;; License: Public domain
;; see HTML5 spec 8.1.1 "The DOCTYPE"
;; (http://dev.w3.org/html5/spec/Overview.html#the-doctype)
(module doctype
(
doctype-html
;; legacy doctype string
doctype-html-legacy
;; obsolete permitted doctype strings
doctype-html-4.01-strict
doctype-xhtml-1.0-strict
doctype-html-4.01-transitional
doctype-xhtml-1.0-transitional
doctype-html-4.01-frameset
doctype-xhtml-1.0-frameset
doctype-html-3.2
doctype-html-2.0
;; sxml-transforms
doctype-rules
;; deprecated aliases for users of older doctype egg
html-4.01-strict
xhtml-1.0-strict
html-4.01-transitional
xhtml-1.0-transitional
html-4.01-frameset
xhtml-1.0-frameset
html-3.2
html-2.0
)
(import scheme data-structures)
;; generic html doctype (introduced in HTML5; backward compatible with all known browsers)
(define doctype-html
"")
;; legacy html doctype -- don't use, provided only for completeness
(define doctype-html-legacy
"")
;; obsolete permitted html doctypes
(define doctype-html-4.01-strict
"")
(define doctype-xhtml-1.0-strict
"")
(define doctype-html-4.01-transitional
"")
(define doctype-xhtml-1.0-transitional
"")
(define doctype-html-4.01-frameset
"")
(define doctype-xhtml-1.0-frameset
"")
(define doctype-html-3.2
"")
(define doctype-html-2.0
"")
;; deprecated aliases for this module
(define html-4.01-strict doctype-html-4.01-strict)
(define xhtml-1.0-strict doctype-xhtml-1.0-strict)
(define html-4.01-transitional doctype-html-4.01-transitional)
(define xhtml-1.0-transitional doctype-xhtml-1.0-transitional)
(define html-4.01-frameset doctype-html-4.01-frameset)
(define xhtml-1.0-frameset doctype-xhtml-1.0-frameset)
(define html-3.2 doctype-html-3.2)
(define html-2.0 doctype-html-2.0)
;; example rules for sxml-transforms
(define doctype-rules
`((html-4.01-strict *preorder* . ,(constantly doctype-html-4.01-strict))
(xhtml-1.0-strict *preorder* . ,(constantly doctype-xhtml-1.0-strict))
(html-4.01-transitional *preorder* . ,(constantly doctype-html-4.01-transitional))
(xhtml-1.0-transitional *preorder* . ,(constantly doctype-xhtml-1.0-transitional))
(html-4.01-frameset *preorder* . ,(constantly doctype-html-4.01-frameset))
(xhtml-1.0-frameset *preorder* . ,(constantly doctype-xhtml-1.0-frameset))
(html-3.2 *preorder* . ,(constantly doctype-html-3.2))
(html-2.0 *preorder* . ,(constantly doctype-html-3.2))))
)