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

Fix syntax highlighting for `#lang meta/web'.

Browse Source
This commit is contained in:
Samuel Bronson 2012-10-12 15:03:26 -04:00 committed by Matthew Flatt
parent 5a216cc4ce
commit 4424b19ff8
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/meta/web/lang/reader.rkt
View File

@ -1,5 +1,4 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
meta/web/common/main meta/web/common/main
;; Similar to `#lang scribble/html', but with a plain scribble reader ;; Similar to `#lang scribble/html', but with a plain scribble reader
@ -7,7 +6,13 @@ meta/web/common/main
#:read scribble:read #:read scribble:read
#:read-syntax scribble:read-syntax #:read-syntax scribble:read-syntax
#:info (scribble-base-reader-info) #:info (web-reader-info)
(require (prefix-in scribble: scribble/reader) (require (prefix-in scribble: scribble/reader))
(only-in scribble/base/reader scribble-base-reader-info))
(define (web-reader-info)
(lambda (key defval default)
(case key
[(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-lexer)]
[else (default key defval)])))