[PHPDOC] cvs: phpdoc / pdflevels.dsl From: Jouni Ahto (jah <email protected>)
Date: 06/25/00

jah Sun Jun 25 10:29:36 2000 EDT

  Modified files:
    /phpdoc pdflevels.dsl
  Log:
  
  Partintro isn't missing anymore. Still not perfect...
  
  
Index: phpdoc/pdflevels.dsl
diff -u phpdoc/pdflevels.dsl:1.2 phpdoc/pdflevels.dsl:1.3
--- phpdoc/pdflevels.dsl:1.2 Sun Jun 25 07:24:36 2000
+++ phpdoc/pdflevels.dsl Sun Jun 25 10:29:36 2000
@@ -1,5 +1,5 @@
 ;;
-;; $Id: pdflevels.dsl,v 1.2 2000/06/25 14:24:36 jah Exp $
+;; $Id: pdflevels.dsl,v 1.3 2000/06/25 17:29:36 jah Exp $
 ;;
 ;; This file contains stylesheet customization to get bookmark levels
 ;; right in PDF version of manual.
@@ -115,12 +115,16 @@
                                             (list (normalize "bookbiblio")
                                                   (normalize "bibliomisc")
                                                   (normalize "biblioset")))))
+
+ (partintro (select-elements (children (current-node))
+ (normalize "partintro")))
          (parent-titles (select-elements (children (current-node)) (normalize "title")))
          (info-titles (select-elements exp-children (normalize "title")))
          (titles (if (node-list-empty? parent-titles)
                             info-titles
                             parent-titles))
          (subtitles (select-elements exp-children (normalize "subtitle"))))
+
     (make sequence
       (make paragraph
         font-family-name: %title-font-family%
@@ -163,8 +167,13 @@
 
         (with-mode sub-component-title-mode
           (make sequence
- (process-node-list subtitles)))))))
+ (process-node-list subtitles)))
 
+ (make sequence
+ ($process-partintro$ partintro #t)
+ (empty-sosofo))))))
+
+
 (mode sub-component-title-mode
   (element title
     (process-children))
@@ -256,9 +265,6 @@
 
 ;; own code
 
-(define (empty-string)
- (literal ""))
-
 (element part ($component$))
 (element (part title) (empty-sosofo))
 
@@ -274,3 +280,4 @@
 (define %generate-part-titlepage% #t)
 (define %generate-chapter-titlepage% #t)
 (define %generate-reference-titlepage% #t)
+(define %generate-partintro-on-titlepage% #t)
\ No newline at end of file