|
284 | 284 |
|
285 | 285 | ;; Customization of header, add title attributes (overrides |
286 | 286 | ;; dbcommon.dsl) |
287 | | -(define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib) |
| 287 | +(define (default-header-nav-tbl-ff elemnode prev next) |
288 | 288 | (let* ((r1? (nav-banner? elemnode)) |
289 | 289 | (r1-sosofo (make element gi:"TR" |
290 | 290 | (make element gi:"TH" |
|
298 | 298 | (nav-banner elemnode))))) |
299 | 299 | (r2? (or (not (node-list-empty? prev)) |
300 | 300 | (not (node-list-empty? next)) |
301 | | - (not (node-list-empty? prevsib)) |
302 | | - (not (node-list-empty? nextsib)) |
303 | 301 | (nav-context? elemnode))) |
304 | 302 | (r2-sosofo (make element gi:"TR" |
305 | 303 | (make element gi:"TD" |
|
323 | 321 | (list"WIDTH""10%") |
324 | 322 | (list"ALIGN""left") |
325 | 323 | (list"VALIGN""top")) |
326 | | -(if (node-list-empty? prevsib) |
327 | | - (make entity-ref name:"nbsp") |
328 | | - (make element gi:"A" |
329 | | - attributes: (list |
330 | | - (list"TITLE" (element-title-string prevsib)) |
331 | | - (list"HREF" |
332 | | - (href-to |
333 | | - prevsib))) |
334 | | - (gentext-nav-prev-sibling prevsib)))) |
| 324 | +(if (nav-up? elemnode) |
| 325 | + (nav-up elemnode) |
| 326 | + (nav-home-link elemnode))) |
335 | 327 | (make element gi:"TD" |
336 | 328 | attributes: (list |
337 | 329 | (list"WIDTH""60%") |
|
340 | 332 | (nav-context elemnode)) |
341 | 333 | (make element gi:"TD" |
342 | 334 | attributes: (list |
343 | | - (list"WIDTH""10%") |
344 | | - (list"ALIGN""right") |
345 | | - (list"VALIGN""top")) |
346 | | -(if (node-list-empty? nextsib) |
347 | | - (make entity-ref name:"nbsp") |
348 | | - (make element gi:"A" |
349 | | - attributes: (list |
350 | | - (list"TITLE" (element-title-string nextsib)) |
351 | | - (list"HREF" |
352 | | - (href-to |
353 | | - nextsib))) |
354 | | - (gentext-nav-next-sibling nextsib)))) |
355 | | - (make element gi:"TD" |
356 | | -attributes: (list |
357 | | - (list"WIDTH""10%") |
| 335 | + (list"WIDTH""20%") |
358 | 336 | (list"ALIGN""right") |
359 | 337 | (list"VALIGN""top")) |
360 | 338 | (if (node-list-empty? next) |
|