From f36b052bc8e3d53ffe6bbd88b96a32513dc4557f Mon Sep 17 00:00:00 2001 From: Sameer Rahmani Date: Wed, 29 Jun 2022 17:24:30 +0100 Subject: [PATCH] Refactor the copy-template context --- core/fg42/build/docs.el | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/core/fg42/build/docs.el b/core/fg42/build/docs.el index 5ce8100..d2d3c92 100644 --- a/core/fg42/build/docs.el +++ b/core/fg42/build/docs.el @@ -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)