Use the new `artifact' API instead of `make-page'

1 files changed, 13 insertions, 13 deletions

diff --git a/haunt/jakob/builder/blog.scm b/haunt/jakob/builder/blog.scm
index 0df5f50..e03c3e2 100644
--- a/haunt/jakob/builder/blog.scm
+++ b/haunt/jakob/builder/blog.scm
@@ -15,8 +15,8 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (jakob builder blog)
+  #:use-module (haunt artifact)
   #:use-module (haunt html)
-  #:use-module (haunt page)
   #:use-module (haunt post)
   #:use-module (haunt utils)
   #:use-module (ice-9 format)
@@ -135,14 +135,14 @@
   "Return a Haunt page for POST."
   (define meta-tags (call-with-input-string (post-ref post 'meta-tags) read))
   (define scripts (call-with-input-string (post-ref post 'scripts) read))
-  (make-page (post-uri post)
-             (theme #:title (post-ref post 'title)
-                    #:description (description-from-post post)
-                    #:keywords (post-ref post 'tags)
-                    #:meta (if (not (eof-object? meta-tags)) meta-tags '())
-                    #:scripts (if (not (eof-object? scripts)) scripts '())
-                    #:content (render-article post))
-             sxml->html))
+  (serialized-artifact (post-uri post)
+                       (theme #:title (post-ref post 'title)
+                              #:description (description-from-post post)
+                              #:keywords (post-ref post 'tags)
+                              #:meta (if (not (eof-object? meta-tags)) meta-tags '())
+                              #:scripts (if (not (eof-object? scripts)) scripts '())
+                              #:content (render-article post))
+                       sxml->html))
 
 
 ;;;
@@ -173,10 +173,10 @@ only the posts tagged with that tag."
                     (hyperlink (tag-uri %tag-prefix tag)
                                `(li ,(format #f "~a (~a)" tag count)))))
                  (count-tags posts (cut post-ref <> 'tags))))))
-  (make-page "tag.html"
-             (theme #:title "All Tags"
-                    #:content content)
-             sxml->html))
+  (serialized-artifact "tag.html"
+                       (theme #:title "All Tags"
+                              #:content content)
+                       sxml->html))
 
 
 ;;;