Add tooltips to the header links, and make title a link to the home page

based on an idea by Richard Huxton

diff --git a/doc/src/sgml/stylesheet.dsl b/doc/src/sgml/stylesheet.dsl
index 476b4128b56ca64d948c116773af1d9440cbb03a..4bb883c489f26cdc2e96fc381f930984bc6f2bc0 100644 (file)
--- a/doc/src/sgml/stylesheet.dsl
+++ b/doc/src/sgml/stylesheet.dsl
@@ -265,6 +265,112 @@
         (make empty-element gi: "BR")
         (empty-sosofo))))
 
+
+;; Customization of header, add title attributes (overrides
+;; dbcommon.dsl)
+(define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib)
+  (let* ((r1? (nav-banner? elemnode))
+        (r1-sosofo (make element gi: "TR"
+                         (make element gi: "TH"
+                               attributes: (list
+                                            (list "COLSPAN" "5")
+                                            (list "ALIGN" "center")
+                                            (list "VALIGN" "bottom"))
+                               (make element gi: "A"
+                                     attributes: (list
+                                                  (list "HREF" (href-to (nav-home elemnode))))
+                                     (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"
+                               attributes: (list
+                                            (list "WIDTH" "10%")
+                                            (list "ALIGN" "left")
+                                            (list "VALIGN" "top"))
+                               (if (node-list-empty? prev)
+                                   (make entity-ref name: "nbsp")
+                                   (make element gi: "A"
+                                         attributes: (list
+                                                      (list "TITLE" (element-title-string prev))
+                                                      (list "HREF"
+                                                            (href-to
+                                                             prev))
+                                                      (list "ACCESSKEY"
+                                                            "P"))
+                                         (gentext-nav-prev prev))))
+                         (make element gi: "TD"
+                               attributes: (list
+                                            (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))))
+                         (make element gi: "TD"
+                               attributes: (list
+                                            (list "WIDTH" "60%")
+                                            (list "ALIGN" "center")
+                                            (list "VALIGN" "bottom"))
+                               (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 "ALIGN" "right")
+                                            (list "VALIGN" "top"))
+                               (if (node-list-empty? next)
+                                   (make entity-ref name: "nbsp")
+                                   (make element gi: "A"
+                                         attributes: (list
+                                                      (list "TITLE" (element-title-string next))
+                                                      (list "HREF" 
+                                                            (href-to
+                                                             next))
+                                                      (list "ACCESSKEY"
+                                                            "N"))
+                                         (gentext-nav-next next)))))))
+    (if (or r1? r2?)
+       (make element gi: "DIV"
+             attributes: '(("CLASS" "NAVHEADER"))
+         (make element gi: "TABLE"
+               attributes: (list
+                            (list "SUMMARY" "Header navigation table")
+                            (list "WIDTH" %gentext-nav-tblwidth%)
+                            (list "BORDER" "0")
+                            (list "CELLPADDING" "0")
+                            (list "CELLSPACING" "0"))
+               (if r1? r1-sosofo (empty-sosofo))
+               (if r2? r2-sosofo (empty-sosofo)))
+         (make empty-element gi: "HR"
+               attributes: (list
+                            (list "ALIGN" "LEFT")
+                            (list "WIDTH" %gentext-nav-tblwidth%))))
+       (empty-sosofo))))
+
+
 ]]> <!-- %output-html -->