diff options
Diffstat (limited to 'haunt/site.scm')
| -rw-r--r-- | haunt/site.scm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/haunt/site.scm b/haunt/site.scm index 4b412bb..1dd41a0 100644 --- a/haunt/site.scm +++ b/haunt/site.scm @@ -28,6 +28,7 @@ #:use-module (srfi srfi-26) #:use-module (ice-9 match) #:use-module (ice-9 regex) + #:use-module (haunt artifact) #:use-module (haunt utils) #:use-module (haunt reader) #:use-module (haunt page) @@ -112,16 +113,20 @@ BUILDERS: A list of procedures for building pages from posts" (delete-file-recursively build-dir) (mkdir build-dir)) (for-each (match-lambda - ((? page? page) - (format #t "writing page '~a'~%" (page-file-name page)) - (write-page page build-dir)) - ((? asset? asset) - (format #t "copying asset '~a' → '~a'~%" - (asset-source asset) - (asset-target asset)) - (install-asset asset build-dir)) - (obj - (error "unrecognized site object: " obj))) + ((? page? page) + (display "warning: page objects are deprecated; switch to serialized-artifact\n") + (format #t "writing page '~a'~%" (page-file-name page)) + (write-page page build-dir)) + ((? asset? asset) + (display "warning: asset objects are deprecated; switch to verbatim-artifact\n") + (format #t "copying asset '~a' → '~a'~%" + (asset-source asset) + (asset-target asset)) + (install-asset asset build-dir)) + ((? artifact? artifact) + (create-artifact artifact build-dir)) + (obj + (error "unrecognized site object: " obj))) (flat-map (cut <> site posts) (site-builders site))))) (define (make-file-filter patterns) |