Abstract away the aliases builder

1 files changed, 1 insertions, 6 deletions

diff --git a/haunt.scm b/haunt.scm
index 77c56af..75dfd24 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -194,8 +194,8 @@ free culture works available under the " ,%cc-by-sa-link " license.")
         (email  . "zerodaysfordays@sdf.lonestar.org"))
       #:readers (list html-reader-prime)
       #:builders (list (blog #:theme jakob-theme #:collections %collections)
+                       (article-aliases %aliases)
                        (atom-feed)
-                       (atom-feeds-by-tag)
                        about-page
                        projects-page
                        (static-directory "css")
@@ -203,8 +203,3 @@ free culture works available under the " ,%cc-by-sa-link " license.")
                        (static-directory "images")
                        (lambda (site posts)
                          (map (lambda (alist)
-                                (let ((alias (car alist))
-                                      (target (cdr alist)))
-                                  (article-alias alias target)))
-                              %aliases))))
-