[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Subject: DOCBOOK-APPS: Re: Howto create META TAGS
[Resend, I botched an address] / Togan Muftuoglu <toganm@users.sourceforge.net> was heard to say: | Hi Norm, | | * Norman Walsh; <ndw@nwalsh.com> on 20 Nov, 2001 wrote: | > | </keywordset> | > | | > | What do I have to add to the stylesheet to produce the relavent META tag | > | generation in the html output | > | > That's supposed to just work. Can you send a small sample document that doesn't | > work for you? | Please find the attached file In dbcommon.dsl, replace the definition of info-element with: (define (info-element #!optional (nd (current-node))) ;; Returns the *INFO element for the nd or (empty-node-list) if no ;; such node exists... (cond ((equal? (gi nd) (normalize "set")) (select-elements (children nd) (normalize "setinfo"))) ((equal? (gi nd) (normalize "book")) (select-elements (children nd) (normalize "bookinfo"))) ((equal? (gi nd) (normalize "section")) (select-elements (children nd) (normalize "sectioninfo"))) ((equal? (gi nd) (normalize "sect1")) (select-elements (children nd) (normalize "sect1info"))) ((equal? (gi nd) (normalize "sect2")) (select-elements (children nd) (normalize "sect2info"))) ((equal? (gi nd) (normalize "sect3")) (select-elements (children nd) (normalize "sect3info"))) ((equal? (gi nd) (normalize "sect4")) (select-elements (children nd) (normalize "sect4info"))) ((equal? (gi nd) (normalize "sect5")) (select-elements (children nd) (normalize "sect5info"))) ((equal? (gi nd) (normalize "refsect1")) (select-elements (children nd) (normalize "refsect1info"))) ((equal? (gi nd) (normalize "refsect2")) (select-elements (children nd) (normalize "refsect2info"))) ((equal? (gi nd) (normalize "refsect3")) (select-elements (children nd) (normalize "refsect3info"))) ((equal? (gi nd) (normalize "refsynopsisdiv")) (select-elements (children nd) (normalize "refsynopsisdivinfo"))) ((equal? (gi nd) (normalize "article")) (node-list-filter-by-gi (children nd) (list (normalize "artheader") (normalize "articleinfo")))) (else ;; BIBLIODIV, GLOSSDIV, INDEXDIV, PARTINTRO, SIMPLESECT (select-elements (children nd) (normalize "docinfo"))))) This is fixed in CVS. Be seeing you, norm -- Norman Walsh <ndw@nwalsh.com> | The shoe that fits one person pinches http://nwalsh.com/ | another; there is no recipe for living | that suits all cases.--Jung
[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Powered by eList eXpress LLC