rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add Up/Home link to the top of the HTML doc output. 

Backpatch to 9.0.X and 9.1.X.
This commit is contained in:
Bruce Momjian 2011-10-12 11:24:13 -04:00
parent 8c8ba6d11b
commit b8691d838b
1 changed files with 5 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
doc/src/sgml/stylesheet.dsl
View File

@ -284,7 +284,7 @@
;; Customization of header, add title attributes (overrides
;; dbcommon.dsl)
(define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib)
(define (default-header-nav-tbl-ff elemnode prev next)
(let* ((r1? (nav-banner? elemnode))
(r1-sosofo (make element gi: "TR"
(make element gi: "TH"
@ -298,8 +298,6 @@
(nav-banner elemnode)))))
(r2? (or (not (node-list-empty? prev))
(not (node-list-empty? next))
(not (node-list-empty? prevsib))
(not (node-list-empty? nextsib))
(nav-context? elemnode)))
(r2-sosofo (make element gi: "TR"
(make element gi: "TD"
@ -323,15 +321,9 @@
(list "WIDTH" "10%")
(list "ALIGN" "left")
(list "VALIGN" "top"))
(if (node-list-empty? prevsib)
(make entity-ref name: "nbsp")
(make element gi: "A"
attributes: (list
(list "TITLE" (element-title-string prevsib))
(list "HREF"
(href-to
prevsib)))
(gentext-nav-prev-sibling prevsib))))
(if (nav-up? elemnode)
(nav-up elemnode)
(nav-home-link elemnode)))
(make element gi: "TD"
attributes: (list
(list "WIDTH" "60%")
@ -340,21 +332,7 @@
(nav-context elemnode))
(make element gi: "TD"
attributes: (list
(list "WIDTH" "10%")
(list "ALIGN" "right")
(list "VALIGN" "top"))
(if (node-list-empty? nextsib)
(make entity-ref name: "nbsp")
(make element gi: "A"
attributes: (list
(list "TITLE" (element-title-string nextsib))
(list "HREF"
(href-to
nextsib)))
(gentext-nav-next-sibling nextsib))))
(make element gi: "TD"
attributes: (list
(list "WIDTH" "10%")
(list "WIDTH" "20%")
(list "ALIGN" "right")
(list "VALIGN" "top"))
(if (node-list-empty? next)