:element-type 'extended-char
:if-exists :supersede
:if-does-not-exist :create)
- (let ((html-template:*string-modifier* #'identity))
+ (let ((html-template:*string-modifier* #'identity)
+ (html-template:*template-start-marker* "<<")
+ (html-template:*template-end-marker* ">>"))
(html-template:fill-and-print-template
template-path
(book-database-vars
-#title A Not So Fancy Listing of Books
-
-<!-- TMPL_LOOP authors -->
-* <!-- TMPL_VAR name -->
-
-<!-- TMPL_IF description --><!-- TMPL_VAR description --><!-- /TMPL_IF -->
-<!-- TMPL_LOOP books -->
-** <!-- TMPL_VAR title -->
-
-<!-- TMPL_IF ratingp -->*Rating:* <class name="rating-good"> <!-- TMPL_REPEAT rating-good -->•<!-- /TMPL_REPEAT --></class><class name="rating-bad"><!-- TMPL_REPEAT rating-bad -->•<!-- /TMPL_REPEAT --> </class> (<!-- TMPL_VAR rating-good -->) / <!-- /TMPL_IF -->*<!-- TMPL_VAR classification -->*
-
-<!-- TMPL_IF description --><!-- TMPL_VAR description --><!-- /TMPL_IF -->
-
-<!-- /TMPL_LOOP --><!-- /TMPL_LOOP -->
\ No newline at end of file
+#title A Not So Fancy Listing of Books
+
+<<TMPL_LOOP "authors">>
+* <<TMPL_VAR "name">>
+
+<<TMPL_IF "description">><<TMPL_VAR "description">><</TMPL_IF>>
+<<TMPL_LOOP "books">>
+** <<TMPL_VAR "title">>
+
+<<TMPL_IF "ratingp">>*Rating:* <class name="rating-good"> <<TMPL_REPEAT "rating-good">>•<</TMPL_REPEAT>></class><class name="rating-bad"><<TMPL_REPEAT "rating-bad">>•<</TMPL_REPEAT>> </class> (<<TMPL_VAR "rating-good">>) / <</TMPL_IF>>*<<TMPL_VAR "classification">>*
+
+<<TMPL_IF "description">><<TMPL_VAR "description">><</TMPL_IF>>
+
+<</TMPL_LOOP>><</TMPL_LOOP>>
\ No newline at end of file