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

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

Browse source
This commit is contained in:
sorrel 2024-03-01 18:53:59 -05:00
parent 05a594830e
commit 2229a06295
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
publish.rkt
View file

@ -142,8 +142,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)]