An HTML templating engine using Plump.
Table of Contents
About Clip
Clip is an attempt at a templating library that allows you to write templates in a way that is both accessible to direct webdesign and flexible. The main idea is to incorporate transformation commands into an HTML file through tags and attributes. Clip is heavily dependant on Plump and lQuery.
How To
Load Clip through ASDF or Quicklisp.
(ql:quickload :clip)
To process a template, simply call PROCESS
:
(clip:process #p"my-template.ctml")
You may also pass in pure strings or plump nodes. Most likely you will want to include some kind of data in your template. Data in Clip is managed through a central CLIPBOARD
. The additional arguments you pass to PROCESS
are entered into the initial clipboard like a plist (key and value alternating).
Depending on the current tag environment and how the template is processed at the time these values can come into play. Most of the time, entering the name as passed into PROCESS
in the template as an attribute value will then evaluate to the according value using RESOLVE-VALUE
. In the case of a symbol this then delegates to CLIP
, which returns the value stored in the clipboard.
The value returned by PROCESS
is the node you passed into it. You can parse this back into a string using PLUMP:SERIALIZE
or lQuery's WRITE-TO-FILE
.
Standard Tags
C:EXPAND
This tag expands its attributes and then callsPROCESS-NODE
on itself again. This is useful to generate attributes to be expanded.C:IF
Looks for either aTEST
attribute or aC:TEST
tag as one of its direct children. If the test as byRESOLVE-VALUE
is non-NIL, all children of theC:THEN
tag are spliced in place of theC:IF
block. Otherwise it looks forC:ELSEIF
blocks and checks theirTEST
attributes in turn. The contents of the first block whoseTEST
passes is spliced. If none pass, theC:ELSE
child block, if any, is spliced.C:ITERATE
Looks for one attribute calledOVER
and then works like theITERATE
attribute processor using the value of theOVER
attribute.C:LET
Creates a new clipboard environment with all the tag attributes bound in the following manner: The attribute key is put into the clipboard directly and associated with the value ofRESOLVE-VALUE
of the attribute value. Acts likeSPLICE
.C:NOOP
This tag only processes its attributes, but none of its children.C:SPLICE
Splices all nodes within it into the parent's child list at the position of itself (essentially replacing it with its children).C:UNLESS
Same as WHEN, but inverted.C:USING
Binds the clipboard to the resolved-value of itsVALUE
attribute. Acts likeSPLICE
.C:WHEN
Looks for aTEST
attribute and if the value of it as byRESOLVE-VALUE
is non-NIL, acts likeSPLICE
. Otherwise it removes itself including its children from the DOM.C:CASE
Takes aVALUE
attribute that each element in the body is compared against, just like CL'scase
. Each element in the body may have aVALUE
attribute to compare again, or aVALUES
attribute that is a space-separated list, too.C:S
A shorthand for<c:splice lquery="(text ...)"></c:splice>
where ... is the contents of the element.C:H
A shorthand for<c:splice lquery="(html ...)"></c:splice>
where ... is the contents of the element.
If you specify attributes that are not known on a standard tag, a warning of type UNKNOWN-ATTRIBUTE
is signalled. If you do not specify a required attribute on a standard tag, an error of type MISSING-ATTRIBUTE
is signalled.
Standard Attributes
AS
Simply changes that node's tag-name to the value of this attribute.COUNT
Inserts the value of*TARGET-COUNT*
as the attribute value. This is useful to follow processing order during debugging.EVAL
Simply callsEVAL
on the value ofREAD-FROM-STRING
of the attribute value.ITERATE
The value (as byRESOLVE-VALUE
) is used as an iteration list or vector. The first node within the node this attribute belongs to is copied once for each item in the iteration list and processed with that item used as the clipboard.LQUERY
Calls lQuery functions on the node as if by($ node ..)
. Note that only lQuery functions are available, not its macros.FILL
The attribute value is read as a plist, the keys of which designate other attribute names and the values are resolved to the objects to use. For each named attribute, its value is modified by replacing{thing}
by the result ofclip
on the respective object's fieldthing
.
Extending Clip
You can define new tag and attribute processors with the macros DEFINE-TAG-PROCESSOR
and DEFINE-ATTRIBUTE-PROCESSOR
. For tag processors you will usually want to make sure to call PROCESS-ATTRIBUTES
and PROCESS-CHILDREN
to ensure that tags and attributes within are properly processed. To retrieve values most of the time you need to use RESOLVE-VALUE
(or its shorthand RESOLVE-ATTRIBUTE
) unless you want to whip up your own system for one reason or another. All tags that you define will automatically be prefixed with C:
in order to help highlighting template tags and ensure that there are no collisions with existing tags.
Editor Support
The Emacs extension Web-Mode(version 9.0.77+) provides syntax highlighting for Clip templates. In order for it to recognise the templates, use the .ctml
file extension. A huge thanks goes to Bois Francois-Xavier for adding the support.
Tutorials
These are short tutorials to help explaining the effects of each tag and to illustrate some basic templating techniques. The examples will only work with Clip>=0.5.1 and lQuery>=3.1.1 .
Updating a node with values
(clip:process-to-string
"<span lquery=\"(text text) (add-class class)\" />"
:text "Hi!" :class "clip-text")
Explanation: The LQUERY
attribute allows you to perform lQuery operations on the node it is an attribute of. In this case, the TEXT
function sets the text of the node to the value of TEXT
, which we told Clip to be "Hi!"
. Similarly for ADD-CLASS
. Any non-keyword symbol within the template is automatically resolved to a field on the current clipboard. You may think of the clipboard as a form of lexical environment for the template, which we currently set to have the variables TEXT
and CLASS
bound. The default CLIPBOARD
object is special in the sense that it does not differentiate between accessing it with keywords, symbols or strings and is case-insensitive. This makes it easier to access in templates.
Please see the lQuery documentation for all possible node manipulation functions.
Populating from a list
(clip:process-to-string
"<ol iterate=\"todo-list\"><li lquery=\"(text *)\"></li></ol>"
:todo-list '("Write tutorials" "Make tiramisu" "Visit grandma"))
The ITERATE
attribute goes over the list or vector of elements its attribute-value resolves to and uses each item as the current clipboard for the iteration element. Since in this case these values themselves are direct strings we cannot retrieve further values from them and instead need to use *
to refer to the entire clipboard.
Conditionals
(clip:process-to-string
"<ul iterate=\"users\">
<li><c:if test=\"anonymous\"><c:then>Username Hidden</c:then><c:else lquery=\"(text username)\"/></c:if></li>
</ul>"
:users '((:username "Some Guy" :anonymous T) (:username "Some Other Guy" :anonymous NIL) (:username "You" :anonymous NIL)))
Clip offers a couple of constructs to perform conditionals. These constructs are C:WHEN
C:UNLESS
and C:IF
, after their CL equivalents. Each take an attribute called TEST
that has to resolve to a non-NIL value to be taken as true. In the case of C:IF
, three special local child tags are used: C:THEN
, C:ELSE
and C:TEST
. The C:TEST
tag can be used as an alternative to the test attribute. The other two should be self-explanatory. Note that none of the child-tags or attributes of an unchosen branch are processed.
Bindings
(clip:process-to-string
"<c:using value=\"num\">
<c:let orig=\"*\" double=\"(* * 2)\" square=\"(expt * 2)\" root=\"(sqrt *)\">
<span lquery=\"(text (list orig double square root))\" />
</c:let>
</c:using>"
:num 2)
In order to manipulate the clipboard bindings you can use the C:USING
and C:LET
special tags. C:USING
replaces the clipboard environment with what the value of its VALUE
attribute resolves to. C:LET
on the other hand creates a new CLIPBOARD
object, setting the specified symbol/value pairs from its attributes.
Clipboard Stack
(clip:process-to-string
"<ul iterate=\"articles\">
<li><article>
<header><div class=\"author\" lquery=\"(text (** :author))\">AUTHOR</div></header>
<section class=\"content\" lquery=\"(text *)\">CONTENT</section>
</article></li>
</ul>"
:author "Max Mastermind" :articles '("Whoa I am blogging!!" "I don't know what to write, sadface."))
Sometimes you need to refer to values in clipboards outside of the current binding. No worries, this is easy to do as the clipboards are organised using a stack. You can reach clipboards higher up in the stack using the asterisk symbols. Each asterisk more is one clipboard higher. Using the asterisk symbol as a variable returns the clipboard directly, using it as a function call is akin to doing (CLIP ** 'thing)
. In order to avoid clashing with the *
multiplication function, the asterisk function shorthand is only active for two or more asterisks.
Function References
(defun seconds () (decode-universal-time (get-universal-time)))
(clip:process-to-string
"<time lquery=\"(text (seconds))\">TIME</time>")
Whenever you require to use functions within clip documents, you need to be aware of the current value of *package*
. As values that are resolved are first parsed using read
, they are influenced by *package*
. You can of course use fully qualified symbol names, but often times it is useful to bind the variable to the package you need to reduce verbosity.
You must also be aware of the special resolving for symbols used as function calls within standard resolvings. As mentioned in the previous section, symbols only consisting of asterisks are specially handled. Additionally, the symbols cl:quote
, cl:function
, cl:or
, cl:and
, cl:if
, cl:when
, and cl:unless
are handled to work like their usual macro/special equivalents. Any other symbol is treated as follows: If a function's symbol with the same symbol-name is externalised from the clip
package, the clip
function is used. If not, the function named by the symbol in the symbol's package is used. This is done so that, no matter your package, you will always have access to functions like clip
and clipboard
. As an unfortunate side-effect of a symbol not knowing whether it was fully qualified or not, this means that even if you use the full symbol name with package in your template, as long as the name is external in clip
, the clip
function is used instead. You will have to use a combination of funcall
and #'
to circumvent this limitation..
Further Reading
System Information
Definition Index
-
CLIP
- ORG.TYMOONNEXT.CLIP
No documentation provided.-
EXTERNAL SPECIAL-VARIABLE *ATTRIBUTE-PROCESSORS*
Global registry of attribute processors. This has to be an EQUALP hash-table with the attribute name as keys and functions that accept two arguments (node attribute-value) as values. Binding this variable can be useful to establish local attributes.
-
EXTERNAL SPECIAL-VARIABLE *CLIPBOARD-STACK*
Template storage stack. When new clipboards are bound, they are pushed onto the stack. Once the binding is left, they are popped off the stack again.
-
EXTERNAL SPECIAL-VARIABLE *TAG-PROCESSORS*
Global registry of tag processors. This has to be an EQUALP hash-table with the tag name as keys and functions that accept one argument (the node) as values. Binding this variable can be useful to establish local tags.
-
EXTERNAL SPECIAL-VARIABLE *TARGET*
This variable is bound to whatever node is currently being processed.
-
EXTERNAL CLASS CLIPBOARD
Special class for clipboard environments. Use CLIPBOARD or CLIP to access and set values within. Field names are automatically transformed into strings as per STRING. Access is case-insensitive.
-
EXTERNAL CONDITION ATTRIBUTE-CONDITION
Superclass for all conditions related to problems with a node's attribute. See NODE-CONDITION
-
EXTERNAL CONDITION CLIP-CONDITION
Superclass for all conditions related to Clip.
-
EXTERNAL CONDITION MISSING-ATTRIBUTE
Condition signalled when a required attribute is missing. See ATTRIBUTE-CONDITION
-
EXTERNAL CONDITION NODE-CONDITION
Superclass for all conditions related to problems with a node. See CLIP-CONDITION
-
EXTERNAL CONDITION UNKNOWN-ATTRIBUTE
Condition signalled when an unknown attribute is present. See ATTRIBUTE-CONDITION
-
EXTERNAL FUNCTION ATTRIBUTE-PROCESSOR
- ATTRIBUTE
- &REST
Returns the processor function for the requested attribute if one is registered. Otherwise returns NIL. See *ATTRIBUTE-PROCESSORS*.
-
EXTERNAL FUNCTION (SETF ATTRIBUTE-PROCESSOR)
- FUNC
- ATTRIBUTE
- &REST
Sets the attribute-processor bound to the given attribute to the specified function. See *ATTRIBUTE-PROCESSORS*.
-
EXTERNAL FUNCTION CHECK-ATTRIBUTE
- NODE
- ATTRIBUTE
- &REST
Checks whether the given attribute is present on the node. If it is, the attribute's value is returned. Otherwise, an error of type MISSING-ATTRIBUTE is signalled. See MISSING-ATTRIBUTE
-
EXTERNAL FUNCTION CHECK-NO-UNKNOWN-ATTRIBUTES
- NODE
- &REST
- KNOWN-ATTRIBUTES
- &REST
Checks whether there are any unknown attributes present on the node. If an unknown attribute is present, a warning of type UNKNOWN-ATTRIBUTE is signalled. Otherwise, NIL is returned. See UNKNOWN-ATTRIBUTE
-
EXTERNAL FUNCTION CHECK-SOLE-ATTRIBUTE
- NODE
- ATTRIBUTE
- &REST
Checks whether the given attribute is the only attribute on the node. If it is not present, or not the only one, an error is signalled. Otherwise, the attribute's value is returned. See CHECK-NO-UNKNOWN-ATTRIBUTES See CHECK-ATTRIBUTE
-
EXTERNAL FUNCTION CLIPBOARD
- FIELD
- &REST
Shorthand for (CLIP (FIRST *CLIPBOARD-STACK*) FIELD)
-
EXTERNAL FUNCTION (SETF CLIPBOARD)
- VALUE
- FIELD
- &REST
Shorthand for (SETF (CLIP (FIRST *CLIPBOARD-STACK*) FIELD) VALUE)
-
EXTERNAL FUNCTION MAKE-CLIPBOARD
- &REST
- FIELDS
- &REST
Creates a new clipboard using the specified fields (like a plist).
-
EXTERNAL FUNCTION PARSE-AND-RESOLVE
- VALUE
- &REST
If the passed value is a STRING it is parsed using READ-FROM-STRING and subsequently passed to RESOLVE-VALUE. If it is not a string, the value itself is returned.
-
EXTERNAL FUNCTION PROCESS
- TARGET
- &REST
- FIELDS
- &REST
Processes all clip markup on the target with the given FIELDS used to initialise the clipboard.
-
EXTERNAL FUNCTION PROCESS*
- TARGET
- CLIPBOARD
- &REST
Processes all clip markup on the target with the given CLIPBOARD.
-
EXTERNAL FUNCTION PROCESS-ATTRIBUTE
- NODE
- ATTRIBUTE
- VALUE
- &REST
Processes the specified attribute using the given value. If no attribute processor can be found, nothing is done. See *ATTRIBUTE-PROCESSORS*.
-
EXTERNAL FUNCTION PROCESS-ATTRIBUTES
- NODE
- &REST
Processes all attributes on the node. See PROCESS-ATTRIBUTE.
-
EXTERNAL FUNCTION PROCESS-CHILDREN
- NODE
- &REST
Calls PROCESS-NODE on all childrens of the passed node. This takes some care to make sure that splicing into the childrens array of the node is possible. However, note that inserting children before the node that is currently being processed will most likely lead to horrors. If such functionality is indeed ever needed (I hope not), this system needs to be rewritten to somehow be able to cope with such scenarios.
-
EXTERNAL FUNCTION PROCESS-NODE
- NODE
- &REST
Processes the passed node. Depending on type the following is done: PLUMP:ELEMENT PROCESS-TAG is called. PLUMP:NESTING-NODE PROCESS-CHILDREN is called. PLUMP:NODE Nothing is done. T An error is signalled. Any call to this also increases the *TARGET-COUNTER* regardless of what is done.
-
EXTERNAL FUNCTION PROCESS-TAG
- TAG
- NODE
- &REST
Processes the specified node as the given tag. If no tag processor can be found, PROCESS-ATTRIBUTES and PROCESS-CHILDREN is called. See *TAG-PROCESSORS*.
-
EXTERNAL FUNCTION PROCESS-TO-STRING
- TARGET
- &REST
- FIELDS
- &REST
Same as PROCESS, but automatically performs PLUMP:SERIALIZE on the result to a string.
-
EXTERNAL FUNCTION RESOLVE-ATTRIBUTE
- NODE
- ATTR
- &REST
Shorthand to resolve the value of an attibute. See RESOLVE-VALUE.
-
EXTERNAL FUNCTION TAG-PROCESSOR
- TAG
- &REST
Returns the processor function for the requested tag if one is registered. Otherwise returns NIL. See *TAG-PROCESSORS*.
-
EXTERNAL FUNCTION (SETF TAG-PROCESSOR)
- FUNC
- TAG
- &REST
Sets the tag-processor bound to the given tag-name to the specified function. See *TAG-PROCESSORS*.
-
EXTERNAL GENERIC-FUNCTION CLIP
- OBJECT
- FIELD
- &REST
Generic object accessor. If you want to get special treatment of objects or types, define your own methods on this.
-
EXTERNAL GENERIC-FUNCTION (SETF CLIP)
- VALUE
- OBJECT
- FIELD
- &REST
Generic object setter. If you want to get special treatment of objects or types, define your own methods on this.
-
EXTERNAL GENERIC-FUNCTION RESOLVE-VALUE
- OBJECT
- &REST
Attempts to resolve the object to a specific value. This is usually used in combination with READ-FROM-STRING of an attribute value.
-
EXTERNAL MACRO DEFINE-ATTRIBUTE-PROCESSOR
- ATTRIBUTE
- NODE
- VALUE
- &REST
- &BODY
- BODY
- &REST
Defines a new attribute processor. ATTRIBTUE --- A symbol or string that matches the attribute to process (case-insensitive) NODE --- The current node is bound to this symbol. VALUE --- The value of the attribute is bound to this symbol. BODY ::= form*
-
EXTERNAL MACRO DEFINE-TAG-PROCESSOR
- TAG
- NODE
- &REST
- &BODY
- BODY
- &REST
Defines a new attribute processor. TAG --- A symbol or string that matches the tag name to process (case-insensitive) NODE --- The node to process is bound to this symbol BODY ::= form*
-
EXTERNAL MACRO WITH-CLIPBOARD-BOUND
- NEW-CLIPBOARD
- &REST
- FIELDS
- &REST
- &BODY
- BODY
- &REST
Executes the body with the new clipboard on the *CLIPBOARD-STACK*. If fields are provided, they are set on the NEW-CLIPBOARD in plist fashion as per consecutive SETF. This means that side-effects of an early field set affect later fields. The fields are evaluated before the NEW-CLIPBOARD is pushed onto the *CLIPBOARD-STACK*.