◊(Local Yarn Code "Check-in [b6a4e42a]")

Login
About History Code Code Docs Road Map Issues
Overview
Comment:Fix [50052157dd]
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: b6a4e42a8dc163f2bfd32e0f3974061c8405a78fa055ae31eeb412fe27bcb9c8
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tags-html.rkt from [066e2351] to [4ebbddcc].

︙
138
139
140
141
142
143
144
145

146
147
148
149
150
151
152

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

This page was generated in about 0.012s by Fossil 2.19 [318ab802db] 2022-05-27 02:05:21