simplifications

pull/9/head
Matthew Butterick 11 years ago
parent 978a910b74
commit 63bda7b186

@ -1,7 +1,7 @@
#lang racket/base
(require (only-in scribble/reader make-at-reader) pollen/world racket/path pollen/project-requires)
(provide make-reader-with-mode (all-from-out pollen/world))
(provide define+provide-reader-in-mode (all-from-out pollen/world))
(define read-inner (make-at-reader
@ -28,7 +28,7 @@
file-contents)))
(define-syntax-rule (make-reader-with-mode mode)
(define-syntax-rule (define+provide-reader-in-mode mode)
(begin
(define reader-mode mode)
(define custom-read-syntax (make-custom-read-syntax reader-mode))

@ -1,4 +1,3 @@
#lang racket/base
(require pollen/lang/reader-base)
(make-reader-with-mode world:mode-auto)
(define+provide-reader-in-mode world:mode-auto)

@ -3,7 +3,7 @@
(provide (all-defined-out) (all-from-out pollen/world))
(define-syntax (define+provide-new-module-begin stx)
(define-syntax (define+provide-module-begin-in-mode stx)
(syntax-case stx ()
[(_ mode-arg)
(with-syntax ([new-module-begin (format-id stx "new-module-begin")])

@ -1,3 +1,3 @@
#lang racket/base
(require pollen/main-base)
(define+provide-new-module-begin world:mode-preproc)
(define+provide-module-begin-in-mode world:mode-preproc)

@ -1,3 +1,3 @@
#lang racket/base
(require pollen/main-base)
(define+provide-new-module-begin world:mode-markdown)
(define+provide-module-begin-in-mode world:mode-markdown)

@ -1,4 +1,3 @@
#lang racket/base
(require pollen/lang/reader-base)
(make-reader-with-mode world:mode-markdown)
(define+provide-reader-in-mode world:mode-markdown)

@ -1,3 +1,3 @@
#lang racket/base
(require pollen/main-base)
(define+provide-new-module-begin world:mode-markup)
(define+provide-module-begin-in-mode world:mode-markup)

@ -1,4 +1,3 @@
#lang racket/base
(require pollen/lang/reader-base)
(make-reader-with-mode world:mode-markup)
(define+provide-reader-in-mode world:mode-markup)

@ -1,4 +1,3 @@
#lang racket/base
(require pollen/lang/reader-base)
(make-reader-with-mode world:mode-pagetree)
(define+provide-reader-in-mode world:mode-pagetree)

@ -1,3 +1,3 @@
#lang racket/base
(require pollen/main-base)
(define+provide-new-module-begin world:mode-preproc)
(define+provide-module-begin-in-mode world:mode-preproc)

@ -1,4 +1,3 @@
#lang racket/base
(require pollen/lang/reader-base)
(make-reader-with-mode world:mode-preproc)
(define+provide-reader-in-mode world:mode-preproc)

@ -1,3 +1,3 @@
#lang racket/base
(require pollen/main-base)
(define+provide-new-module-begin world:mode-pagetree)
(define+provide-module-begin-in-mode world:mode-pagetree)
Loading…
Cancel
Save