From 91906666c9bc2f34d3cab92c8a6a1456c2ec464b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 19 Jul 2021 16:23:46 +0530
Subject: build-aux: Put website building code into a function.

This will be useful when we want build-home-page.el to build both a
website and a gemini capsule.

* build-aux/build-home-page.el (build-website): New function.
* Makefile.am (website/index.html): Call build-website.
---
 Makefile.am                  | 2 +-
 build-aux/build-home-page.el | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Makefile.am b/Makefile.am
index c68e7d0..21e9b8d 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -154,7 +154,7 @@ website: website/index.html website/manual/dev/en
 CLEANFILES += website/index.html
 CLEAN_DIRECTORIES += website/manual
 website/index.html: README.org
-	$(EMACS_GEN)$(EMACS) -Q --script build-aux/build-home-page.el
+	$(EMACS_GEN)$(EMACS) -Q --batch --load build-aux/build-home-page.el --funcall build-website
 
 website/manual/dev/en: doc/ccwl.html
 	rm -rf $@
diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el
index 16134ad..130afee 100644
--- a/build-aux/build-home-page.el
+++ b/build-aux/build-home-page.el
@@ -34,5 +34,6 @@
       org-html-head-include-scripts nil
       org-html-postamble nil)
 
-(with-current-buffer (find-file "README.org")
-  (org-export-to-file 'html "website/index.html"))
+(defun build-website ()
+  (with-current-buffer (find-file "README.org")
+    (org-export-to-file 'html "website/index.html")))
-- 
cgit v1.2.3