688bb59c1a
`scribble/html/lang' to `scribble/html'. Since `foo:' keywords are very common in any code that uses `scribble/html', it is much more convenient to have it provide the custom `#%top'. It simplifies code that uses it, for example, files in `meta/web/common' now use #lang at-exp racket/base (require scribble/html) instead of the (only-in scribble/html/lang #%top) which it used before, or instead of explicitly quoting all `foo:'s. original commit: 58febe21a02ff7c7447ee75bf5edd34c99ee6f1c
15 lines
474 B
Racket
15 lines
474 B
Racket
#lang racket/base
|
|
|
|
(require "main.rkt" (except-in scribble/text/lang #%top)
|
|
scribble/text/syntax-utils)
|
|
|
|
(provide (except-out (all-from-out scribble/text/lang) #%module-begin)
|
|
(rename-out [module-begin #%module-begin])
|
|
(all-from-out "main.rkt"))
|
|
|
|
(require (for-syntax racket/base))
|
|
(define-syntax-rule (module-begin expr ...)
|
|
(#%plain-module-begin
|
|
(port-count-lines! (current-output-port))
|
|
(process-begin/text begin output-xml expr ...)))
|