Local Yarn Code

Check-in [b6a4e42a]
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

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

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







|







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