From 63c01b90720ee5ad99af458d4f286d5bdd0a39df Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Fri, 10 Jul 2015 13:38:55 -0400 Subject: [PATCH] use doc-util subdirectory closes https://github.com/jackfirth/lens/issues/82 closes https://github.com/jackfirth/lens/issues/83 --- lens/applicable.scrbl | 6 +---- lens/base/base.scrbl | 6 +---- lens/base/compose.scrbl | 6 +---- lens/base/laws.scrbl | 6 +---- lens/base/transform.scrbl | 6 +---- lens/base/view-set.scrbl | 6 +---- lens/dict.scrbl | 6 +---- lens/{ => doc-util}/deflenses.rkt | 0 lens/{ => doc-util}/lenses-examples.rkt | 0 lens/doc-util/main.rkt | 33 +++++++++++++++++++++++++ lens/list/assoc.scrbl | 6 +---- lens/list/car-cdr.scrbl | 10 +------- lens/list/list-ref-take-drop.scrbl | 7 +----- lens/struct.scrbl | 6 +---- unstable/lens/compound.scrbl | 7 +----- unstable/lens/hash.scrbl | 7 +----- unstable/lens/list.scrbl | 6 +---- unstable/lens/syntax.scrbl | 6 +---- 18 files changed, 48 insertions(+), 82 deletions(-) rename lens/{ => doc-util}/deflenses.rkt (100%) rename lens/{ => doc-util}/lenses-examples.rkt (100%) create mode 100644 lens/doc-util/main.rkt diff --git a/lens/applicable.scrbl b/lens/applicable.scrbl index 5919289..19bf516 100644 --- 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} diff --git a/lens/base/base.scrbl b/lens/base/base.scrbl index a3f2252..b7eb47a 100644 --- 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} diff --git a/lens/base/compose.scrbl b/lens/base/compose.scrbl index d776752..55b805e 100644 --- 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} diff --git a/lens/base/laws.scrbl b/lens/base/laws.scrbl index a16e9bc..8ff6073 100644 --- 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} diff --git a/lens/base/transform.scrbl b/lens/base/transform.scrbl index 022ca16..9fba2f6 100644 --- 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} diff --git a/lens/base/view-set.scrbl b/lens/base/view-set.scrbl index 5848811..355d567 100644 --- 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} diff --git a/lens/dict.scrbl b/lens/dict.scrbl index 7bfc244..0380fad 100644 --- 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} diff --git a/lens/deflenses.rkt b/lens/doc-util/deflenses.rkt similarity index 100% rename from lens/deflenses.rkt rename to lens/doc-util/deflenses.rkt diff --git a/lens/lenses-examples.rkt b/lens/doc-util/lenses-examples.rkt similarity index 100% rename from lens/lenses-examples.rkt rename to lens/doc-util/lenses-examples.rkt diff --git a/lens/doc-util/main.rkt b/lens/doc-util/main.rkt new file mode 100644 index 0000000..2bb00ad --- /dev/null +++ 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 + ))) diff --git a/lens/list/assoc.scrbl b/lens/list/assoc.scrbl index 91b70c6..de201c9 100644 --- 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} diff --git a/lens/list/car-cdr.scrbl b/lens/list/car-cdr.scrbl index 9d84538..f7f3ee9 100644 --- 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} diff --git a/lens/list/list-ref-take-drop.scrbl b/lens/list/list-ref-take-drop.scrbl index b421f99..ae1d7fa 100644 --- 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} diff --git a/lens/struct.scrbl b/lens/struct.scrbl index afc18d7..acdeadd 100644 --- 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} diff --git a/unstable/lens/compound.scrbl b/unstable/lens/compound.scrbl index c12cf10..20633d2 100644 --- 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} diff --git a/unstable/lens/hash.scrbl b/unstable/lens/hash.scrbl index 0aa7f26..8757660 100644 --- 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} diff --git a/unstable/lens/list.scrbl b/unstable/lens/list.scrbl index 34c0942..e8852ee 100644 --- 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} diff --git a/unstable/lens/syntax.scrbl b/unstable/lens/syntax.scrbl index dff733e..e15f7ea 100644 --- 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}