Hi Jon,
> then the calls would very often have a lot of NIL arguments, which looks
> rather ugly. Should I switch to property lists? Any suggestions?
How about the following?
(de <text> Prg
(prin "<text")
(while (atom (car Prg))
(prin " " (pop 'Prg) "=\"" (eval (pop 'Prg) 1) "\"") )
(prin ">")
(run Prg) # the text, or other elements
(prinl "</text>") )
Then you could write
: (<text> id 123 dx (+ 3 4) dy (* 3 4)
(prin "No font and color arguments yet") )
<text id="123" dx="7" dy="12">No font and color arguments yet</text>
Cheers,
- Alex
--
UNSUBSCRIBE: mailto:[EMAIL PROTECTED]
