Overview
| Comment: | Fix [50052157dd] |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b6a4e42a8dc163f2bfd32e0f3974061c |
| User & Date: | joel on 2019-05-26 20:22:16 |
| Original Comment: | Fix [964e8c8e03] |
| Other Links: | manifest | tags |
References
|
2019-05-26
| ||
| 20:26 | • Closed ticket [50052157]: Hyperlinks not properly decoded inside note tags plus 4 other changes artifact: 0238e42e user: joel | |
Context
|
2019-05-26
| ||
| 20:33 | No more smartypants-style quote/dash processing check-in: 3c7620a3 user: joel tags: trunk | |
| 20:22 | Fix [50052157dd] check-in: b6a4e42a user: joel tags: trunk | |
|
2019-05-19
| ||
| 22:14 | Fix link on wiki check-in: c1172e44 user: joel tags: trunk | |
Changes
Modified tags-html.rkt from [066e2351] to [4ebbddcc].
| ︙ | ︙ | |||
138 139 140 141 142 143 144 | (define link-urls (make-hash)) ;; Provided tag functions: (define (html-link . args) `(link& [[ref ,(format "~a" (first args))]] ,@(rest args))) (define (html-url ref url) | | | 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
(define link-urls (make-hash))
;; Provided tag functions:
(define (html-link . args)
`(link& [[ref ,(format "~a" (first args))]] ,@(rest args)))
(define (html-url ref url)
(hash-set! link-urls (format "~a" ref) url) "")
;; Private use (by html-root):
(define (decode-link-urls tx)
(cond [(eq? (get-tag tx) 'link&)
(let* ([url-ref (attr-ref tx 'ref)]
[url (or (hash-ref link-urls url-ref #f)
(format "Missing reference: ~a" url-ref))])
|
| ︙ | ︙ |