picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit 7898d0766966b43739897e2a7578f71b41df26a6
parent a51a0593673e0b5c0a4781647faeaf9ebcdd66f2
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 22 Nov 2011 09:25:35 +0100

DOCTYPE
Diffstat:
Mlib/xhtml.l | 11+++--------
1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/lib/xhtml.l b/lib/xhtml.l @@ -1,4 +1,4 @@ -# 20apr10abu +# 22nov11abu # (c) Software Lab. Alexander Burger # *JS *Style *Menu *Tab *ID @@ -88,13 +88,8 @@ (httpHead NIL Upd) (ht:Out *Chunked ## (xml? T) - (prinl "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">") - (prinl - "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"" - (or *Lang "en") - "\" lang=\"" - (or *Lang "en") - "\">" ) + (prinl "<!DOCTYPE html>") + (prinl "<html lang=\"" (or *Lang "en") "\">") (prinl "<head>") (and Ttl (<tag> 'title NIL Ttl) (prinl)) (and *Host *Port (prinl "<base href=\"" (baseHRef) "\"/>"))