oxaliq/oxaliq.net
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix href in tagged/tag post-preview in publish script

Browse source
This commit is contained in:
sorrel 2024-02-08 23:41:11 -05:00
parent 0e92c0c3b4
commit 068322b282
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
publish.rkt
View file

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

2
source/make-index.scm
View file

@ -43,7 +43,7 @@
(h4 ,(second post)) (h4 ,(second post))
(p ,(third post)) (p ,(third post))
;; tagged posts will insert href instead of id ;; tagged posts will insert href instead of id
(a ((href ,(first post))) (a ((href ,(~a "/" (first post))))
,(~a "go! to " (second post) " page"))))) ,(~a "go! to " (second post) " page")))))