Changeset 27167 in project


Ignore:
Timestamp:
08/03/12 00:12:59 (9 years ago)
Author:
Mario Domenech Goulart
Message:

html-utils: html-page: respect user-provided doctype in SXML mode

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/html-utils/trunk/html-utils.scm

    r26015 r27167  
    163163        page)))
    164164
     165(define sxml-doctype
     166  "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">")
     167
    165168(define (html-page contents #!key css title doctype headers charset)
    166169  (if (generate-sxml?)
     
    168171                 css: css
    169172                 title: title
    170                  doctype: doctype
     173                 doctype: (or doctype sxml-doctype)
    171174                 headers: headers
    172175                 charset: charset)
Note: See TracChangeset for help on using the changeset viewer.