Skip to content

P
Postgres FD Implementation
Commit b8691d83 authored by Bruce Momjian's avatar Bruce Momjian
Browse files
Options

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

Backpatch to 9.0.X and 9.1.X.
parent 8c8ba6d1
Show whitespace changes
Inline Side-by-side
Showing with 5 additions and 27 deletions
doc/src/sgml/stylesheet.dsl
View file @ b8691d83
...@@ -284,7 +284,7 @@ ...@@ -284,7 +284,7 @@
;; Customization of header, add title attributes (overrides ;; Customization of header, add title attributes (overrides
;; dbcommon.dsl) ;; 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)) (let* ((r1? (nav-banner? elemnode))
(r1-sosofo (make element gi: "TR" (r1-sosofo (make element gi: "TR"
(make element gi: "TH" (make element gi: "TH"
...@@ -298,8 +298,6 @@ ...@@ -298,8 +298,6 @@
(nav-banner elemnode))))) (nav-banner elemnode)))))
(r2? (or (not (node-list-empty? prev)) (r2? (or (not (node-list-empty? prev))
(not (node-list-empty? next)) (not (node-list-empty? next))
(not (node-list-empty? prevsib))
(not (node-list-empty? nextsib))
(nav-context? elemnode))) (nav-context? elemnode)))
(r2-sosofo (make element gi: "TR" (r2-sosofo (make element gi: "TR"
(make element gi: "TD" (make element gi: "TD"
...@@ -323,15 +321,9 @@ ...@@ -323,15 +321,9 @@
(list "WIDTH" "10%") (list "WIDTH" "10%")
(list "ALIGN" "left") (list "ALIGN" "left")
(list "VALIGN" "top")) (list "VALIGN" "top"))
(if (node-list-empty? prevsib) (if (nav-up? elemnode)
(make entity-ref name: "nbsp") (nav-up elemnode)
(make element gi: "A" (nav-home-link elemnode)))
attributes: (list
(list "TITLE" (element-title-string prevsib))
(list "HREF"
(href-to
prevsib)))
(gentext-nav-prev-sibling prevsib))))
(make element gi: "TD" (make element gi: "TD"
attributes: (list attributes: (list
(list "WIDTH" "60%") (list "WIDTH" "60%")
...@@ -340,21 +332,7 @@ ...@@ -340,21 +332,7 @@
(nav-context elemnode)) (nav-context elemnode))
(make element gi: "TD" (make element gi: "TD"
attributes: (list attributes: (list
(list "WIDTH" "10%") (list "WIDTH" "20%")
(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 "ALIGN" "right") (list "ALIGN" "right")
(list "VALIGN" "top")) (list "VALIGN" "top"))
(if (node-list-empty? next) (if (node-list-empty? next)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment