From 9e8135ee057d89f138047f29e499d4ca162cfa5a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 27 Sep 2016 18:17:47 -0700 Subject: [PATCH] some things --- .../br/demo/jsonic/drracket-indenter.rkt | 1 + beautiful-racket/br/demo/jsonic/drracket-lexer.rkt | 14 ++++++++++++++ beautiful-racket/br/demo/jsonic/main.rkt | 2 +- 3 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 beautiful-racket/br/demo/jsonic/drracket-indenter.rkt create mode 100644 beautiful-racket/br/demo/jsonic/drracket-lexer.rkt diff --git a/beautiful-racket/br/demo/jsonic/drracket-indenter.rkt b/beautiful-racket/br/demo/jsonic/drracket-indenter.rkt new file mode 100644 index 0000000..7bc35af --- /dev/null +++ b/beautiful-racket/br/demo/jsonic/drracket-indenter.rkt @@ -0,0 +1 @@ +#lang racket/base diff --git a/beautiful-racket/br/demo/jsonic/drracket-lexer.rkt b/beautiful-racket/br/demo/jsonic/drracket-lexer.rkt new file mode 100644 index 0000000..4b78e64 --- /dev/null +++ b/beautiful-racket/br/demo/jsonic/drracket-lexer.rkt @@ -0,0 +1,14 @@ +#lang racket/base + +(require parser-tools/lex + (prefix-in : parser-tools/lex-sre)) + +(provide default-lexer) + + +(define default-lexer + (lexer + [(eof) (values lexeme 'eof #f #f #f)] + [(:seq "//" (:* (char-complement "\n"))) + (values lexeme 'comment #f (position-offset start-pos) (position-offset end-pos))] + [any-char (values lexeme 'no-color #f (position-offset start-pos) (position-offset end-pos))])) \ No newline at end of file diff --git a/beautiful-racket/br/demo/jsonic/main.rkt b/beautiful-racket/br/demo/jsonic/main.rkt index cce8bbf..da271dc 100644 --- a/beautiful-racket/br/demo/jsonic/main.rkt +++ b/beautiful-racket/br/demo/jsonic/main.rkt @@ -28,7 +28,7 @@ (λ (key default) (case key [(color-lexer) - (dynamic-require 'syntax-color/default-lexer 'default-lexer (λ () #f))] + (dynamic-require 'br/demo/jsonic/drracket-lexer 'default-lexer (λ () #f))] [(drracket:indentation) (dynamic-require 'scribble/private/indentation 'determine-spaces)] [else default])))