summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-06-21 12:20:11 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2011-06-21 12:20:11 +0200
commitbfb9488fd8ac5135b04d5f4d6039e9c853de6698 (patch)
tree4e30018f028e2b74fc396c9f20e08ff14c2b0c6d
parent950c88fb85dcb83102610efd401c7761c30cddf6 (diff)
Use a here-doc for the example template.
-rwxr-xr-xjson-template.rkt5
1 files changed, 3 insertions, 2 deletions
diff --git a/json-template.rkt b/json-template.rkt
index b32b4ab..20eb2c3 100755
--- a/json-template.rkt
+++ b/json-template.rkt
@@ -353,7 +353,7 @@
;;#;
(let ([template (with-input-from-string
- "
+ #<<EOF
<h1>{title|html}</h1>
{.section people}
<ul>
@@ -363,7 +363,8 @@
</ul>
{.or}
<p>No one's registered.</p>
-{.end}"
+{.end}
+EOF
(λ () (read-template)))])
(template '((title . "<Registered People>")
(people .