DOCBOOK-APPS: Re: Figure title formatting

[Norman Walsh <ndw at nwalsh dot com>]

/ 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)