From 5b8d5ec2cb9af58a21bf1735c439d33b02d4f53f Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sat, 8 Oct 2016 12:11:10 -0700
Subject: [PATCH] add codepict sample

---
 beautiful-racket/br/demo/jsonic/codepict.rkt | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 beautiful-racket/br/demo/jsonic/codepict.rkt

diff --git a/beautiful-racket/br/demo/jsonic/codepict.rkt b/beautiful-racket/br/demo/jsonic/codepict.rkt
new file mode 100644
index 0000000..94bd447
--- /dev/null
+++ b/beautiful-racket/br/demo/jsonic/codepict.rkt
@@ -0,0 +1,12 @@
+#lang at-exp racket
+(require pict/code)
+(codeblock-pict
+    #:keep-lang-line? #f
+    @string-append|{
+                   #lang br/demo/jsonic
+{
+"string": @$(string-append "foo" "bar")$@,
+"array": @$(range 5)$@,
+"object": @$(hash "k1" "valstring" (format "~a" 42) (hash "k1" (range 10) "k2" 42))$@
+// "bar" :
+}|)
\ No newline at end of file