Merge pull request #65 from jackfirth/fix-change-package-name-#19

Fix change package name #19

info.rkt

@@ -23,18 +23,18 @@
 
 (define test-omit-paths
   '("info.rkt"
-    "lenses/info.rkt"
-    "lenses/applicable.scrbl"
-    "lenses/deflenses.rkt"
-    "lenses/lenses-examples.rkt"
-    "lenses/main.scrbl"
-    "lenses/syntax.scrbl"
-    "lenses/core/base.scrbl"
-    "lenses/core/compose.scrbl"
-    "lenses/core/main.scrbl"
-    "lenses/core/transform.scrbl"
-    "lenses/core/view-set.scrbl"
-    "lenses/list/assoc.scrbl"
-    "lenses/list/car-cdr.scrbl"
-    "lenses/list/list-ref-take-drop.scrbl"
-    "lenses/list/main.scrbl"))
+    "lens/info.rkt"
+    "lens/applicable.scrbl"
+    "lens/deflenses.rkt"
+    "lens/lenses-examples.rkt"
+    "lens/main.scrbl"
+    "lens/syntax.scrbl"
+    "lens/core/base.scrbl"
+    "lens/core/compose.scrbl"
+    "lens/core/main.scrbl"
+    "lens/core/transform.scrbl"
+    "lens/core/view-set.scrbl"
+    "lens/list/assoc.scrbl"
+    "lens/list/car-cdr.scrbl"
+    "lens/list/list-ref-take-drop.scrbl"
+    "lens/list/main.scrbl"))

lens/applicable.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 
@@ -10,15 +10,15 @@
 @title{Applicable lenses}
 
 
-@defmodule[lenses/applicable]
+@defmodule[lens/applicable]
 
-This module provides the same functions as @racketmodname[lenses],
+This module provides the same functions as @racketmodname[lens],
 but enables the use of @italic{applicable lenses}. Applicable lenses
 may be used directly as getter functions, removing the need to use
 @racket[lens-view].
 
 @lenses-applicable-examples[
-  (require lenses/applicable)
+  (require lens/applicable)
   (first-lens '(a b c))
   (map first-lens '((1 2 3) (a b c) (100 200 300)))
 ]
@@ -26,6 +26,6 @@ may be used directly as getter functions, removing the need to use
 Attempting to use non-applicable lenses as functions is an error.
 
 @lenses-examples[
-  (require lenses)
+  (require lens)
   (first-lens '(a b c))
 ]

lens/core/base.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "../lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/core/compose.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "../lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/core/transform.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "../lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/core/view-set.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "../lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/deflenses.rkt

@@ -1,7 +1,7 @@
 #lang racket
 
 (require scribble/manual
-         (for-label lenses))
+         (for-label lens))
 
 (provide deflens
          deflenses)

lens/info.rkt

@@ -0,0 +1,4 @@
+#lang info
+
+(define name "lens")
+(define scribblings '(("main.scrbl" () (library) "lens")))

lens/lenses-examples.rkt

@@ -15,7 +15,7 @@
 
 
 (define-examples-form lenses-examples
-  lenses racket/list)
+  lens racket/list)
 
 (define-examples-form lenses-applicable-examples
-  lenses/applicable racket/list)
+  lens/applicable racket/list)

lens/list/assoc.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "../lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/list/car-cdr.scrbl

@@ -6,7 +6,7 @@
           "../deflenses.rkt"
           (for-syntax racket/base
                       racket/syntax)
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/list/list-ref-take-drop.scrbl

@@ -3,7 +3,7 @@
 @(require scribble/eval
           "../lenses-examples.rkt"
           "../deflenses.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/main.scrbl

@@ -2,7 +2,7 @@
 
 @title{Lenses}
 
-@defmodule[lenses]
+@defmodule[lens]
 
 This library includes functions and forms for working with @italic{lenses}.
 A lens is a value that operates on some small piece of a larger
@@ -11,7 +11,7 @@ setters in object-oriented languages.
 
 @author[@author+email["Jack Firth" "jackhfirth@gmail.com"]]
 
-source code: @url["https://github.com/jackfirth/lenses"]
+source code: @url["https://github.com/jackfirth/lens"]
 
 @include-section["core/main.scrbl"]
 @include-section["list/main.scrbl"]

lens/struct-lens.rkt

@@ -11,7 +11,7 @@
                      racket/syntax
                      ))
 (module+ test
-  (require rackunit fancy-app (only-in lenses/core/main lens-transform*)))
+  (require rackunit fancy-app (only-in lens/core/main lens-transform*)))
 
 (define-simple-macro (struct-lens s:id fld:id)
   #:with s-fld      (format-id #'s "~a-~a" #'s #'fld #:source #'fld)

lens/struct-lens.scrbl

@@ -2,21 +2,21 @@
 
 @(require scribble/eval
           "lenses-examples.rkt"
-          (for-label lenses
-                     lenses/struct-lens
+          (for-label lens
+                     lens/struct-lens
                      racket/base
                      racket/contract))
 
 
 @title{Struct lenses}
 
-@defmodule[lenses/struct-lens]
+@defmodule[lens/struct-lens]
 
 @defform[(struct-lens struct-id field-id)]{
   Returns a lens for viewing the @racket[field-id] field of
   a @racket[struct-id] instance.
   @lenses-examples[
-    (require lenses/struct-lens)
+    (require lens/struct-lens)
     (struct foo (a b c) #:transparent)
     (lens-view (struct-lens foo a) (foo 1 2 3))
     (lens-set (struct-lens foo a) (foo 1 2 3) 100)

lens/syntax.scrbl

@@ -2,7 +2,7 @@
 
 @(require scribble/eval
           "lenses-examples.rkt"
-          (for-label lenses
+          (for-label lens
                      racket/base
                      racket/contract))
 

lens/tests/doc-coverage.rkt

@@ -0,0 +1,7 @@
+#lang racket
+
+(require doc-coverage
+         lens)
+
+
+(check-all-documented 'lens)

lenses/info.rkt

@@ -1,4 +0,0 @@
-#lang info
-
-(define name "lenses")
-(define scribblings '(("main.scrbl" () (library) "lenses")))

lenses/tests/doc-coverage.rkt

@@ -1,7 +0,0 @@
-#lang racket
-
-(require doc-coverage
-         lenses)
-
-
-(check-all-documented 'lenses)