|
371 | 371 | (empty-sosofo)))) |
372 | 372 |
|
373 | 373 |
|
| 374 | +;; Put index"quicklinks" (A | B | C | ...) at the top of the bookindex page. |
| 375 | + |
| 376 | +(element index |
| 377 | + (let ((preamble (node-list-filter-by-not-gi |
| 378 | + (children (current-node)) |
| 379 | + (list (normalize"indexentry")))) |
| 380 | + (indexdivs (node-list-filter-by-gi |
| 381 | + (children (current-node)) |
| 382 | + (list (normalize"indexdiv")))) |
| 383 | + (entries (node-list-filter-by-gi |
| 384 | + (children (current-node)) |
| 385 | + (list (normalize"indexentry"))))) |
| 386 | + (html-document |
| 387 | + (with-mode head-title-mode |
| 388 | + (literal (element-title-string (current-node)))) |
| 389 | + (make element gi:"DIV" |
| 390 | + attributes: (list (list"CLASS" (gi))) |
| 391 | + ($component-separator$) |
| 392 | + ($component-title$) |
| 393 | + (if (node-list-empty? indexdivs) |
| 394 | + (empty-sosofo) |
| 395 | + (make element gi:"P" |
| 396 | + attributes: (list (list"CLASS""INDEXDIV-QUICKLINKS")) |
| 397 | + (with-mode indexdiv-quicklinks-mode |
| 398 | + (process-node-list indexdivs)))) |
| 399 | + (process-node-list preamble) |
| 400 | + (if (node-list-empty? entries) |
| 401 | + (empty-sosofo) |
| 402 | + (make element gi:"DL" |
| 403 | + (process-node-list entries))))))) |
| 404 | + |
| 405 | + |
| 406 | +(mode indexdiv-quicklinks-mode |
| 407 | + (element indexdiv |
| 408 | + (make sequence |
| 409 | + (make element gi:"A" |
| 410 | + attributes: (list (list"HREF" (href-to (current-node)))) |
| 411 | + (element-title-sosofo)) |
| 412 | + (if (not (last-sibling?)) |
| 413 | + (literal" | ") |
| 414 | + (literal""))))) |
| 415 | + |
| 416 | + |
374 | 417 | ]]> <!-- %output-html --> |
375 | 418 |
|
376 | 419 |
|
|