Overview
| Comment: | [713fa32699] Make footnote links unique sitewide |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
62024c9675987d48eec4983016afb078 |
| User & Date: | joel on 2019-06-01 20:43:58 |
| Other Links: | manifest | tags |
Context
|
2019-06-05
| ||
| 18:28 | Include Racket/Pollen version in HTML meta tags check-in: 7ad10e98 user: joel tags: trunk | |
|
2019-06-01
| ||
| 20:43 | [713fa32699] Make footnote links unique sitewide check-in: 62024c96 user: joel tags: trunk | |
| 20:30 | Support sub-entries in keyword index. Finishes [5daecde7] check-in: d7ebf012 user: joel tags: trunk | |
Changes
Modified tags-html.rkt from [0c6322fb] to [a895fb78].
| ︙ | ︙ | |||
191 192 193 194 195 196 197 |
[else tx]))
;; Footnotes
;;
;; Private use:
(define fn-names null)
(define fn-definitions (make-hash))
| | | | 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 |
[else tx]))
;; Footnotes
;;
;; Private use:
(define fn-names null)
(define fn-definitions (make-hash))
(define (fn-id x) (here-id (string-append x "_fn")))
(define (fndef-id x) (here-id (string-append x "_fndef")))
;; Provided footnote tag functions:
(define (html-fn . args)
(define name (format "~a" (first args)))
(set! fn-names (cons name fn-names))
(let* ([def-anchorlink (string-append "#" (fndef-id name))]
[nth-ref (number->string (count (curry string=? name) fn-names))]
|
| ︙ | ︙ |