Merge pull request #95 from AlexKnauth/doc-util

use doc-util subdirectory
2015-07-10 12:04:29 -07:00 · 2015-07-10 12:04:29 -07:00 · ce1be04b2a
commit ce1be04b2a
parent d145cb42c4 63c01b9072
18 changed files with 48 additions and 82 deletions
--- a/lens/applicable.scrbl
+++ b/lens/applicable.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "doc-util/main.rkt")


@title{Applicable lenses}
--- a/lens/base/base.scrbl
+++ b/lens/base/base.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")

@title{Lens Construction}

--- a/lens/base/compose.scrbl
+++ b/lens/base/compose.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")


@title{Composing Lenses}
--- a/lens/base/laws.scrbl
+++ b/lens/base/laws.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")

@title{Lens Laws}

--- a/lens/base/transform.scrbl
+++ b/lens/base/transform.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")


@title{Transforming Values With Lenses}
--- a/lens/base/view-set.scrbl
+++ b/lens/base/view-set.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")


@title{Viewing and Setting}
--- a/lens/dict.scrbl
+++ b/lens/dict.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "doc-util/main.rkt")


@title{Dict lenses}
--- a/lens/doc-util/deflenses.rkt
+++ b/lens/doc-util/deflenses.rkt
--- a/lens/doc-util/lenses-examples.rkt
+++ b/lens/doc-util/lenses-examples.rkt
--- a/lens/doc-util/main.rkt
+++ b/lens/doc-util/main.rkt
@ -0,0 +1,33 @@
+#lang racket/base
+
+(require syntax/parse/define
+         "deflenses.rkt"
+         "lenses-examples.rkt"
+         (for-label lens
+                    unstable/lens
+                    racket/base
+                    racket/list
+                    racket/contract
+                    )
+         (for-syntax racket/base
+                     syntax/parse
+                     racket/syntax
+                     ))
+
+(provide (all-from-out
+          syntax/parse/define
+          "deflenses.rkt"
+          "lenses-examples.rkt"
+          )
+         (for-label (all-from-out
+                     lens
+                     unstable/lens
+                     racket/base
+                     racket/list
+                     racket/contract
+                     ))
+         (for-syntax (all-from-out
+                      racket/base
+                      syntax/parse
+                      racket/syntax
+                      )))
--- a/lens/list/assoc.scrbl
+++ b/lens/list/assoc.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")


@title{Association List Lenses}
--- a/lens/list/car-cdr.scrbl
+++ b/lens/list/car-cdr.scrbl
@ -1,14 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          syntax/parse/define
-          "../lenses-examples.rkt"
-          "../deflenses.rkt"
-          (for-syntax racket/base
-                      racket/syntax)
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")

@title{Pair lenses}

--- a/lens/list/list-ref-take-drop.scrbl
+++ b/lens/list/list-ref-take-drop.scrbl
@ -1,11 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "../lenses-examples.rkt"
-          "../deflenses.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "../doc-util/main.rkt")


@title{List lenses}
--- a/lens/struct.scrbl
+++ b/lens/struct.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          "lenses-examples.rkt"
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require "doc-util/main.rkt")


@title{Struct lenses}
--- a/unstable/lens/compound.scrbl
+++ b/unstable/lens/compound.scrbl
@ -1,11 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          lens/lenses-examples
-          (for-label lens
-                     unstable/lens
-                     racket/base
-                     racket/contract))
+@(require lens/doc-util/main)


@title{Compound Lenses}
--- a/unstable/lens/hash.scrbl
+++ b/unstable/lens/hash.scrbl
@ -1,11 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          lens/lenses-examples
-          (for-label lens
-                     unstable/lens
-                     racket/base
-                     racket/contract))
+@(require lens/doc-util/main)


@title{Hash Lenses}
--- a/unstable/lens/list.scrbl
+++ b/unstable/lens/list.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          lens/lenses-examples
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require lens/doc-util/main)


@title{List Lenses}
--- a/unstable/lens/syntax.scrbl
+++ b/unstable/lens/syntax.scrbl
@ -1,10 +1,6 @@
 #lang scribble/manual

-@(require scribble/eval
-          lens/lenses-examples
-          (for-label lens
-                     racket/base
-                     racket/contract))
+@(require lens/doc-util/main)


@title{Syntax Lenses}