suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

provide and document set-filterer-lens

Browse Source
This commit is contained in:
AlexKnauth 2015-08-20 19:51:25 -04:00
parent f0621c3936
commit db0a7ba4c9
5 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lens/doc-util/lenses-examples.rkt
View File

@ -31,13 +31,13 @@
(examples #:eval the-eval datum (... (... ...))))))))) (examples #:eval the-eval datum (... (... ...)))))))))
(define-examples-form lenses-examples (define-examples-form lenses-examples
lens racket/list racket/vector racket/stream) lens racket/list racket/vector racket/stream racket/set)
(define-examples-form lenses-applicable-examples (define-examples-form lenses-applicable-examples
lens/applicable racket/list racket/vector racket/stream) lens/applicable racket/list racket/vector racket/stream racket/set)
(define-examples-form lenses-unstable-examples (define-examples-form lenses-unstable-examples
lens unstable/lens racket/list racket/vector racket/stream) lens unstable/lens racket/list racket/vector racket/stream racket/set)
(define-examples/persistance-syntax define-persistant-lenses-unstable-examples (define-examples/persistance-syntax define-persistant-lenses-unstable-examples
lens unstable/lens racket/list racket/vector racket/stream) lens unstable/lens racket/list racket/vector racket/stream racket/set)

4
lens/doc-util/main.rkt
View File

@ -6,9 +6,11 @@
(for-label lens (for-label lens
unstable/lens unstable/lens
racket/base racket/base
racket/match
racket/list racket/list
racket/vector racket/vector
racket/stream racket/stream
racket/set
racket/contract) racket/contract)
(for-syntax racket/base (for-syntax racket/base
syntax/parse syntax/parse
@ -22,9 +24,11 @@
lens lens
unstable/lens unstable/lens
racket/base racket/base
racket/match
racket/list racket/list
racket/vector racket/vector
racket/stream racket/stream
racket/set
racket/contract)) racket/contract))
(for-syntax (all-from-out (for-syntax (all-from-out
racket/base racket/base

2
unstable/lens/main.rkt
View File

@ -9,6 +9,7 @@
"mapper.rkt" "mapper.rkt"
"string-split.rkt" "string-split.rkt"
"match.rkt" "match.rkt"
"set-filterer.rkt"
) )
(provide (all-from-out "syntax.rkt" (provide (all-from-out "syntax.rkt"
@ -20,4 +21,5 @@
"mapper.rkt" "mapper.rkt"
"string-split.rkt" "string-split.rkt"
"match.rkt" "match.rkt"
"set-filterer.rkt"
)) ))

1
unstable/lens/main.scrbl
View File

@ -18,3 +18,4 @@ this library being backwards-compatible.
@include-section["mapper.scrbl"] @include-section["mapper.scrbl"]
@include-section["string-split.scrbl"] @include-section["string-split.scrbl"]
@include-section["match.scrbl"] @include-section["match.scrbl"]
@include-section["set-filterer.scrbl"]

14
unstable/lens/set-filterer.scrbl Normal file
View File

@ -0,0 +1,14 @@
#lang scribble/manual
@(require lens/doc-util/main)
@title{Filtering sets}
@defmodule[unstable/lens/set-filterer]
@defproc[(set-filterer-lens [pred (-> any/c any/c)]) lens?]{
Creates a lens that filters a set by the predicate @racket[pred].
@lenses-unstable-examples[
(lens-view (set-filterer-lens number?) (set 1 'a 2 'b 'c 3 'd 'e))
(lens-set (set-filterer-lens number?) (set 1 'a 2 'b 'c 3 'd 'e) (set 4 5 6 7))
]}