14
15
16
17
18
19
20
21
22
23
24
|
14
15
16
17
18
19
20
21
22
23
24
|
-
+
|
(only-in net/uri-codec uri-encode))
(provide (all-defined-out))
(define-runtime-path custom-css "custom.css")
(define repo-url/ "https://thelocalyarn.com/cgi-bin/yarncode/")
(define repo-url/ "https://thelocalyarn.com/code/")
;; Link to a ticket on the Fossil repository by specifying the ticket ID.
;; The "_parent" target breaks out of the iframe used by the Fossil repo web UI.
(define (ticket id-str)
(hyperlink (string-append repo-url/ "tktview?name=" id-str)
|
