Restructure to use package scribblings tools

generic-syntax-expanders/docs/defpredicate.rkt

@@ -1,8 +0,0 @@
-#lang racket
-
-(require scribble/manual)
-
-(provide defpredicate)
-
-(define-syntax-rule (defpredicate id pre-flow ...)
-  (defthing #:kind "predicate" id predicate/c pre-flow ...))

generic-syntax-expanders/docs/example-evaluator.rkt

@@ -1,11 +0,0 @@
-#lang racket
-
-(require scribble/eval)
-
-(provide package-examples)
-
-(define generic-syntax-expanders-eval (make-base-eval))
-(generic-syntax-expanders-eval '(require generic-syntax-expanders))
-
-(define-syntax-rule (package-examples example-body ...)
-  (examples #:eval generic-syntax-expanders-eval example-body ...))

generic-syntax-expanders/docs/module-title.rkt

@@ -1,10 +0,0 @@
-#lang racket
-
-(require scribble/manual)
-
-(provide module-title)
-
-(define-syntax-rule (module-title id title-text pre-flow ...)
-  (begin
-    (title title-text)
-    (defmodule id pre-flow ...)))

generic-syntax-expanders/docs/source-code.rkt

@@ -1,9 +0,0 @@
-#lang racket
-
-(require scribble/manual
-         scribble/text)
-
-(provide source-code)
-
-(define (source-code link)
-  (list "Source code can be found at " (url link)))

generic-syntax-expanders/info.rkt

@@ -1,4 +1,4 @@
 #lang info
 
 (define name "generic-syntax-expanders")
-(define scribblings '(("docs/generic-syntax-expanders.scrbl" ())))
+(define scribblings '(("scribblings/main.scrbl" () (library) "generic-syntax-expanders")))

generic-syntax-expanders/scribblings/define-expanders.scrbl

@@ -1,8 +1,7 @@
 #lang scribble/manual
 
 @(require "example-evaluator.rkt"
-          "defpredicate.rkt"
-          "module-title.rkt"
+          package-scribblings-tools
           (for-label racket/base
                      generic-syntax-expanders/expanders
                      generic-syntax-expanders/expander-types

generic-syntax-expanders/scribblings/define-scoped-transformers.scrbl

@@ -1,7 +1,7 @@
 #lang scribble/manual
 
 @(require "example-evaluator.rkt"
-          "module-title.rkt"
+          package-scribblings-tools
           (for-label racket/base
                      lenses
                      generic-syntax-expanders/scoped-transformers

generic-syntax-expanders/scribblings/example-evaluator.rkt

@@ -0,0 +1,8 @@
+#lang racket
+
+(require scribble/eval
+         package-scribblings-tools)
+
+(provide package-examples)
+
+(define-custom-examples package-examples generic-syntax-expanders)

generic-syntax-expanders/scribblings/expander-types.scrbl

@@ -1,8 +1,7 @@
 #lang scribble/manual
 
-@(require "example-evaluator.rkt"
-          "defpredicate.rkt"
-          "module-title.rkt"
+@(require package-scribblings-tools
+          "example-evaluator.rkt"
           (for-label racket/base
                      generic-syntax-expanders/expanders
                      generic-syntax-expanders/expander-types))

generic-syntax-expanders/scribblings/expanders.scrbl

@@ -1,8 +1,7 @@
 #lang scribble/manual
 
 @(require "example-evaluator.rkt"
-          "defpredicate.rkt"
-          "module-title.rkt"
+          package-scribblings-tools
           (for-label racket/base
                      generic-syntax-expanders/expanders
                      generic-syntax-expanders/expander-types))

generic-syntax-expanders/scribblings/main.scrbl

@@ -1,9 +1,6 @@
 #lang scribble/manual
 
-@(require "example-evaluator.rkt"
-          "defpredicate.rkt"
-          "module-title.rkt"
-          "source-code.rkt"
+@(require package-scribblings-tools
           (for-label racket/base
                      racket/match
                      generic-syntax-expanders))

generic-syntax-expanders/scribblings/scoped-transformers.scrbl

@@ -1,7 +1,7 @@
 #lang scribble/manual
 
 @(require "example-evaluator.rkt"
-          "module-title.rkt"
+          package-scribblings-tools
           (for-label racket/base
                      lenses
                      generic-syntax-expanders/define-expanders