[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Subject: DOCBOOK-APPS: Re: Figure title formatting
/ Rory Hunter <roryh@fenriz.org> was heard to say: | Using DSSSL, how can I remove the bold'ness of <figure> titles or | labels? I'd like the "Figure N. " part to still be in bold, however. In HTML, I think this will work. Something roughly isomorphic should do the trick in print. (define ($formal-object$ #!optional (rule-before? #f) (rule-after? #f)) (let* ((nsep (gentext-label-title-sep (gi))) (id (element-id)) (title-inline-sosofo (make sequence (make element gi: "B" (if (member (gi) (named-formal-objects)) (make sequence (literal (gentext-element-name (gi))) (if (string=? (element-label) "") (literal nsep) (literal " " (element-label) nsep))) (empty-sosofo))) (with-mode title-mode (process-node-list (select-elements (children (current-node)) (normalize "title")))))) (title-sosofo (make element gi: "P" title-inline-sosofo))) (object-sosofo (process-children))) (make element gi: "DIV" attributes: (list (list "CLASS" (gi))) (if rule-before? (make empty-element gi: "HR") (empty-sosofo)) (if id (make empty-element gi: "A" attributes: (list (list "NAME" id))) (empty-sosofo)) (if (object-title-after) (make sequence object-sosofo title-sosofo) (make sequence title-sosofo object-sosofo)) (if rule-after? (make empty-element gi: "HR") (empty-sosofo))))) Be seeing you, norm -- Norman Walsh <ndw@nwalsh.com> | How can there be laughter, how can http://www.oasis-open.org/docbook/ | there be pleasure, when the world Chair, DocBook Technical Committee | is burning?--The Dhammapada | (probably 3rd century BC)
[Date Prev] | [Thread Prev] | [Thread Next] | [Date Next] -- [Date Index] | [Thread Index] | [Elist Home]
Powered by eList eXpress LLC