diff --git a/private/rules.rkt b/private/rules.rkt index 43eb206..1950892 100644 --- a/private/rules.rkt +++ b/private/rules.rkt @@ -148,15 +148,15 @@ (process-hashtags! b instance-url hashtags)) (parse-markdown post-content))) (write `((is-meow #t) - (hashtags ,(set->list hashtags))) out) - (for ([item (in-list post-htmls)]) - (write-string (xexpr->string item) out))))) + (hashtags ,(set->list hashtags)) + (toc ,(toc post-htmls)) + (content ,post-htmls)) out)))) (for/fold ([posts (set)]) ([post-name (in-list (directory-list "src/posts"))] #:when (regexp-match? #px"\\.md$" post-name)) (define post-src (build-path "src/posts" post-name)) (define cache-dst (build-path "cache/posts" - (path-replace-extension (last (explode-path post-src)) ".html"))) + (path-replace-extension (last (explode-path post-src)) ".rktd"))) (set-add posts (make-post-cache-rule post-src cache-dst))))