This is the mail archive of the
docbook-apps@lists.oasis-open.org
mailing list .
Re: Howto create META TAGS
- From: Norman Walsh <ndw at nwalsh dot com>
- To: docbook-apps at lists dot oasis-open dot org
- Date: Tue, 20 Nov 2001 10:26:54 -0500
- Subject: DOCBOOK-APPS: Re: Howto create META TAGS
- List-id: <docbook-apps.lists.oasis-open.org>
- References: <20011120142831.A3714@dinamizm.com> <87wv0lzgv4.fsf@nwalsh.com><20011120161823.A6001@dinamizm.com>
[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