diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-06-21 12:20:11 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-06-21 12:20:11 +0200 |
commit | bfb9488fd8ac5135b04d5f4d6039e9c853de6698 (patch) | |
tree | 4e30018f028e2b74fc396c9f20e08ff14c2b0c6d | |
parent | 950c88fb85dcb83102610efd401c7761c30cddf6 (diff) |
Use a here-doc for the example template.
-rwxr-xr-x | json-template.rkt | 5 |
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 . |