diff --git a/publish.rkt b/publish.rkt index e2b0776..5f65353 100644 --- a/publish.rkt +++ b/publish.rkt @@ -142,8 +142,8 @@ [resources (make-weak-hash)] [posts (map (lambda (lookup/id) (if (hash-has-key? post-lookup lookup/id) - (hash-ref post-lookup lookup/id) - (get-post-data lookup/id resources post-lookup x))) + (append (list lookup/id) (rest (hash-ref post-lookup lookup/id))) + (append (list lookup/id) (rest (get-post-data lookup/id resources post-lookup x))))) (filter non-empty-string? (rest tag-table-row)))] [make-index (read (open-input-file "source/make-index.scm"))] [new-index ((eval make-index ns) (~a "tagged/" tag) posts)]