Overview
| Comment: | Add scribble tag for repo files |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
8b79fa0d6409e761742b68fe8b7ac8f8 |
| User & Date: | joel on 2019-04-27 19:49:51.971 |
| Other Links: | manifest | tags |
Context
|
2019-04-27
| ||
| 20:00 | Document invalidate-series check-in: 68cbde30 user: joel tags: trunk | |
| 19:49 | Add scribble tag for repo files check-in: 8b79fa0d user: joel tags: trunk | |
| 19:08 | Utility scripts use (main) check-in: 1e45b119 user: joel tags: trunk | |
Changes
Modified code-docs/scribble-helpers.rkt
from [1eef327e]
to [73316e54].
| ︙ | ︙ | |||
27 28 29 30 31 32 33 |
scribble/manual/lang
scribble/html-properties
(only-in net/uri-codec uri-encode))
(provide (all-defined-out))
(define repo-url/ "https://thelocalyarn.com/cgi-bin/yarncode/")
| | > > | | > > > > > > > | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
scribble/manual/lang
scribble/html-properties
(only-in net/uri-codec uri-encode))
(provide (all-defined-out))
(define repo-url/ "https://thelocalyarn.com/cgi-bin/yarncode/")
;; 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)
"ticket "
(tt id-str)
#:style (style #f (list (attributes '((target . "_parent")))))))
;; Link to a wiki page on the Fossil repository by specifying the title
(define (wiki title)
(hyperlink (string-append repo-url/ "wiki?name=" (uri-encode title))
title
#:style (style #f (list (attributes '((target . "_parent")))))))
;; Link somewhere outside these docs or Racket docs. The `_blank` target opens in a new tab.
(define (ext-link url-str . elems)
(keyword-apply hyperlink '(#:style) (list (style #f (list (attributes '((target . "_blank"))))))
url-str
elems))
;; Link to show contents of the latest checked-in version of a file
;; (or a file listing if a directory was specified)
(define (repo-file filename)
(hyperlink (string-append repo-url/ "file/" filename)
(tt filename)
#:style (style #f (list (attributes '((target . "_parent")))))))
(define (responsive-retina-image img-path)
(image img-path
#:scale 0.5
#:style (style #f (list (attributes '((style . "max-width:100%;height:auto;")))))))
|