From b743a31cffa905a3a9665d132cabe610cb64a83c Mon Sep 17 00:00:00 2001
From: William G Hatch <william@hatch.uno>
Date: Fri, 7 Oct 2016 13:08:47 -0600
Subject: [PATCH] =?UTF-8?q?add=20a=20default=20meaning=20for=20=EF=BD=A2?=
 =?UTF-8?q?=EF=BD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 udelim/defaults.rkt |  5 ++++-
 udelim/udelim.scrbl | 24 +++++++++++++++++++-----
 2 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/udelim/defaults.rkt b/udelim/defaults.rkt
index 4e7f766..95cc9c1 100644
--- a/udelim/defaults.rkt
+++ b/udelim/defaults.rkt
@@ -24,5 +24,8 @@
 (define-syntax (pass-through-one stx)
   (syntax-case stx ()
     [(ptm e) #'e]))
-(define-syntax #%cjk-corner-quotes (make-rename-transformer #'pass-through-one))
+;(define-syntax (#%cjk-corner-quotes) (make-rename-transformer #'pass-through-one))
+(define-syntax (#%cjk-corner-quotes stx)
+  (syntax-case stx ()
+    [(ccq str) #'(pregexp str)]))
 
diff --git a/udelim/udelim.scrbl b/udelim/udelim.scrbl
index 364ad26..209db7f 100644
--- a/udelim/udelim.scrbl
+++ b/udelim/udelim.scrbl
@@ -74,7 +74,21 @@ In addition to simply being a nice additional option to make literal strings, it
              (open-input-string #<<EOS
 «this is a string with nested «string delimiters.»  No \n escape interpreting.»
 EOS
-             )))]
+             )))
+          ]
+
+It's great for regexps:
+@codeblock{
+    (regexp-match (pregexp "\\w*\\.+\\s\\d+\\w*") "foo.. 97bar")
+    (regexp-match (pregexp «\w*\.+\s\d+\w*») "foo.. 97bar")
+}
+
+It's great for using macros that embed code in another syntax:
+@codeblock{
+    (format "I am ~a, these files are here:~n~a!!!"
+            (rash/trim "whoami")
+            (rash/out «ls -a $(rash/trim «pwd»)»))
+}
 }
 
 @defproc[(make-string-delim-readtable/wrap
@@ -83,15 +97,15 @@ EOS
 [wrapper-sym symbol?]
 [#:base-readtable base-readtable readtable? #f])
 readtable?]{
-Like @racket[make-string-delim-readtable], except that the result will be wrapped in a form with @racket[wrapper-sym].  This makes it easy to use @racket[make-rename-transformer] to make #%guillemets an alias for your string-reading macro, allowing you to invoke it implicitly with strings wrapped in «».
+Like @racket[make-string-delim-readtable], except that the result will be wrapped in a form with @racket[wrapper-sym].  This makes it easy to use @racket[make-rename-transformer] to make #%cjk-corner-quotes an alias for your string-reading macro, allowing you to invoke it implicitly with strings wrapped in ｢｣.
 
 @examples[#:eval my-evaluator
           (require udelim)
           (parameterize ([current-readtable
-                          (make-string-delim-readtable/wrap #\« #\» '#%guillemets)])
+                          (make-string-delim-readtable/wrap #\｢ #\｣ '#%cjk-corner-quotes)])
             (read
              (open-input-string #<<EOS
-«this is a string with nested «string delimiters.»  No \n escape interpreting.»
+｢this is a string with nested ｢string delimiters.｣  No \n escape interpreting.｣
 EOS
              )))]
 }
@@ -101,7 +115,7 @@ Returns the readtable given, but extended with several more delimiters (the same
 
 Specifically:  «» are nestable non-escaping string delimiters (IE «foo «bar»» reads as "foo «bar»"), ｢｣ are like «» but wrapped so ｢foo bar｣ produces (#%cjk-corner-quotes "foo bar"), ﴾foo bar﴿ reads as (#%ornate-parens foo bar), ⦓foo bar⦔ reads as (#%inequality-brackets foo bar), ⦕foo bar⦖ reads as (#%double-inequality-brackets foo bar), 🌜foo bar🌛 reads as (#%moon-faces foo bar), and ⟅foo bar⟆ reads as (#%s-shaped-bag-delim foo bar).
 
-To get default meanings for the #% identifiers (currently just pass-through macros), use @code{(require udelim/defaults)}.
+To get default meanings for the #% identifiers (currently mostly pass-through macros), use @code{(require udelim/defaults)}.  The only one that has a non-passthrough default is #%cjk-corner-quotes (given by ｢｣, defaults to @racket[pregexp]).
 
 }