On 6/25/02 0:07, "Gre7g Luterman" <[EMAIL PROTECTED]> wrote:
>> (make element gi: "DIV"
>> attributes: '(("CLASS" "NAVHEADER"))
>> (nav-context elemnode)
>> (if (string=? (nav-context elemnode) "") (empty-sosofo)
>> (make empty-element gi: "HR"
>> attributes: (list
>> (list "ALIGN" "LEFT")
>> (list "WIDTH" %gentext-nav-tblwidth%)))))
>
> Doesn't anyone know the correct Lisp code to do the above?
>
> It can't be too much more sophisticated than the above, can it?
I'm not sure "correct Lisp code" means but you can shorten list expressions
by using quasiquotation.
(make element gi: "DIV"
attributes: '(("CLASS" "NAVHEADER"))
(nav-context elemnode)
(if (string=? (nav-context elemnode) "") (empty-sosofo)
(make empty-element gi: "HR"
attributes: `(("ALIGN" "LEFT") ("WIDTH" ,%gentext-nav-tblwidth%)))))
Regards,
Kogul�, Ryo
