[Gtk2hs-commit] gtk2hs/gendoc XMLwrite.hs,1.9,1.10

[<ju...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/gendoc
In directory sc8-pr-cvs1:/tmp/cvs-serv16016/gendoc

Modified Files:
	XMLwrite.hs 
Log Message:
2003-05-23  Jens Petersen  <pet...@re...>

	* gendoc/XMLwrite.hs (makeSymDescr): Move colspecs inside the
	tgroup.

	* doc/Makefile (html%): Make xsltproc write output directly to
	subdirectory.  Create the directory first if necessary.
	(fo%): Ditto.
	(clean): Remove reference xml files.

	* gtk2hs.spec.in (build): Pass docbook catalog and html xsl to
	configure and build html docs.
	(post): Give "-g" option to ghc-pkg to have ghci object files
	generated.
	(preun): Always remove any old ghci object files.
	(files): Include gtk and mogul docs in doc dir.
	
	* Makefile (EXTRA_TARFILES): Include gtk2hs.spec after all.



Index: XMLwrite.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/gendoc/XMLwrite.hs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** XMLwrite.hs	17 May 2003 19:29:37 -0000	1.9
--- XMLwrite.hs	23 May 2003 01:01:25 -0000	1.10
***************
*** 267,278 ****
        Attribute "rowsep" "0"
      ] (
!       Element "colspec" [] []:
!       replicate noOfCols 
!         (Element "colspec" [Attribute "colwidth" "100pt"] [])++[
        Element "tgroup" [
  	Attribute "align" "center",
  	Attribute "cols" (show noOfCols)
!       ] [
! 	Element "tbody" [
  	  Attribute "valign" "middle"
  	] (
--- 267,279 ----
        Attribute "rowsep" "0"
      ] (
!       [
        Element "tgroup" [
  	Attribute "align" "center",
  	Attribute "cols" (show noOfCols)
!       ] (
! 	[Element "colspec" [] []] ++
!         (replicate noOfCols 
!            (Element "colspec" [Attribute "colwidth" "100pt"] [])) ++
! 	[Element "tbody" [
  	  Attribute "valign" "middle"
  	] (
***************
*** 285,289 ****
  	  ):map argsToXML (transpose args)
  	)
!       ]
      ]):docuToXML (mName,mI) thorough
    )
--- 286,290 ----
  	  ):map argsToXML (transpose args)
  	)
!       ])
      ]):docuToXML (mName,mI) thorough
    )