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 0bfa07683f7168a0648bd33e3ff6d6f63f7c8938
parent 6755f66048e841fb75d059ea0e0563a21e2601c5
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 24 Jul 2012 08:51:04 +0200

Added '<trident>' function
Diffstat:
Mlib/xhtml.l | 12+++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/xhtml.l b/lib/xhtml.l @@ -1,4 +1,4 @@ -# 02jan12abu +# 24jul12abu # (c) Software Lab. Alexander Burger # *JS "*JS" *Style *Menu *Tab *ID @@ -292,6 +292,16 @@ (eval (pop 'Lst) 1) ) ) ) ) ) ) ) ) ) ) ) (prinl) ) +(de <trident> Lst + (<table> '(width . "100%") NIL NIL + (<tr> NIL + (<td> '((width . "33%") (align . left)) + (eval (car Lst) 1) ) + (<td> '((width . "34%") (align . center)) + (eval (cadr Lst) 1) ) + (<td> '((width . "33%") (align . right)) + (eval (caddr Lst) 1) ) ) ) ) + (de <spread> Lst (<table> '(width . "100%") NIL '((norm) (align)) (<row> NIL