|
1 | | -<!-- $PostgreSQL: pgsql/doc/src/sgml/stylesheet.dsl,v1.35 2009/08/09 22:47:59 petere Exp $ --> |
| 1 | +<!-- $PostgreSQL: pgsql/doc/src/sgml/stylesheet.dsl,v1.36 2009/09/29 20:25:01 petere Exp $ --> |
2 | 2 | <!DOCTYPE style-sheet PUBLIC"-//James Clark//DTD DSSSL Style Sheet//EN" [ |
3 | 3 |
|
4 | 4 | <!-- must turn on one of these with -i on the jade command line --> |
|
265 | 265 | (make empty-element gi:"BR") |
266 | 266 | (empty-sosofo)))) |
267 | 267 |
|
| 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 | + |
268 | 374 | ]]> <!-- %output-html --> |
269 | 375 |
|
270 | 376 |
|
|