|
268 | 268 |
|
269 | 269 | ;; Customization of header, add title attributes (overrides |
270 | 270 | ;; dbcommon.dsl) |
271 | | -(define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib) |
| 271 | +(define (default-header-nav-tbl-ff elemnode prev next) |
272 | 272 | (let* ((r1? (nav-banner? elemnode)) |
273 | 273 | (r1-sosofo (make element gi:"TR" |
274 | 274 | (make element gi:"TH" |
|
282 | 282 | (nav-banner elemnode))))) |
283 | 283 | (r2? (or (not (node-list-empty? prev)) |
284 | 284 | (not (node-list-empty? next)) |
285 | | - (not (node-list-empty? prevsib)) |
286 | | - (not (node-list-empty? nextsib)) |
287 | 285 | (nav-context? elemnode))) |
288 | 286 | (r2-sosofo (make element gi:"TR" |
289 | 287 | (make element gi:"TD" |
|
307 | 305 | (list"WIDTH""10%") |
308 | 306 | (list"ALIGN""left") |
309 | 307 | (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)))) |
| 308 | +(if (nav-up? elemnode) |
| 309 | + (nav-up elemnode) |
| 310 | + (nav-home-link elemnode))) |
319 | 311 | (make element gi:"TD" |
320 | 312 | attributes: (list |
321 | 313 | (list"WIDTH""60%") |
|
324 | 316 | (nav-context elemnode)) |
325 | 317 | (make element gi:"TD" |
326 | 318 | 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%") |
| 319 | + (list"WIDTH""20%") |
342 | 320 | (list"ALIGN""right") |
343 | 321 | (list"VALIGN""top")) |
344 | 322 | (if (node-list-empty? next) |
345 | 323 | (make entity-ref name:"nbsp") |
346 | 324 | (make element gi:"A" |
347 | 325 | attributes: (list |
348 | 326 | (list"TITLE" (element-title-string next)) |
349 | | - (list"HREF" |
| 327 | + (list"HREF" |
350 | 328 | (href-to |
351 | 329 | next)) |
352 | 330 | (list"ACCESSKEY" |
|