Commit f859c7a6 authored by Pietro Abate's avatar Pietro Abate

[r2005-03-29 00:44:22 by beppe] formatting

Original author: beppe
Date: 2005-03-29 00:44:22+00:00
parent 010510bc
......@@ -104,30 +104,32 @@ let highlight (String -> [ (Char| inline)* ] )
text-align="left"
space-after="10pt">[!(highlight s)]]
| <p>x -> [<fo:block space-after="15pt">[!(text x)]]
| <table ..> [ (col:: H.col)* (rows::H.tr)+] -> [
<fo:table space-after="15pt" table-layout="fixed" inline-progression-dimension\.maximum="95%">[
!(map col with <col ..>[] -> <fo:table-column width="proportional-column-width(1)">[])
<fo:table-body>( transform rows with
<tr ..> y -> [<fo:table-row>( transform y with
| <th ..> (z&Content)
-> [<fo:table-cell
padding="6pt"
background-color="silver"
border="0.5pt solid black">[ <fo:block font-weight="bold">[!(content z) ]]]
| <td style=['background:' ;c] ..> (z&Content)
-> [<fo:table-cell
padding="3pt"
background-color=c
border="0.5pt solid black"
text-align="left">[ <fo:block>[!(content z) ]]]
| <td ..> (z&Content)
-> [<fo:table-cell
padding="3pt"
border="0.5pt solid black"
text-align="left">[ <fo:block>[!(content z) ]]]
| _ -> [<fo:table-cell>[<fo:block>[]]] (* fake entry to assure that it will have type table-cell+*)
)])
]]
| <table ..> [ (col:: H.col)* (rows::H.tr)+]
-> [<fo:table space-after="15pt" table-layout="fixed" inline-progression-dimension\.maximum="95%">[
!(map col with <col ..>[] -> <fo:table-column width="proportional-column-width(1)">[])
<fo:table-body>( transform rows with
<tr ..> y -> [<fo:table-row>( transform y with
| <th ..> (z&Content)
-> [<fo:table-cell
padding="6pt"
background-color="silver"
border="0.5pt solid black">[
<fo:block font-weight="bold">[!(content z) ]]]
| <td style=['background:' ;c] ..> (z&Content)
-> [<fo:table-cell
padding="3pt"
background-color=c
border="0.5pt solid black"
text-align="left">[ <fo:block>[!(content z) ]]]
| <td ..> (z&Content)
-> [<fo:table-cell
padding="3pt"
border="0.5pt solid black"
text-align="left">[ <fo:block>[!(content z) ]]]
(* fake entry to assure that it will have type table-cell+*)
| _ -> [<fo:table-cell>[<fo:block>[]]]
)])
]]
| <ul ..>u ->[ <fo:list-block provisional-distance-between-starts="18pt"
provisional-label-separation="3pt">( transform u with
<li ..>c -> [<fo:list-item>[
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment