Re: Magic Includes

[Owen Taylor <otaylor redhat com>]

Damon Chaplin <damon@helixcode.com> writes:

> (There is a slight problem in that the gtk-doc used to build the docs
> on developer.gnome.org is a forked version, slightly modified by Dave
> Mason
> & Federico, and I haven't been able to see what changes were made.)

I believe that the only changes that were made were to the DSL file.

                                        Owen

--- gtk-doc.dsl	Thu Nov  4 18:15:14 1999
+++ /usr/local/share/gtk-doc/gtk-doc.dsl	Fri Nov  5 15:19:59 1999
@@ -17,14 +17,9 @@
 
 ;;(define %generate-book-toc% #f)
 
-;; If a Chapter has role="no-toc" we don't generate a table of contents.
-;; This is useful if a better contents page has been added manually, e.g. for
-;; the GTK+ Widgets & Objects page. (But it is a bit of a hack.)
-(define $generate-chapter-toc$
+(define $generate-chapter-toc$ 
   (lambda ()
-    (if (equal? (attribute-string (normalize "role") (current-node)) "no-toc")
-        #f
-        #t)))
+    #t))
 
 (define %chapter-autolabel% 
   ;; Are chapters enumerated?
@@ -263,6 +258,7 @@
 					     (list "ALIGN" "center"))
 				(make element gi: "FONT"
 				      attributes: (list
+
 						   (list "COLOR" "#FFFFFF")
 						   (list "SIZE" "5"))
 				      (nav-banner elemnode)))))
@@ -285,29 +281,29 @@
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (gentext-nav-prev prev))))))
 			 (make element gi: "TD"
 			       attributes: (list
 					    (list "WIDTH" "25%")
-					    (list "BGCOLOR" "#0000C0")
+					    (list "BGCOLOR" "#C00000")
 					    (list "ALIGN" "center"))
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (nav-home-link elemnode))))
 			 (make element gi: "TD"
 			       attributes: (list
 					    (list "WIDTH" "25%")
-					    (list "BGCOLOR" "#00C000")
+					    (list "BGCOLOR" "#C00000")
 					    (list "ALIGN" "center"))
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (if (nav-up? elemnode)
 							  (nav-up elemnode)
@@ -327,7 +323,7 @@
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (gentext-nav-next next)))))))))
     (if (or r1? r2?)
@@ -371,29 +367,29 @@
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (gentext-nav-prev prev))))))
 			 (make element gi: "TD"
 			       attributes: (list
 					    (list "WIDTH" "25%")
-					    (list "BGCOLOR" "#0000C0")
+					    (list "BGCOLOR" "#C00000")
 					    (list "ALIGN" "center"))
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (nav-home-link elemnode))))
 			 (make element gi: "TD"
 			       attributes: (list
 					    (list "WIDTH" "25%")
-					    (list "BGCOLOR" "#00C000")
+					    (list "BGCOLOR" "#C00000")
 					    (list "ALIGN" "center"))
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (if (nav-up? elemnode)
 							  (nav-up elemnode)
@@ -413,7 +409,7 @@
 					  (make element gi: "FONT"
 						attributes: (list
 							     (list "COLOR" "#FFFFFF")
-							     (list "SIZE" "3"))
+							     (list "SIZE" "2"))
 						(make element gi: "B"
 						      (gentext-nav-next next))))))))
 
@@ -427,7 +423,7 @@
 				   (make element gi: "FONT"
 					 attributes: (list
 						      (list "COLOR" "#FFFFFF")
-						      (list "SIZE" "3"))
+						      (list "SIZE" "2"))
 					 (make element gi: "B"
 					       (element-title-sosofo prev)))))
 			 (make element gi: "TD"
@@ -439,14 +435,13 @@
 				   (make element gi: "FONT"
 					 attributes: (list
 						      (list "COLOR" "#FFFFFF")
-						      (list "SIZE" "3"))
+						      (list "SIZE" "2"))
 					 (make element gi: "B"
 					       (element-title-sosofo next))))))))
     (if (or r1? r2?)
 	(make element gi: "DIV"
 	      attributes: '(("CLASS" "NAVFOOTER"))
-	      (make empty-element gi: "BR"
-		    attributes: (list (list "CLEAR" "all")))
+	      (make empty-element gi: "BR")
 	      (make empty-element gi: "BR")
 
 	      (make element gi: "TABLE"
@@ -474,7 +469,7 @@
 	      (make element gi: "FONT"
 		    attributes: (list
 				 (list "COLOR" "#FFFFFF")
-				 (list "SIZE" "3"))
+				 (list "SIZE" "2"))
 		    (make element gi: "B"
 			  (gentext-nav-up up)))))))
 
@@ -491,7 +486,7 @@
 	      (make element gi: "FONT"
 		    attributes: (list
 				 (list "COLOR" "#FFFFFF")
-				 (list "SIZE" "3"))
+				 (list "SIZE" "2"))
 		    (make element gi: "B"
 			  (gentext-nav-home home)))))))
 
@@ -501,17 +496,6 @@
   (make sequence (literal "<<< Previous Page")))
 (define (gentext-en-nav-next next)
   (make sequence (literal "Next Page >>>")))
-
-
-(define ($section-body$)
-  (make sequence
-    (make empty-element gi: "BR"
-	  attributes: (list (list "CLEAR" "all")))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  ($section-separator$)
-	  ($section-title$)
-	  (process-children))))
 
 </style-specification-body>
 </style-specification>