[r2005-03-26 16:36:00 by beppe] Empty log message

Original author: beppe
Date: 2005-03-26 16:36:00+00:00

doc/fomanual/Makefile

@@ -2,7 +2,7 @@ CDUCE=/tmp/cduce-0.2.2/cduce
 FOP=/tmp/fop-0.20.5/fop.sh
 
 all:
-	(cd ../../web && ${CDUCE} ../doc/fomanual/xml2fo.cd)
+	(cd ../../web && ${CDUCE} ../doc/fomanual/xml2fo.cd --arg manual.xml)
 
 pdf: all
 	${FOP} manual_fo.xml manual.pdf

doc/fomanual/typeFO.cd

@@ -21,7 +21,7 @@ type block =
 	white-space-treatment=?("preserve"|"ignore")|}>[
           Any* ];;
 type line = <fo:inline {|text-decoration=?String; color=?String; font-weight=?String; font-style=?String|}>[Any*];;
-type flow = <fo:flow {|flow-name=String; font-size=String|}>[ block* ];;
+type flow = <fo:flow {|flow-name=String; font-size=String; text-align=?String|}>[ block* ];;
 type static-content = <fo:static-content {||}>[ block* ];;
 
 type page-sequence =

doc/fomanual/xml2fo.cd

@@ -51,6 +51,7 @@ let highlight (String -> [ (Char)* ] )
 		border-style="dashed"
 		margin-bottom="3pt"
 		margin-left="3pt"
+		text-align="left"
 		space-after="10pt">[!(highlight s)]]
    | <p>x -> [<fo:block space-after="15pt">[!(text x)]]	 
    | <ul>u -> ( transform u with  
@@ -152,7 +153,7 @@ match argv [] with
 											   ]
 	  ]
 	  <fo:page-sequence master-reference="essai" >[ 
-	    <fo:flow flow-name="xsl-region-body" font-size="12pt"> [!(gen_page main_page)] ]] in
+	    <fo:flow flow-name="xsl-region-body" font-size="12pt" text-align="justify"> [!(gen_page main_page)] ]] in
 				  dump_to_file "../doc/fomanual/manual_fo.xml"  (print_xml DebutFo) 
 				    (*print(print_xml(main_page));*)
 				    (* print (gen_page main_page)*)