Changeset 31386 in project


Ignore:
Timestamp:
09/11/14 18:13:22 (5 years ago)
Author:
Moritz Heidkamp
Message:

hyde: Move around-page-translate invocation to the proper place

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/hyde/trunk/hyde.scm

    r31385 r31386  
    335335
    336336(define (wrap-with-layouts contents #!optional layouts)
    337   ((around-page-translate)
    338    (current-page)
    339    (lambda ()
    340      (let* ((layouts (or layouts (alist-ref 'layouts (page-vars (current-page))) (default-layouts))))
    341        (fold (cut wrap-with-layout <> <>)
    342              contents
    343              (map (cut make-pathname (layouts-dir) <>) layouts))))))
     337  (let* ((layouts (or layouts (alist-ref 'layouts (page-vars (current-page))) (default-layouts))))
     338    (fold (cut wrap-with-layout <> <>)
     339          contents
     340          (map (cut make-pathname (layouts-dir) <>) layouts))))
    344341
    345342(define (with-input-from-source-file source-file proc)
     
    399396                                      (lambda ()
    400397                                        (parameterize ((current-page page))
    401                                           (display (wrap-with-layouts (reader)))))))))
     398                                          (display ((around-page-translate)
     399                                                    page
     400                                                    (lambda () (wrap-with-layouts (reader)))))))))))
    402401                     (update-page page writer: writer reader: reader))))
    403402                (else (make-page type: 'static
Note: See TracChangeset for help on using the changeset viewer.