Outdated egg!

This is an egg for CHICKEN 4, the unsupported old release. You're almost certainly looking for the CHICKEN 5 version of this egg, if it exists.

If it does not exist, there may be equivalent functionality provided by another egg; have a look at the egg index. Otherwise, please consider porting this egg to the current version of CHICKEN.

  1. Outdated egg!
  2. sxml-templates
  3. License
  4. Authors
  5. Requirements
  6. Examples
    1. Uselessly simple example
    2. Using with Spiffy
  7. Constructors
    1. make-sxml-template
    2. sxml-template:fill
  8. Predicates
    1. sxml-template?
    2. sxml-template:filled?
  9. Selectors
    1. sxml-template:sxml
  10. Conversion
    1. sxml-template:fill-string
    2. sxml-template->string

sxml-templates

The sxml-templates egg uses sxml-transforms to perform variable substitution on SXML expressions. It defines a record type which represents a SXML template, and includes some procedures for substituting values into that template. The general idea is to enable the use of on-disk files containing only SXML expressions which are loaded and substituted-into as necessary, as opposed to defining procedures which return quasiquoted SXML.

License

sxml-templates is in the Public Domain and may be reproduced or copied without permission.

Authors

Moe Aboulkheir

Requirements

Examples

Uselessly simple example

(use sxml-templates)

(printf "~A\n" (sxml-template:fill-string
                 (make-sxml-template '(%data key))
                 '((key . "value"))))

Will print the string value.

Using with Spiffy

TODO: This is for Spiffy for Chicken 3. Needs updating to a recent Spiffy.

(use sxml-templates spiffy)

(define (my-app:read-sxml-template basename)
  (make-sxml-template
    (read (open-input-file (string-append "templates/" basename ".scm")))))

(http:add-resource
  "/login-form"
  (lambda (req args)
    (let* ((login-form-template
             (my-app:read-sxml-template "login-form-body"))
           (login-form-namespace
             '((form-method . "POST")
               (form-action . "/login-form-post-target")
               (username-input-name . "username")
               (password-input-name . "password")))
           (login-form-template
             (sxml-templates:fill login-form-template login-form-namespace)))
      ; write some response headers, etc
      (printf
        (sxml-templates:fill-string
          (my-app:read-sxml-template "shell")
          `((body . ,login-form-template)))))))

templates/shell.scm would look something like:

(html
  (head (title "My Application"))
  (body (%data body)))

templates/login-form-body.scm would look something like:

(form
 (@ (method (%data form-method))
    (action (%data form-action)))
 (label "Username")
 (input (@ (type "text")
           (name (%data username-input-name))))
 (label "Password")
 (input (@ (type "password")
           (name (%data password-input-name))))
 (input (@ (type "submit"))))

The resource handler in the example first subtitutes some variables into the login-form-body template, and then substitutes the result into the shell template.

Constructors

make-sxml-template

[procedure] (make-sxml-template sxml)

Where sxml is an SXML expression. Returns a sxml-template record.

sxml-template:fill

[procedure] (sxml-template:fill sxml-template namespace)

Where sxml-template is a sxml-template record and namespace is an association list mapping variable names to values. This will replace all instances of (%data name) in sxml-template's underlying SXML with the result of (alist-ref 'name alist), and return a new sxml-template record. If a value in namespace is a filled sxml-template, then the right thing will happen. If a value is a list, then it is assumed to be vanilla SXML and will be converted using SXML's universal-conversion-rules. If a value is mentioned in the template's SXML which does not have a corresponding entry in the alist, then an error will be signalled. See sxml-template:fill-string for an equivalent which results in a string of XML, and sxml-template->string for a procedure which will convert a filled sxml-template record (as returned by this procedure) to a string of XML.

Predicates

sxml-template?

[procedure] (sxml-template? x)

Returns a boolean indicating whether x is of the sxml-template record type.

sxml-template:filled?

[procedure] (sxml-template:filled? sxml-template)

Returns a boolean indicating whether sxml-template has been filled (see sxml-template:fill).

Selectors

sxml-template:sxml

[procedure] (sxml-template:sxml sxml-template)

Returns the value of the sxml argument in the make-sxml-template call which was used to construct the given sxml-template.

Conversion

sxml-template:fill-string

[procedure] (sxml-template:fill-string sxml-template namespace)

Similar to sxml-template:fill, but results in an XML string. Defined as (compose sxml-template->string sxml-template:fill).

sxml-template->string

[procedure] (sxml-template->string sxml-template)

Converts a filled sxml-template record (as returned by sxml-template:fill) into an XML string.