From 4ecea10462399f93046670161f92e44b24adca82 Mon Sep 17 00:00:00 2001
From: "D. Ben Knoble" <ben.knoble+github@gmail.com>
Date: Sun, 20 Jun 2021 14:22:06 -0400
Subject: [PATCH] scribble: fix indentation in file examples

I copied in the actual file contents. It would perhaps be safest to do
some sort of "read the file and splice the contents in," but I'm not
sure how to do that at the moment.
---
 brag/brag/brag.scrbl | 82 ++++++++++++++++++++++++--------------------
 1 file changed, 45 insertions(+), 37 deletions(-)

diff --git a/brag/brag/brag.scrbl b/brag/brag/brag.scrbl
index 6c40f6c..2babb1d 100755
--- a/brag/brag/brag.scrbl
+++ b/brag/brag/brag.scrbl
@@ -538,16 +538,24 @@ Here's the definition for
   brag/examples/simple-line-drawing/semantics
   #:read my-read
   #:read-syntax my-read-syntax
+  #:info my-get-info
   #:whole-body-readers? #t
 
   (require brag/examples/simple-line-drawing/lexer
-  brag/examples/simple-line-drawing/grammar)
+           brag/examples/simple-line-drawing/grammar)
 
   (define (my-read in)
-  (syntax->datum (my-read-syntax #f in)))
+    (syntax->datum (my-read-syntax #f in)))
 
   (define (my-read-syntax src ip)
-  (list (parse src (tokenize ip))))
+    (list (parse src (tokenize ip))))
+
+  (define (my-get-info key default default-filter)
+    (case key
+      [(color-lexer)
+       (dynamic-require 'syntax-color/default-lexer 'default-lexer)]
+      [else
+       (default-filter key default)]))
   }|
 }
 
@@ -564,43 +572,43 @@ compilation:
   (require (for-syntax racket/base syntax/parse))
 
   (provide #%module-begin
-  ;; We reuse Racket's treatment of raw datums, specifically
-  ;; for strings and numbers:
-  #%datum
-         
-  ;; And otherwise, we provide definitions of these three forms.
-  ;; During compiliation, Racket uses these definitions to 
-  ;; rewrite into for loops, displays, and newlines.
-  drawing rows chunk)
+           ;; We reuse Racket's treatment of raw datums, specifically
+           ;; for strings and numbers:
+           #%datum
+           
+           ;; And otherwise, we provide definitions of these three forms.
+           ;; During compiliation, Racket uses these definitions to 
+           ;; rewrite into for loops, displays, and newlines.
+           drawing rows chunk)
 
   ;; Define a few compile-time functions to do the syntax rewriting:
   (begin-for-syntax
-  (define (compile-drawing drawing-stx)
-  (syntax-parse drawing-stx
-  [({~literal drawing} rows-stxs ...)
-
-  (syntax/loc drawing-stx
-  (begin rows-stxs ...))]))
-
-  (define (compile-rows rows-stx)
-  (syntax-parse rows-stx
-  [({~literal rows}
-  ({~literal repeat} repeat-number)
-  chunks ... 
-  ";")
-
-  (syntax/loc rows-stx
-  (for ([i repeat-number])
-  chunks ...
-  (newline)))]))
-
-  (define (compile-chunk chunk-stx)
-  (syntax-parse chunk-stx
-  [({~literal chunk} chunk-size chunk-string)
-
-  (syntax/loc chunk-stx
-  (for ([k chunk-size])
-  (display chunk-string)))])))
+    (define (compile-drawing drawing-stx)
+      (syntax-parse drawing-stx
+        [({~literal drawing} row-stxs ...)
+
+       (syntax/loc drawing-stx
+         (begin row-stxs ...))]))
+
+    (define (compile-rows row-stx)
+      (syntax-parse row-stx
+        [({~literal rows}
+          ({~literal repeat} repeat-number)
+          chunks ... 
+          ";")
+
+         (syntax/loc row-stx
+           (for ([i repeat-number])
+             chunks ...
+             (newline)))]))
+
+    (define (compile-chunk chunk-stx)
+      (syntax-parse chunk-stx
+        [({~literal chunk} chunk-size chunk-string)
+
+         (syntax/loc chunk-stx
+           (for ([k chunk-size])
+             (display chunk-string)))])))
 
 
   ;; Wire up the use of "drawing", "rows", and "chunk" to these