Refactor the copy-template context

This commit is contained in:
Sameer Rahmani 2022-06-29 17:24:30 +01:00
والد 1cc1b49c00
کامیت f36b052bc8
1فایلهای تغییر یافته به همراه6 افزوده شده و 9 حذف شده

مشاهده پرونده

@ -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)