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

Add a `doctype' convenience.

Browse Source 
original commit: ab0cde405ad87bc07a235063e77b2de2799ac789
This commit is contained in:
Eli Barzilay 2013-09-28 14:51:06 -04:00
parent bb79dcff2d
commit 2ed47f1bbd
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/scribble-pkgs/scribble-lib/scribble/html/html.rkt
View File

@ -4,16 +4,27 @@
(require "xml.rkt" scribble/text)
;; ----------------------------------------------------------------------------
;; Doctype line
(provide doctype)
(define (doctype type)
(cond [(string? type) (literal "<!DOCTYPE " type ">\n")]
[(eq? 'html type) (doctype type)]
[(eq? 'xhtml type)
(list (literal "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
(doctype (string-append
"html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
" \"http://www.w3.org/TR/xhtml1/DTD/"
"xhtml1-strict.dtd\"")))]
[else (raise-type-error 'doctype
"string or known doctype symbol" type)]))
;; ----------------------------------------------------------------------------
;; Xhtml toplevel
;; creation of xhtml files requires some extra stuff
(define xhtml-prefix
(literal
(string-append
"<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n")))
(define xhtml-prefix (doctype 'xhtml))
(provide xhtml)
(define (xhtml . body)
(list xhtml-prefix