Apply all the actions before building the docs

This commit is contained in:
Sameer Rahmani 2022-07-03 23:04:31 +01:00
parent 95f7fea814
commit f3288bb30d
2 changed files with 5 additions and 5 deletions

View File

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

View File

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