force render inside pagetrees

pollen/pagetree.rkt

@@ -218,6 +218,14 @@
   (pagetree-strict->list (get-pagetree pt-or-path)))
 
 
+(define+provide/contract (pagetree->paths pt-or-path)
+  ((or/c pagetree? pathish?) . -> . (listof complete-path?))
+  (parameterize ([current-directory (current-project-root)])
+    (map ->complete-path (pagetree->list (match pt-or-path
+                                           [(? pagetree? pt) pt]
+                                           [_ (cached-doc pt-or-path)])))))
+
+
 (module-test-external
  (define test-pagetree `(pagetree-main foo bar (one (two three))))
  (check-equal? (pagetree->list test-pagetree) '(foo bar one two three)))

pollen/private/command.rkt

@@ -7,7 +7,8 @@
          sugar/coerce
          "file-utils.rkt"
          "log.rkt"
-         "../setup.rkt")
+         "../setup.rkt"
+         "../pagetree.rkt")
 
 ;; The use of dynamic-require throughout this file is intentional:
 ;; this way, low-dependency raco commands (like "version") are faster.
@@ -129,10 +130,13 @@ version                print the version" (current-server-port) (make-publish-di
     (when (force-render?)
       ;; forcing works like `touch`: updates the mod date of the files,
       ;; which invalidates any cached results.
+      (let force-paths ([paths paths])
         (for* ([path (in-list paths)]
-             [sp (in-value (get-source path))]
+               [sp (in-value (if (pagetree-source? path) path (get-source path)))]
                #:when sp)
-        (file-or-directory-modify-seconds sp timestamp)))
+              (file-or-directory-modify-seconds sp timestamp)
+              (when (pagetree-source? sp)
+                (force-paths (pagetree->paths sp))))))
     (apply render-batch (map very-nice-path paths) #:parallel (render-parallel?) #:special (special-output?)))
   
   (parameterize ([current-poly-target (render-target-wanted)]) ;; applies to both cases

pollen/private/ts.rktd

@@ -1 +1 @@
-1588547974
+1588697216

pollen/render.rkt

@@ -189,12 +189,6 @@
                         [#false expanded-source-paths]
                         [jobs-arg (parallel-render expanded-source-paths jobs-arg)])))]))
 
-(define (pagetree->paths pagetree-or-path)    
-  (parameterize ([current-directory (current-project-root)])
-    (map ->complete-path (pagetree->list (match pagetree-or-path
-                                           [(? pagetree? pt) pt]
-                                           [_ (cached-doc pagetree-or-path)])))))
-
 (define+provide/contract (render-pagenodes pagetree-or-path)
   ((or/c pagetree? pathish?) . -> . void?)
   (apply render-batch (pagetree->paths pagetree-or-path)))