RE: Bold and Formatting within a Table

["Jordi Mulet" <jmulet@xxxxxxxxxx>]

Hello Norman,
We have modified our custom layer for formatting cells with different sizes
and colors with the new rules you have sent yesterday.
The new style-sheet can output markup as
    <entry><para>some info<emphasis>Here the
italics</emphasis></para><entry>
correctly with the text inside emphasis in bold and italics.

bu if we markup with pi instructions as :
<para><?size 18pt><?color red-color>some information</para>
the output doesnt work correctly.

Our code is now:

(define ($pi-font-size$)
  (let ((fontsize (inherited-pi-value (current-node) "size")))
      (if fontsize
      fontsize
      #f)))
(define ($pi-font-color$)
  (let ((fontcolor (inherited-pi-value (current-node) "color")))
      (if fontcolor
      fontcolor
      #f)))
(element (ENTRY PARA)
  (make paragraph
    quadding: (inherited-quadding)
    (process-children)))

(define ($process-cell-contents$ entry colnum)
   (let ((font-name (if (have-ancestor? "THEAD" entry)
          %title-font-family%
          %body-font-family%))
   (weight    (if (have-ancestor? "THEAD" entry)
       'bold
       'medium))
   (align     (cell-align entry colnum))
  (fontsize ($pi-font-size$))
    (fontcolor($pi-font-color$))
                                   )
      (make sequence
          font-family-name: font-name
          font-weight: weight
          font-size: (if fontsize fontsize 10pt)
          color:(if fontcolor fontcolor *blue-color*)
          quadding: align
          (process-node-list (children entry)))))


Thanks for your help.
Jordi
Editorial Praxis S.A




 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist