picolisp

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:
M
lib/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>")