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 65a0bd1149e6a4d089ac5089d6b0195cd7fa34e9
parent 0de39380733695e40c6bafcb79f3c18d48df5be3
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  7 Aug 2013 15:36:43 +0200

Optional inline style(s) in 'fin' of 'Css' argument to 'html'
Diffstat:
Mlib/xhtml.l | 10++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/xhtml.l b/lib/xhtml.l @@ -1,4 +1,4 @@ -# 17jun13abu +# 07aug13abu # (c) Software Lab. Alexander Burger # *JS "*JS" *Style *Menu *Tab *ID @@ -104,7 +104,13 @@ (and Ttl (<tag> 'title NIL Ttl) (prinl)) (and *Host *Port (prinl "<base href=\"" (baseHRef) "\"/>")) (when Css - (if (atom Css) ("css" Css) (mapc "css" Css)) ) + (if (atom Css) + ("css" Css) + (mapc "css" Css) + (when (fin Css) + (prinl "<style type=\"text/css\">") + (prinl @) + (prinl "</style>") ) ) ) (mapc javascript *JS) (and *SesId (javascript NIL "SesId = '" @ "';")) (prinl "</head>")