simplifications

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

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

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

@ -3,7 +3,7 @@
(provide (all-defined-out) (all-from-out pollen/world)) (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 () (syntax-case stx ()
[(_ mode-arg) [(_ mode-arg)
(with-syntax ([new-module-begin (format-id stx "new-module-begin")]) (with-syntax ([new-module-begin (format-id stx "new-module-begin")])

@ -1,3 +1,3 @@
#lang racket/base #lang racket/base
(require pollen/main-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 #lang racket/base
(require pollen/main-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 #lang racket/base
(require pollen/lang/reader-base) (require pollen/lang/reader-base)
(define+provide-reader-in-mode world:mode-markdown)
(make-reader-with-mode world:mode-markdown)

@ -1,3 +1,3 @@
#lang racket/base #lang racket/base
(require pollen/main-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 #lang racket/base
(require pollen/lang/reader-base) (require pollen/lang/reader-base)
(define+provide-reader-in-mode world:mode-markup)
(make-reader-with-mode world:mode-markup)

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

@ -1,3 +1,3 @@
#lang racket/base #lang racket/base
(require pollen/main-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 #lang racket/base
(require pollen/lang/reader-base) (require pollen/lang/reader-base)
(define+provide-reader-in-mode world:mode-preproc)
(make-reader-with-mode world:mode-preproc)

@ -1,3 +1,3 @@
#lang racket/base #lang racket/base
(require pollen/main-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