patch fix href in tagged/tag post-preview in publish script
This commit is contained in:
parent
05a594830e
commit
2229a06295
1 changed files with 2 additions and 2 deletions
|
@ -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)]
|
||||
|
|
Loading…
Reference in a new issue