Apply all the actions before building the docs
This commit is contained in:
parent
95f7fea814
commit
f3288bb30d
2
build.el
2
build.el
|
@ -57,7 +57,7 @@ PARAMS:
|
||||||
|
|
||||||
(defproject FG42
|
(defproject FG42
|
||||||
project-root (nth 2 command-line-args-left)
|
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)
|
(defun print-help (command)
|
||||||
|
|
|
@ -276,10 +276,10 @@ Not pages."
|
||||||
(stage1-dir (expand-file-name "site" build-dir))
|
(stage1-dir (expand-file-name "site" build-dir))
|
||||||
(final-dir (expand-file-name "site-build" build-dir)))
|
(final-dir (expand-file-name "site-build" build-dir)))
|
||||||
|
|
||||||
(mapc (lambda (f) (apply f build-dir base-url)) fg42/build-docs-actions)
|
;; Apply all the actions
|
||||||
|
(mapcar (lambda (f)
|
||||||
;; Create org files for the cubes
|
(funcall f build-dir base-url))
|
||||||
(fg42/build-prepare-docs build-dir base-url)
|
fg42/build-docs-actions)
|
||||||
|
|
||||||
;; Copy the assets
|
;; Copy the assets
|
||||||
(copy-directory (from-root "/docs/site/assets")
|
(copy-directory (from-root "/docs/site/assets")
|
||||||
|
|
Loading…
Reference in New Issue