From 49b1dd91b85bc045634804bad94112fea983c9d1 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 19 Jun 2014 13:03:51 -0700 Subject: [PATCH] fix get-template-for to read metas correctly for template key --- render.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/render.rkt b/render.rkt index eed59c7..bcd831f 100644 --- a/render.rkt +++ b/render.rkt @@ -1,6 +1,6 @@ #lang racket/base (require racket/file racket/rerequire racket/path racket/match) -(require sugar "file.rkt" "cache.rkt" "world.rkt" "debug.rkt" "pagetree.rkt" "project.rkt") +(require sugar "file.rkt" "cache.rkt" "world.rkt" "debug.rkt" "pagetree.rkt" "project.rkt" "template.rkt") ;; when you want to generate everything fresh, @@ -190,7 +190,7 @@ (parameterize ([current-directory (world:current-project-root)]) (let ([source-metas (cached-require source-path 'metas)]) (and ((->symbol world:template-meta-key) . in? . source-metas) - (build-path source-dir (get source-metas (->string world:template-meta-key)))))) ; path based on metas + (build-path source-dir (select-from-metas (->string world:template-meta-key) source-metas))))) ; path based on metas (build-path (world:current-project-root) (add-ext world:default-template-prefix (get-ext (->output-path source-path))))))) ; path to default template (build-path (world:current-server-extras-path) world:fallback-template)))) ; fallback template