]]> ]]> ]]> ]> (define pgsql-docs-list "pgsql-docs@postgresql.org") (define %refentry-xref-manvolnum% #f) (define %callout-graphics% #f) (define %show-comments% #f) (define %content-title-end-punct% '(#\. #\! #\? #\:)) (element lineannotation ($italic-seq$)) (element structfield ($mono-seq$)) (element structname ($mono-seq$)) (element symbol ($mono-seq$)) (element type ($mono-seq$)) ;; The rules in the default stylesheet for productname format it as ;; a paragraph. This may be suitable for productname directly ;; within *info, but it's nonsense when productname is used ;; inline, as we do. (mode set-titlepage-recto-mode (element (para productname) ($charseq$))) (mode set-titlepage-verso-mode (element (para productname) ($charseq$))) (mode book-titlepage-recto-mode (element (para productname) ($charseq$))) (mode book-titlepage-verso-mode (element (para productname) ($charseq$))) ;; Add more here if needed... string (time) #t))))) (define html-index #t) ;; Block elements are allowed in PARA in DocBook, but not in P in ;; HTML. With %fix-para-wrappers% turned on, the stylesheets attempt ;; to avoid putting block elements in HTML P tags by outputting ;; additional end/begin P pairs around them. (define %fix-para-wrappers% #t) ;; ...but we need to do some extra work to make the above apply to PRE ;; as well. (mostly pasted from dbverb.dsl) (define ($verbatim-display$ indent line-numbers?) (let ((content (make element gi: "PRE" attributes: (list (list "CLASS" (gi))) (if (or indent line-numbers?) ($verbatim-line-by-line$ indent line-numbers?) (process-children))))) (if %shade-verbatim% (make element gi: "TABLE" attributes: ($shade-verbatim-attr$) (make element gi: "TR" (make element gi: "TD" content))) (make sequence (para-check) content (para-check 'restart))))) ;; ...and for notes. (element note (make sequence (para-check) ($admonition$) (para-check 'restart))) ;;; XXX The above is very ugly. It might be better to run 'tidy' on ;;; the resulting *.html files. ]]> = (string->number "1.73") 1.73))) ;; Format legalnotice justified and with space between paragraphs. (mode book-titlepage-verso-mode (element (legalnotice para) (make paragraph use: book-titlepage-verso-style ;; alter this if ever it needs to appear elsewhere quadding: %default-quadding% line-spacing: (* 0.8 (inherited-line-spacing)) font-size: (* 0.8 (inherited-font-size)) space-before: (* 0.8 %para-sep%) space-after: (* 0.8 %para-sep%) (process-children)))) ;; Fix spacing bug in variablelists (define (process-listitem-content) (if (absolute-first-sibling?) (make sequence (process-children-trim)) (next-match))) ;; Default stylesheets format simplelists are tables. This just ;; spells trouble for Jade. (define %simplelist-indent% 1em) (define (my-simplelist-vert members) (make display-group space-before: %para-sep% space-after: %para-sep% start-indent: (+ %simplelist-indent% (inherited-start-indent)) (process-children))) (element simplelist (let ((type (attribute-string (normalize "type"))) (cols (if (attribute-string (normalize "columns")) (if (> (string->number (attribute-string (normalize "columns"))) 0) (string->number (attribute-string (normalize "columns"))) 1) 1)) (members (select-elements (children (current-node)) (normalize "member")))) (cond ((equal? type (normalize "inline")) (if (equal? (gi (parent (current-node))) (normalize "para")) (process-children) (make paragraph space-before: %para-sep% space-after: %para-sep% start-indent: (inherited-start-indent)))) ((equal? type (normalize "vert")) (my-simplelist-vert members)) ((equal? type (normalize "horiz")) (simplelist-table 'row cols members))))) (element member (let ((type (inherited-attribute-string (normalize "type")))) (cond ((equal? type (normalize "inline")) (make sequence (process-children) (if (not (last-sibling?)) (literal ", ") (literal "")))) ((equal? type (normalize "vert")) (make paragraph space-before: 0pt space-after: 0pt)) ((equal? type (normalize "horiz")) (make paragraph quadding: 'start (process-children)))))) ]]>