Refactor the copy-template context

Este commit está contenido en:
Sameer Rahmani 2022-06-29 17:24:30 +01:00
padre 1cc1b49c00
commit f36b052bc8
Se han modificado 1 ficheros con 6 adiciones y 9 borrados

Ver fichero

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