Apply all the actions before building the docs

这个提交包含在:
Sameer Rahmani 2022-07-03 23:04:31 +01:00
父节点 95f7fea814
当前提交 f3288bb30d
共有 2 个文件被更改,包括 5 次插入5 次删除

查看文件

@ -57,7 +57,7 @@ PARAMS:
(defproject FG42
project-root (nth 2 command-line-args-left)
fg42/build-docs-actions '(fg42/build-prepare-docs))
docs-actions '(fg42/build-prepare-docs))
(defun print-help (command)

查看文件

@ -276,10 +276,10 @@ Not pages."
(stage1-dir (expand-file-name "site" build-dir))
(final-dir (expand-file-name "site-build" build-dir)))
(mapc (lambda (f) (apply f build-dir base-url)) fg42/build-docs-actions)
;; Create org files for the cubes
(fg42/build-prepare-docs build-dir base-url)
;; Apply all the actions
(mapcar (lambda (f)
(funcall f build-dir base-url))
fg42/build-docs-actions)
;; Copy the assets
(copy-directory (from-root "/docs/site/assets")