Skip to content

Commit 1d43e53

Browse files
peterepetere
committed
Add tooltips to the header links, and make title a link to the home page
based on an idea by Richard Huxton
1 parent 960d7ff commit 1d43e53

File tree

1 file changed

+107
-1
lines changed

1 file changed

+107
-1
lines changed

‎doc/src/sgml/stylesheet.dsl

Lines changed: 107 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
<!-- $PostgreSQL: pgsql/doc/src/sgml/stylesheet.dsl,v 1.35 2009/08/09 22:47:59 petere Exp $ -->
1+
<!-- $PostgreSQL: pgsql/doc/src/sgml/stylesheet.dsl,v 1.36 2009/09/29 20:25:01 petere Exp $ -->
22
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
33

44
<!-- must turn on one of these with -i on the jade command line -->
@@ -265,6 +265,112 @@
265265
(make empty-element gi: "BR")
266266
(empty-sosofo))))
267267

268+
269+
;; Customization of header, add title attributes (overrides
270+
;; dbcommon.dsl)
271+
(define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib)
272+
(let* ((r1? (nav-banner? elemnode))
273+
(r1-sosofo (make element gi: "TR"
274+
(make element gi: "TH"
275+
attributes: (list
276+
(list "COLSPAN" "5")
277+
(list "ALIGN" "center")
278+
(list "VALIGN" "bottom"))
279+
(make element gi: "A"
280+
attributes: (list
281+
(list "HREF" (href-to (nav-home elemnode))))
282+
(nav-banner elemnode)))))
283+
(r2? (or (not (node-list-empty? prev))
284+
(not (node-list-empty? next))
285+
(not (node-list-empty? prevsib))
286+
(not (node-list-empty? nextsib))
287+
(nav-context? elemnode)))
288+
(r2-sosofo (make element gi: "TR"
289+
(make element gi: "TD"
290+
attributes: (list
291+
(list "WIDTH" "10%")
292+
(list "ALIGN" "left")
293+
(list "VALIGN" "top"))
294+
(if (node-list-empty? prev)
295+
(make entity-ref name: "nbsp")
296+
(make element gi: "A"
297+
attributes: (list
298+
(list "TITLE" (element-title-string prev))
299+
(list "HREF"
300+
(href-to
301+
prev))
302+
(list "ACCESSKEY"
303+
"P"))
304+
(gentext-nav-prev prev))))
305+
(make element gi: "TD"
306+
attributes: (list
307+
(list "WIDTH" "10%")
308+
(list "ALIGN" "left")
309+
(list "VALIGN" "top"))
310+
(if (node-list-empty? prevsib)
311+
(make entity-ref name: "nbsp")
312+
(make element gi: "A"
313+
attributes: (list
314+
(list "TITLE" (element-title-string prevsib))
315+
(list "HREF"
316+
(href-to
317+
prevsib)))
318+
(gentext-nav-prev-sibling prevsib))))
319+
(make element gi: "TD"
320+
attributes: (list
321+
(list "WIDTH" "60%")
322+
(list "ALIGN" "center")
323+
(list "VALIGN" "bottom"))
324+
(nav-context elemnode))
325+
(make element gi: "TD"
326+
attributes: (list
327+
(list "WIDTH" "10%")
328+
(list "ALIGN" "right")
329+
(list "VALIGN" "top"))
330+
(if (node-list-empty? nextsib)
331+
(make entity-ref name: "nbsp")
332+
(make element gi: "A"
333+
attributes: (list
334+
(list "TITLE" (element-title-string nextsib))
335+
(list "HREF"
336+
(href-to
337+
nextsib)))
338+
(gentext-nav-next-sibling nextsib))))
339+
(make element gi: "TD"
340+
attributes: (list
341+
(list "WIDTH" "10%")
342+
(list "ALIGN" "right")
343+
(list "VALIGN" "top"))
344+
(if (node-list-empty? next)
345+
(make entity-ref name: "nbsp")
346+
(make element gi: "A"
347+
attributes: (list
348+
(list "TITLE" (element-title-string next))
349+
(list "HREF"
350+
(href-to
351+
next))
352+
(list "ACCESSKEY"
353+
"N"))
354+
(gentext-nav-next next)))))))
355+
(if (or r1? r2?)
356+
(make element gi: "DIV"
357+
attributes: '(("CLASS" "NAVHEADER"))
358+
(make element gi: "TABLE"
359+
attributes: (list
360+
(list "SUMMARY" "Header navigation table")
361+
(list "WIDTH" %gentext-nav-tblwidth%)
362+
(list "BORDER" "0")
363+
(list "CELLPADDING" "0")
364+
(list "CELLSPACING" "0"))
365+
(if r1? r1-sosofo (empty-sosofo))
366+
(if r2? r2-sosofo (empty-sosofo)))
367+
(make empty-element gi: "HR"
368+
attributes: (list
369+
(list "ALIGN" "LEFT")
370+
(list "WIDTH" %gentext-nav-tblwidth%))))
371+
(empty-sosofo))))
372+
373+
268374
]]> <!-- %output-html -->
269375

270376

0 commit comments

Comments
 (0)