lang-ify

pollen/markup-helper.rkt

@@ -0,0 +1,37 @@
+#lang racket/base
+(require (for-syntax racket/base
+                     syntax/strip-context
+                     pollen/private/project
+                     pollen/setup)
+         pollen/private/external/include-template
+         pollen/cache
+         pollen/pagetree
+         pollen/core
+         pollen/template
+         pollen/top)
+
+(provide (rename-out [mb #%module-begin])
+         (except-out (all-from-out racket/base) #%module-begin))
+(define-syntax (mb stx)
+  (syntax-case stx ()
+    [(_ SOURCE-PATH-STRING TEMPLATE-PATH-STRING)
+     (let ([source-path (syntax->datum #'SOURCE-PATH-STRING)])
+       (with-syntax ([DIRECTORY-REQUIRE-FILES
+                      (replace-context #'here (require-directory-require-files source-path))]
+                     [DOC-ID (setup:main-export source-path)]
+                     [META-ID (setup:meta-export source-path)]
+                     [CPR (current-project-root)]
+                     [HERE-PATH-KEY (setup:here-path-key source-path)]
+                     [COMMAND-CHAR (setup:command-char source-path)])
+         #'(#%module-begin 
+            DIRECTORY-REQUIRE-FILES
+            (define result
+              (parameterize ([current-pagetree (make-project-pagetree CPR)]
+                             [current-metas (cached-metas SOURCE-PATH-STRING)])
+                (define DOC-ID (cached-doc SOURCE-PATH-STRING))
+                (define META-ID (current-metas))
+                (define here (path->pagenode (or (select-from-metas 'HERE-PATH-KEY META-ID) 'unknown)))
+                (if (bytes? DOC-ID) ; if main export is binary, just pass it through
+                    DOC-ID
+                    (include-template #:command-char COMMAND-CHAR (file TEMPLATE-PATH-STRING)))))
+            (provide result))))]))

pollen/private/ts.rktd

@@ -1 +1 @@
-1541111876
+1541112008

pollen/render.rkt

@@ -194,10 +194,15 @@
 
 (define (render-preproc-source source-path . _)
   (parameterize ([current-directory (->complete-path (dirname source-path))])
-    (render-datum-through-eval (syntax->datum
-                                (with-syntax ([SOURCE-PATH source-path])
-                                  #'(begin (require pollen/cache)
-                                           (cached-doc SOURCE-PATH)))))))
+    (render-through-eval (with-syntax ([MODNAME (gensym)]
+                                       [SOURCE-PATH-STRING (->string source-path)])
+                           #'(begin
+                               (module MODNAME racket/base
+                                 (require pollen/cache)
+                                 (define result (cached-doc SOURCE-PATH-STRING))
+                                 (provide result))
+                               (require 'MODNAME)
+                               result)))))
 
 (define (render-markup-or-markdown-source source-path [maybe-template-path #f] [maybe-output-path #f])
   (define output-path (or maybe-output-path (->output-path source-path)))
@@ -207,36 +212,19 @@
   (unless template-path
     (raise-argument-error 'render-markup-or-markdown-source "valid template path" template-path))
   (render-from-source-or-output-path template-path) ; because template might have its own preprocessor source
-  (define datum-to-eval
-    (syntax->datum
-     (with-syntax ([DIRECTORY-REQUIRE-FILES (require-directory-require-files source-path)]
-                   [DOC-ID (setup:main-export source-path)]
-                   [META-ID (setup:meta-export source-path)]
-                   [SOURCE-PATH-STRING (path->string source-path)]
-                   [CPR (current-project-root)]
-                   [HERE-PATH-KEY (setup:here-path-key source-path)]
-                   [COMMAND-CHAR (setup:command-char source-path)]
-                   [TEMPLATE-PATH (->string template-path)])
-       #'(begin 
-           (require (for-syntax racket/base)
-                    pollen/private/external/include-template
-                    pollen/cache
-                    pollen/private/log
-                    pollen/pagetree
-                    pollen/core)
-           DIRECTORY-REQUIRE-FILES
-           (parameterize ([current-pagetree (make-project-pagetree CPR)]
-                          [current-metas (cached-metas SOURCE-PATH-STRING)])
-             (local-require pollen/template pollen/top)
-             (define DOC-ID (cached-doc SOURCE-PATH-STRING))
-             (define META-ID (current-metas))
-             (define here (path->pagenode (or (select-from-metas 'HERE-PATH-KEY META-ID) 'unknown)))
-             (if (bytes? DOC-ID) ; if main export is binary, just pass it through
-                 DOC-ID
-                 (include-template #:command-char COMMAND-CHAR (file TEMPLATE-PATH))))))))
   ;; set current-directory because include-template wants to work relative to source location
   (parameterize ([current-directory (->complete-path (dirname source-path))])
-    (render-datum-through-eval datum-to-eval)))
+    (define stx-to-eval
+      (with-syntax ([MODNAME (gensym)]
+                    [SOURCE-PATH-STRING (->string source-path)]
+                    [TEMPLATE-PATH-STRING (->string template-path)])
+        #'(begin
+            (module MODNAME pollen/markup-helper
+              SOURCE-PATH-STRING
+              TEMPLATE-PATH-STRING)
+            (require 'MODNAME)
+            result)))
+    (render-through-eval stx-to-eval)))
 
 (define (templated-source? path)
   (or (markup-source? path) (markdown-source? path)))
@@ -297,9 +285,7 @@
    (check-equal? (get-template-for (->complete-path "foo.html.pm")) fallback.html)))
 
 (define-namespace-anchor render-module-ns)
-(define (render-datum-through-eval datum-to-eval)
+(define (render-through-eval datum-to-eval)
   ;; render a datum, not a syntax object, so that it can have fresh bindings.
-  (parameterize ([current-namespace (make-base-namespace)]
-                 [current-output-port (current-error-port)])
-    (namespace-attach-module (namespace-anchor->namespace render-module-ns) 'pollen/setup) ; brings in params
+  (parameterize ([current-output-port (current-error-port)])
     (eval datum-to-eval)))