Refactor the copy-template context
This commit is contained in:
父節點
1cc1b49c00
當前提交
f36b052bc8
|
@ -49,9 +49,8 @@
|
|||
".org")))
|
||||
(copy-template cube-template
|
||||
cube-file
|
||||
(list
|
||||
(cons :title (plist-get props :title))
|
||||
(cons :docs docs)))))
|
||||
`((:title . ,(plist-get props :title))
|
||||
(:docs . ,docs)))))
|
||||
|
||||
|
||||
(defun fg42/build-docs-copy-base (build-dir)
|
||||
|
@ -317,17 +316,15 @@ Not pages."
|
|||
(message "Creating categories")
|
||||
(copy-template (from-root "/docs/site/templates/categories.org")
|
||||
(expand-file-name "site/categories/index.org" build-dir)
|
||||
(list
|
||||
(cons :links
|
||||
(category-org-list))))
|
||||
`((:links . ,(category-org-list))))
|
||||
|
||||
(create-category-pages build-dir)
|
||||
|
||||
(message "Creating tags")
|
||||
(copy-template (from-root "/docs/site/templates/tags.org")
|
||||
(expand-file-name "site/tags/index.org" build-dir)
|
||||
(list
|
||||
(cons :links
|
||||
(tags-org-list))))
|
||||
`((:links . ,(tags-org-list))))
|
||||
|
||||
(create-tag-pages build-dir)
|
||||
|
||||
(setq org-html-preamble #'preamble-fn)
|
||||
|
|
Loading…
Reference in New Issue