(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
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:
On 6/25/02 2:12, Gre7g Luterman [EMAIL PROTECTED] wrote:
I'm sorry. Perhaps my earlier question got lost. By correct Lisp
code I mean that the above block does not work.
Oops, I'm sorry.
As I mentioned
before, the problem is the:
(if (string=? (nav-context elemnode) )
part.
I solved that last problem (had to do a test to see if a sosofo was
empty), but now I'm onto this challenge...
dbnavig.dsl generates the following at the top of my example pages
(reformated):
DIV CLASS=NAVHEADER
Chapter 1. Foreword
HR ALIGN=LEFT WIDTH=100%
/DIV
This looks just fine when