79 lines
2.9 KiB
Racket
79 lines
2.9 KiB
Racket
#lang at-exp racket/base
|
|
(require (for-syntax racket/base))
|
|
|
|
(require scribble/manual
|
|
scribble/basic
|
|
scribble/extract
|
|
racket/class
|
|
racket/contract
|
|
"doc-util.rkt")
|
|
(provide (all-from-out scribble/manual
|
|
scribble/basic
|
|
scribble/extract
|
|
racket/class
|
|
racket/contract
|
|
"doc-util.rkt"))
|
|
|
|
(require (for-label racket/gui/base
|
|
racket/snip
|
|
racket/class
|
|
racket/contract
|
|
racket/base
|
|
drracket/tool-lib
|
|
mrlib/switchable-button
|
|
framework))
|
|
(provide (for-label (all-from-out racket/gui/base)
|
|
(all-from-out racket/snip)
|
|
(all-from-out racket/class)
|
|
(all-from-out racket/contract)
|
|
(all-from-out racket/base)
|
|
(all-from-out drracket/tool-lib)
|
|
(all-from-out mrlib/switchable-button)
|
|
(all-from-out framework)))
|
|
|
|
(provide tools-title tools-include tools-include/drs)
|
|
|
|
(define (tools-title name)
|
|
(define str (format "drracket:~a" name))
|
|
(title #:tag str (tt str)))
|
|
|
|
(define-syntax (tools-include stx)
|
|
(syntax-case stx ()
|
|
[(_ name)
|
|
(string? (syntax-e #'name))
|
|
(let ([name (syntax-e #'name)])
|
|
(with-syntax ([rx-drr (regexp (format "^~a" (regexp-quote (format "drracket:~a:" name))))])
|
|
#'(include-previously-extracted scribblings/tools/tool-lib-extracts rx-drr)))]))
|
|
|
|
(define-syntax (tools-include/drs stx)
|
|
(syntax-case stx ()
|
|
[(_ name)
|
|
(string? (syntax-e #'name))
|
|
(let ([name (syntax-e #'name)])
|
|
(with-syntax ([rx-drs (regexp (format "^~a" (regexp-quote (format "drscheme:~a:" name))))])
|
|
#'(include-previously-extracted scribblings/tools/tool-lib-extracts rx-drs)))]))
|
|
|
|
(provide docs-get/extend)
|
|
(define-syntax (docs-get/extend stx)
|
|
(syntax-case stx ()
|
|
[(_ id)
|
|
(identifier? #'id)
|
|
(with-syntax ([get (datum->syntax
|
|
#'id
|
|
(string->symbol
|
|
(format "drracket:get/extend:get-~a"
|
|
(syntax-e #'id))))]
|
|
[extend (datum->syntax
|
|
#'id
|
|
(string->symbol
|
|
(format "drracket:get/extend:extend-~a"
|
|
(syntax-e #'id))))])
|
|
#'(begin
|
|
@defproc*[([(extend (mixin mixin-contract))
|
|
void?]
|
|
[(extend (mixin mixin-contract) (before boolean?))
|
|
void?])]{
|
|
Adds a new mixin to the class eventually created in DrRacket.}
|
|
@defproc[(get) class?]{
|
|
Returns the class (with all registered mixins applied).}))]))
|