Add new word to http.server.templating

2007-09-21 16:55:39 -04:00 · 2007-09-21 16:55:39 -04:00 · 48b35f0417
parent d1b70d8b13
commit 48b35f0417
1 changed files with 4 additions and 0 deletions
--- a/extra/http/server/templating/templating.factor
+++ b/extra/http/server/templating/templating.factor
@ -81,5 +81,9 @@ DEFER: <% delimiter
        ] with-scope
    ] assert-depth drop ;

+: run-relative-template-file ( filename -- )
+    file get source-file-path parent-dir
+    swap path+ run-template-file ;
+
 : template-convert ( infile outfile -- )
    <file-writer> [ run-template-file ] with-stream ;