Hi Lucas:
This is what I have for render the Chapter title
(I hope there isn't nothing more you need in other customization file)
;; Títtle for Chapter
;; It's changed only for chapter title.
(define ($component-title$)
(let* ((info (cond
((equal? (gi) (normalize "appendix"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "article"))
(node-list-filter-by-gi (children (current-node))
(list (normalize "artheader")
(normalize "articleinfo"))))
((equal? (gi) (normalize "bibliography"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "chapter"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "dedication"))
(empty-node-list))
((equal? (gi) (normalize "glossary"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "index"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "preface"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "reference"))
(select-elements (children (current-node)) (normalize "docinfo")))
((equal? (gi) (normalize "setindex"))
(select-elements (children (current-node)) (normalize "docinfo")))
(else
(empty-node-list))))
(exp-children (if (node-list-empty? info)
(empty-node-list)
(expand-children (children info)
(list (normalize "bookbiblio")
(normalize "bibliomisc")
(normalize "biblioset")))))
(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"))))
;; ==================== Changed for Chapter ======================
(if (equal? (gi) (normalize "chapter"))
(make sequence
;; Parrafo con "Capitulo n"
(make paragraph
font-family-name: %title-font-family%
;; font-weight: 'bold
font-weight: 'semi-light
font-size: (HSIZE 6)
space-before: 0pt
;; space-after: (* (HSIZE 6) %head-before-factor% )
space-after: 1cm
quadding: 'end
heading-level: (if %generate-heading-level% 1 0)
keep-with-next?: #t
(if (string=? (element-label) "")
(empty-sosofo)
(make sequence
line-spacing: (* (HSIZE 1) %line-spacing-factor%)
(literal (gentext-element-name-space (current-node)))
(make sequence
font-size: (* (HSIZE 6) 2.5)
font-weight: 'bold
color: light-blue
(literal (element-label))))))
;; Quito el punto (gentext-label-title-sep (gi))
;; Para with chapter title
(make paragraph
font-family-name: %title-font-family%
font-weight: 'bold
font-size: (HSIZE 6)
line-spacing: (* (HSIZE 1) %line-spacing-factor%)
;; space-before: (* (HSIZE 10) %head-before-factor%)
space-before: 0.5cm
;; space-after: (* (HSIZE 14) %head-before-factor%)
;; se suma al 1cm anterior
space-after: 1.5cm
start-indent: 0pt
first-line-start-indent: 0pt
quadding: 'end
heading-level: (if %generate-heading-level% 1 0)
keep-with-next?: #t
(if (node-list-empty? titles)
(element-title-sosofo) ;; get a default!
(with-mode chapter-title-mode
(make sequence
(process-node-list titles))))))
;; If not chapter:
(make sequence
(make paragraph
font-family-name: %title-font-family%
font-weight: 'bold
font-size: (HSIZE 4)
line-spacing: (* (HSIZE 4) %line-spacing-factor%)
space-before: (* (HSIZE 4) %head-before-factor%)
start-indent: 0pt
first-line-start-indent: 0pt
quadding: %component-title-quadding%
heading-level: (if %generate-heading-level% 1 0)
keep-with-next?: #t
(if (string=? (element-label) "")
(empty-sosofo)
(literal (gentext-element-name-space (current-node))
(element-label)
(gentext-label-title-sep (gi))))
(if (node-list-empty? titles)
(element-title-sosofo) ;; get a default!
(with-mode component-title-mode
(make sequence
(process-node-list titles)))))
(make paragraph
font-family-name: %title-font-family%
font-weight: 'bold
font-posture: 'italic
font-size: (HSIZE 3)
line-spacing: (* (HSIZE 3) %line-spacing-factor%)
space-before: (* 0.5 (* (HSIZE 3) %head-before-factor%))
space-after: (* (HSIZE 4) %head-after-factor%)
start-indent: 0pt
first-line-start-indent: 0pt
quadding: %component-subtitle-quadding%
keep-with-next?: #t
(with-mode component-title-mode
(make sequence
(process-node-list subtitles))))))))
;; Chapter-Title Mode
(mode chapter-title-mode
(element title
(make sequence
(process-children))))
It may be just your starting point :-)
Best regards,
Juan R. Migoya
SPAIN
Lucas Brasilino wrote:
Hi All:
I've got a problem that is confusing me.
After looking for a answer through mailing list archives and
googling around, can't figure out how can I get the job done.
First of all, I've got some knowledgment on customizing
DocBook DSSSL. I've customized one as following:
<snip>
* How can I modify the first page of each chapter to be more
beautiful. The default one is just like:
Chapter 1. Introduction
I'd like a big chapter number (1) inside a light gray square and
the title of chapter (Introduction) in italic below chapter's number.
Again I can create a procedure in PostScript and overlay default feature
above. But again it is quite hard.
So. Is there a way to configure DSSSL, openjade, jadetex , DVIPS,
whatever to make these issues automagically ??
Thanks a lot in advance
PS: I'm using:
DocBook DTD 4.1
DocBook DSSSL 1.76b+ (from CVS)
OpenJade 1.3
Jadetex 3.6
DVIPS 5.86
And a mug with Tux printed on :)
--
x
[]'s
Lucas Brasilino
brasilino@recife.pe.gov.br
http://www.recife.pe.gov.br