html-template-devel March 2007

html-template-devel@common-lisp.net

3 participants
3 discussions

[html-template-devel] Additions to html-template
by Andrew Golding 22 Apr '08

22 Apr '08

Hello to all the members of this list. Recently at Onshore Development, we have started using HTML-TEMPLATE to render web-pages in an application we call Woofie, which provides an alternative interface to Webcheckout. While working on html templates for Woofie, I found myself wanting some extra abilities currently not available in HTML-TEMPLATE, mainly a foreach style loop with the variable which holds the current value of the list declared inside the tag, and the ability to use certain lisp expressions (format inside tmpl-var's and equality comparisons, boolean comparisons (or, and, etc.) inside of tmpl-if's). I would like to see if other developers would find such features useful. I currently have implemented both features I described to some degree in the following fashion: - the for-each style loop is represented in my templates as TMPL_LOOP_FOR and closed with a /TMPL_LOOP. The tag looks for two separate strings, one being the variable and the other being the list (eg. ). In the code, in each iteration of the loop over authors, a (setf (getf values :author) author) is performed (this should probably be changed into something similar to the *value-access-function*, or the perhaps *value-access-function* could be made setf'able?). - TMPL_IF and TMPL_VAR can take a symbol or a list. The list is deserialized from a string into a list of symbols or string literals delimited by double quotes. A larger expression is built by making a let, then evaluating the list. For example, the format expression in  would get expanded to: (let ((result-count (funcall *value-access-function* :result-count values)) (first-result (funcall *value-access-function* :first-result values)) (last-result (funcall *value-access-function* :last-result values))) (format nil "Displaying ~d results, displaying ~d through ~d." result-count first-result last-result)), which passed to (eval) and currently evaluated in the common lisp package (though evaluation should probably get done in some user-specified package that can be made to contain helper-functions for displaying data). I would appreciate any comments, and I will try to answer any questions should there be any (I'm guessing there will). The code can be found at http://kfreedom.onshored.com/html-template-additions.lisp , and should work with the standard html-template 0.7.0 package. Regards, Andrew Golding andy(a)onshored.com

3 5

[html-template-devel] TMPL_INCLUDE and *default-template-pathname*
by Chaitanya Gupta 29 Mar '07

29 Mar '07

Hello, I have noticed some strange behaviour while using TMPL_INCLUDE tags when *default-template-pathname* is set to some relative path. I am not sure whether its a bug or not, but it sure doesn't work as I expect it to - Let's start with a some directory - CL-USER(5): *default-pathname-defaults* #P"/Users/chaitanya/lisp/" Now I define a string with the TMPL_INCLUDE tag. CL-USER(7): (setf *tmpl-string* "before test ||  || after test") "before test ||  || after test" Calling fill-and-print-template works fine here. CL-USER(8): (html-template:fill-and-print-template *tmpl-string* nil) before test || Just a test template - || after test The value of *default-template-pathname* currently is CL-USER(11): html-template:*default-template-pathname* #P"" Now we will change it to #p"temp/" CL-USER(12): (setf html-template:*default-template-pathname* #p"temp/") #P"temp/" And we also change *tmpl-string* - CL-USER(13): (setf *tmpl-string* "before test ||  || after test") "before test ||  || after test" Now calling fill-and-print-template doesn't work - CL-USER(14): (html-template:fill-and-print-template *tmpl-string* nil) Error: File #P"temp/temp/test-template" does not exist. [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this (lisp) process. Upon looking at the source code, I saw that merge-pathnames was being called both while processing the TMPL_INCLUDE tag in create-template-printer-aux and while actually creating the template printer in create-template-printer. And indeed, tracing merge-pathnames reveals that this is what's happening - CL-USER(17): (html-template:fill-and-print-template *tmpl-string* nil) 0[2]: (MERGE-PATHNAMES "test-template" #P"temp/") 0[2]: returned #P"temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/test-template" #P"temp/") 0[2]: returned #P"temp/temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/temp/test-template") 0[2]: returned #P"/Users/chaitanya/lisp/temp/temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/temp/test-template") 0[2]: returned #P"/Users/chaitanya/lisp/temp/temp/test-template" Error: File #P"temp/temp/test-template" does not exist. [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this (lisp) process. This seems like a bug to me. Is this how its supposed to work? If yes, then how do I solve the above problem? (I don't want to set html-template:*default-template-pathname* to an absolute path) Thanks, Chaitanya

2 2

[html-template-devel] external format in an included template printer
by Igor Plekhov 09 Mar '07

09 Mar '07

Function #'create-template-printer has :external-format key parameter which is used when opening a file with a template to be filled. But if that file <tmpl_include>s some other file, than :external-format supplied is not used when opening the second file as it should be. In #'create-template-printer-aux function #'create-template-printer function is called with an included file only. May be it is worth to make a special variable like *hunchentoot-default-external-format* for default value of :external-format parameter for #'create-template-printer function. In SBCL special variable sb-impl::*default-external-format* can be binded to an external-format required as a workaround. -- Registered Linux User #124759

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

html-template-devel March 2007