24 lines
577 B
Racket
24 lines
577 B
Racket
#lang scheme/base
|
|
|
|
(require setup/xref
|
|
scribble/xref
|
|
scribble/basic
|
|
scribble/tag
|
|
scheme/promise
|
|
net/url
|
|
net/sendurl)
|
|
|
|
(provide show-scribbling)
|
|
|
|
(define (show-scribbling mod-path tag)
|
|
(define xref (load-collections-xref))
|
|
(λ ()
|
|
(define-values (path anchor)
|
|
(xref-tag->path+anchor
|
|
xref
|
|
(make-section-tag tag #:doc mod-path)))
|
|
(if path
|
|
(let ([u (path->url path)])
|
|
(send-url (url->string u)))
|
|
(error 'show-scribbling "cannot find docs for: ~.s ~.s" mod-path tag))))
|