Awesome
TEN
Yet another template system for Common Lisp.
TEN is a fork of ECO template system by Fernando Borretti.
Like ECO, TEN compiles templates to Lisp code, but has some differences:
- Two types of tags only. Control and output.
- Support for templates inheritance.
- Dot syntax for accessing template data.
- Convenient syntax for applying filters.
- Configurable syntax delimiters (planned, not done yet).
My reasons for writing yet another template system for Common Lisp is to combine the simplicity and usability of ECO (the whole Lisp language at your disposal for writing the templates), with features available in more complex template systems like Djula that makes things easier for web development (inheritance, dot syntax, etc.).
Usage
A TEN template looks like this:
{% template ex1 () (user enabled &key items) %}
<html>
<head>
</head>
<body>
{{ user.name | string-capitalize }}
{% if enabled %}
Enabled
{% else %}
Disabled
{% end %}
{% when items %}
<ul>
{% loop for item in items do %}
<li>{{ item }}</li>
{% end %}
</ul>
{% end %}
{% when (not items) %}
There are no items
{% end %}
</body>
</html>
{% end %}
These are the types of tags:
- Output tags:
{{ <var> }}
, becomes<var>
, and{{ <fn> &rest args }}
, that becomes(fn arg1 arg2 .. argn)
. - Control tags:
{% <expr> %} body {% end %}
, becomes(<expr> body)
. - Comments tags: Use
{#
and#}
to comment out a piece of template.
Control tags control which parts of the tamplate are rendered; their return value is ignored.
The value returned by output tags are interpolated into the template. The function called can be any Lisp function, or another template (because templates are compiled to functions).
For example:
{{ user }}
=>user
{{ name user }}
=>(name user)
{% when (name user) %} ... {% end %}
=>(when (name user) ...)
The if
tag is a special case: it supports using an else
tag to separate the true and
false branches. For example:
{% if posts %}
<h1>Recent Posts</h1>
... loop over posts ...
{% else %}
No recent posts.
{% end %}
Also, more advanced control expressions are possible, like let
, case
, cond
, etc.
Template definition
Templates are defined with the following syntax:
{% template name (&rest options) (&rest args) %}
... body ...
{% end %}
Template options are:
:extends
: The template to extend from.:dot-syntax
: If T, templates are compiled with dot syntax enabled. Dot syntax is implemented via the Lisp libraryaccess
. Default is T.:package
: The package in which to compile and export the template. By default, templates are compiled and exported inTEN-TEMPLATES
package.:export
: When T, export the generated template function. Otherwise, the template is not exported. Default is T.:escape-html
: Whether to escape html in output tags. Default is T.:output-whitespace
. Default is T. When NIL, expressions that just spit whitespace are discarded.
Template compilation
For manually compiling templates, use ten:compile-template
function.
But more useful is to include them in the ASDF system definition of your project.
First, add :ten
as ASDF system definition dependency:
:defsystem-depends-on (:ten)
Then, use :ten-template
in to include the template files:
(:ten-template "filename")
The default file extension is "ten", but another can be specified via the :file-extension
option; and the template package can be specified with the :package
option. Look at ten.examples ASDF system for an example.
You can also compile all the templates in some directory using this ASDF recipe:
:perform (asdf:compile-op :after (o c)
(dolist (template (uiop:directory-files (asdf:system-relative-pathname :my-app "templates/*.ten")))
(uiop:symbol-call :ten 'compile-template template)))
Templates are compiled into functions and exported in the indicated package. The default package is ten-templates
, but that can be changed from either the ASDF system definition, the ten:compile-template
parameters, or the {% template %}
options.
If CREATE-STREAM-WRITING-FUNCTION
option is enabled, then two functions are compiled, the default one, that compiles to a function that takes template arguments and renders the template to a string. And a function that renders the template to the *TEMPLATE-OUTPUT*
stream. So, for a template named my-template
, a my-template
function that renders to a string is created, and a my-template*
function that renders to *TEMPLATE-OUTPUT*
stream is created.
When developing your project it is useful to be able to compile templates in an interactive way.
If you are using Emacs + SLIME, load ten.el
file.
Then use M-X ten-compile-template
when on the template buffer to compile templates. Note that you may want to have :package
option specified in the template so that it gets compiled into the correct package.
For debugging, you can inspect the expanded template using ten:expand-template
function. In Emacs, go to template buffer an do M-x ten-expand-template
.
If you enable ten
minor mode, template compilation gets conveniently bound to C-c C-c
, and template expansion to C-c RET
. Best is to automatically enable the minor mode for template files adding something like (add-hook 'web-mode-hook 'ten-mode)
to your .emacs
initialization file.
Inheritance
To make a template inherit from anohter, use the :extends
option in template definition.
Templates are organized in sections
. sections
are the parts of the templates that are inherited.
Use {{super}}
inside a section
to render the parent section
.
TEN leverages CLOS for implementing template inheritance. Templates are compiled to classes and generic functions render-template
and render-section
.
Have a look at some examples of template inheritance.
Includes
To include other templates, just use the output tag with the name of the included template. Remember that templates are compiled to functions; just call those functions from the template to include them.
Have a look at an example.
Dot syntax
When dot syntax is enabled (it is, by default), it is possible to conveniently access objects with dot syntax in templates:
{{ object.key1.key2 }}
that gets translated by access library to:
(access:accesses obj 'key1 'key2)
Have a look at an example.
Filters
TEN implements some convenient syntax for filters.
{{ value | func1 arg1 .. argN| func2 arg1 .. argN| .. | funcN arg1 .. argN}}
Filters are just normal functions that get applied to the value.
Filters are translated to functions application like this:
(funcN (.. (func2 (func1 value arg1 .. argN) arg1 .. argN))) arg1 .. argN)
In general, filter functions are expected to receive the value to be filtered as first parameter.
But, for several Lisp functions that's not the case. In those cases, it is possible to use _
to indicate where the filter function should receive the value.
For example, string-trim
receives the string to trim as second value, so, to apply it as filter we do:
{{str | string-trim '(#\%) _}}
Filters syntax is completly optional, you can disregard it and just apply functions instead:
{{ string-trim '(#\%) (string-capitalize str) }}
Have a look at some examples of filters.
Examples
Load and have a look at the examples.
(require :ten.examples)
Example templates get compiled and exported to ten/examples
package.
Troubleshooting
- When specifying a template package other than
ten-templates
, if the package specified doesn't:use
ten
orten-template
packages, then you may run into problems trying to compile your templates. That may be because thetemplate
andsection
macros are not found in the specified package. In that case, make sure to prefix yourtemplate
andsection
declarations withten:
, like:
{% ten:template my-template (:package my-package) %}
{% ten:section my-section %}
{% end %}
{% end %}
- You can use different implementation and export packages. Qualify the template name with the package name, like:
{% ten:template my-templates:my-template (:package my-package) %}
{{ foo "bar" }}
{% ten:section my-section %}
{% end %}
{% end %}
That will define MY-TEMPLATE
on the MY-TEMPLATES
package, but use MY-PACKAGE
in its source (the {{ foo "bar" }}
expression expands to to (MY-PACKAGE::FOO "bar")
). Note that you need to previously define a package MY-TEMPLATE
that exports MY-TEMPLATE
. Or otherwise use MY-TEMPLATE::MY-TEMPLATE
as template name.
- Some "complex" expressions, like
cond
andcase
, require that you turn:output-whitespace
toNIL
. Otherwise, template compilation putswrite-string
expressions right in the middle of thecase
andcond
bodies. Have a look at this template.
License
MIT