From 88bef35a83e0fc0e9cb51e5a16ac0c328b8e0a53 Mon Sep 17 00:00:00 2001 From: sorrel Date: Thu, 8 Feb 2024 23:41:11 -0500 Subject: [PATCH] fix href in tagged/tag post-preview in publish script --- publish.rkt | 4 ++-- source/make-index.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/publish.rkt b/publish.rkt index a562040..21d4779 100644 --- a/publish.rkt +++ b/publish.rkt @@ -144,8 +144,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)] diff --git a/source/make-index.scm b/source/make-index.scm index beba09b..ffa1110 100644 --- a/source/make-index.scm +++ b/source/make-index.scm @@ -43,7 +43,7 @@ (h4 ,(second post)) (p ,(third post)) ;; tagged posts will insert href instead of id - (a ((href ,(first post))) + (a ((href ,(~a "/" (first post)))) ,(~a "go! to " (second post) " page")))))