mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2024-12-15 08:20:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
Backpatch to 9.0.X and 9.1.X.
This commit is contained in:
Bruce Momjian 2011-10-12 11:48:02 -04:00
parent 9c09e7cf2d
commit 55800b68de
1 changed files with 6 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -268,7 +268,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"
@ -282,8 +282,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"
@ -307,15 +305,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%")
@ -324,21 +316,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)
@ -346,7 +324,7 @@
(make element gi: "A"
attributes: (list
(list "TITLE" (element-title-string next))
(list "HREF"
(list "HREF"
(href-to
next))
(list "ACCESSKEY"