From 2229a06295f91dfedeb80ad7d2d7b0b8be61b348 Mon Sep 17 00:00:00 2001 From: sorrel Date: Fri, 1 Mar 2024 18:53:59 -0500 Subject: [PATCH] patch fix href in tagged/tag post-preview in publish script --- publish.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)]