#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/base
                    racket/contract
                    racket/class
                    racket/gui/base
                    racket/snip
                    racket/unit
                    drracket/tool-lib
                    drracket/check-syntax
                    mrlib/switchable-button
                    framework
                    string-constants))
(provide (for-label (all-from-out racket/base)
                    (all-from-out racket/contract)
                    (all-from-out racket/class)
                    (all-from-out racket/gui/base)
                    (all-from-out racket/snip)
                    (all-from-out racket/unit)
                    (all-from-out drracket/tool-lib)
                    (all-from-out drracket/check-syntax)
                    (all-from-out mrlib/switchable-button)
                    (all-from-out framework)
                    (all-from-out string-constants)))

(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).}))]))
