|
|
|
|
6
|
(defun add-injection (injection location)
|
6
|
(defun add-injection (injection location)
|
7
|
"Adds an INJECTION to a given LOCATION for rendering. The INJECTION should be a
|
7
|
"Adds an INJECTION to a given LOCATION for rendering. The INJECTION should be a
|
8
|
function that takes a DOCUMENT and returns NIL or a STRING for template insertion."
|
8
|
function that takes a DOCUMENT and returns NIL or a STRING for template insertion."
|
9
|
- (push result (getf *injections* location)))
|
|
|
|
|
9
|
+ (push injection (getf *injections* location)))
|
10
|
|
10
|
|
11
|
(defun find-injections (content)
|
11
|
(defun find-injections (content)
|
12
|
"Iterate over *INJECTIONS* collecting any that should be added to CONTENT."
|
12
|
"Iterate over *INJECTIONS* collecting any that should be added to CONTENT."
|