Local Yarn Code

Check-in [62024c96]
Overview
Comment:[713fa32699] Make footnote links unique sitewide
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 62024c9675987d48eec4983016afb0782ce8615b0f1348f12755db5b3132773f
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
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) (string-append x "_fn"))
(define (fndef-id x) (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))]







|
|







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))]