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

Original author: beppe
Date: 2005-03-29 00:44:22+00:00

doc/fomanual/xml2fo.cd

@@ -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>[