From 711ac5d44f326938ab41041b9efea08baa44500e Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 11 Aug 2011 12:41:36 +0200 Subject: Make the manual buildable without first installing the PLaneT package. --- manual.scrbl | 176 +++++++++++++++++++++++++++++------------------------------ 1 file changed, 88 insertions(+), 88 deletions(-) mode change 100644 => 100755 manual.scrbl diff --git a/manual.scrbl b/manual.scrbl old mode 100644 new mode 100755 index 9f8b6b5..d148420 --- a/manual.scrbl +++ b/manual.scrbl @@ -1,88 +1,88 @@ -#lang scribble/manual -@;@(require planet/scribble) -@(require scribble/eval) -@(require racket/sandbox) -@(require (for-label racket)) -@(require (for-label "json-template.rkt")) -@;@(require (for-label (this-package-in json-template))) - -@(define r6rs-evaluator - (call-with-trusted-sandbox-configuration - (lambda () - (parameterize ([sandbox-output 'string] - [sandbox-error-output 'string]) - (make-evaluator - 'r6rs - '(import (rnrs) (json-template))))))) -@(define racket-evaluator - (call-with-trusted-sandbox-configuration - (lambda () - (parameterize ([sandbox-output 'string] - [sandbox-error-output 'string]) - (make-evaluator - 'racket/base - #:requires (list "json-template.rkt")))))) -@(define typed-racket-evaluator - (call-with-trusted-sandbox-configuration - (lambda () - (parameterize ([sandbox-output 'string] - [sandbox-error-output 'string]) - (make-evaluator - 'typed/racket/base - #:requires (list "json-template.rkt")))))) - - -@title{JSON Template for Racket (and Typed Racket)} -@author{Matthias A. Benkard} - - -@section{Installation} - -JSON Template for Racket is published as a PLaneT module. Simply @racket[(require (planet mbenkard/json-template))] to get started. - - -@section{Usage} - -@subsection{API} - -@defproc[(make-template [template-data string?]) procedure?]{ - Create a template from @scheme[template-data], which must be in JSON Template syntax. - - The returned procedure expects a single argument, the @italic{subtitution context}, and returns the expanded template as a string. Three types of contexts are supported: - - @itemlist[ - @item{@bold{Primitive contexts.} These may be of any form whatever (valid primitive contexts are lists, numbers, symbols, strings, etc.) and are not treated specially. Their only purpose is being printed into the template expansion as plain text. Note that a primitive context does not make a whole lot of sense when used as an argument to @scheme{make-template} (although it can be used as such and referenced as @scheme["@"]); it is much more commonly encountered as a nested context in a map.} - @item{@bold{Sequences.} At present, these may only be lists. They can be iterated over by the use of repeated sections.} - @item{@bold{Maps.} These may be any kinds of objects; in particular, association lists and hash tables are fine choices. They can be indexed into by substitutions.} - ] - - @scheme[make-template]'s behavior can be customized by the parameters @scheme[formatters], @scheme[meta-left], @scheme[meta-right], @scheme[default-formatter], and @scheme[format-char]. - - For general information about JSON Template, see @url{http://json-template.googlecode.com/svn/trunk/doc/Introducing-JSON-Template.html} and @url{http://code.google.com/p/json-template/wiki/Reference}. -} - - -@subsection{Examples} - -@interaction[#:eval racket-evaluator -(define template (make-template " -

{title|html}

-{.section people} - -{.or} -

No one's registered.

-{.end} -")) -(template '((title . "") - (people . - (((name . "Nathalie") (age . 24)) - ((name . "Heinrich") (age . 28)) - ((name . "Hans") (age . 25)))))) -(template '((title . "") - (people))) -(template '((title . ""))) -] +#lang scribble/manual +@;@(require planet/scribble) +@(require scribble/eval) +@(require racket/sandbox) +@(require (for-label racket)) +@(require (for-label "json-template.rkt")) +@;@(require (for-label (this-package-in json-template))) + +@;@(define r6rs-evaluator + (call-with-trusted-sandbox-configuration + (lambda () + (parameterize ([sandbox-output 'string] + [sandbox-error-output 'string]) + (make-evaluator + 'r6rs + '(import (rnrs) (json-template))))))) +@(define racket-evaluator + (call-with-trusted-sandbox-configuration + (lambda () + (parameterize ([sandbox-output 'string] + [sandbox-error-output 'string]) + (make-evaluator + 'racket/base + #:requires (list "json-template.rkt")))))) +@(define typed-racket-evaluator + (call-with-trusted-sandbox-configuration + (lambda () + (parameterize ([sandbox-output 'string] + [sandbox-error-output 'string]) + (make-evaluator + 'typed/racket/base + #:requires (list "json-template.rkt")))))) + + +@title{JSON Template for Racket (and Typed Racket)} +@author{Matthias A. Benkard} + + +@section{Installation} + +JSON Template for Racket is published as a PLaneT module. Simply @racket[(require (planet mbenkard/json-template))] to get started. + + +@section{Usage} + +@subsection{API} + +@defproc[(make-template [template-data string?]) procedure?]{ + Create a template from @scheme[template-data], which must be in JSON Template syntax. + + The returned procedure expects a single argument, the @italic{subtitution context}, and returns the expanded template as a string. Three types of contexts are supported: + + @itemlist[ + @item{@bold{Primitive contexts.} These may be of any form whatever (valid primitive contexts are lists, numbers, symbols, strings, etc.) and are not treated specially. Their only purpose is being printed into the template expansion as plain text. Note that a primitive context does not make a whole lot of sense when used as an argument to @scheme{make-template} (although it can be used as such and referenced as @scheme["@"]); it is much more commonly encountered as a nested context in a map.} + @item{@bold{Sequences.} At present, these may only be lists. They can be iterated over by the use of repeated sections.} + @item{@bold{Maps.} These may be any kinds of objects; in particular, association lists and hash tables are fine choices. They can be indexed into by substitutions.} + ] + + @scheme[make-template]'s behavior can be customized by the parameters @scheme[formatters], @scheme[meta-left], @scheme[meta-right], @scheme[default-formatter], and @scheme[format-char]. + + For general information about JSON Template, see @url{http://json-template.googlecode.com/svn/trunk/doc/Introducing-JSON-Template.html} and @url{http://code.google.com/p/json-template/wiki/Reference}. +} + + +@subsection{Examples} + +@interaction[#:eval racket-evaluator +(define template (make-template " +

{title|html}

+{.section people} +
    +{.repeated section @} +
  • {name} ({age} years)
    • +{.end} +
+{.or} +

No one's registered.

+{.end} +")) +(template '((title . "") + (people . + (((name . "Nathalie") (age . 24)) + ((name . "Heinrich") (age . 28)) + ((name . "Hans") (age . 25)))))) +(template '((title . "") + (people))) +(template '((title . ""))) +] -- cgit v1.2.3