guix: Move website G-expressions to separate file.

It is easier to build and test the website if it is in a separate
file.

1 files changed, 41 insertions, 0 deletions

diff --git a/.guix/run64-website.scm b/.guix/run64-website.scm
new file mode 100644
index 0000000..880949a
--- /dev/null
+++ b/.guix/run64-website.scm
@@ -0,0 +1,41 @@
+;;; run64 --- SRFI-64 test runner
+;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of run64.
+;;;
+;;; run64 is free software: you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; run64 is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with run64.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (run64-website)
+  #:use-module ((gnu packages base) #:select (gnu-make))
+  #:use-module ((gnu packages emacs) #:select (emacs-minimal))
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module ((run64-package) #:select (run64)))
+
+(define run64-website-gexp
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+
+        (copy-recursively #$(package-source run64)
+                          (getcwd))
+        (invoke #$(file-append gnu-make "/bin/make")
+                "website"
+                (string-append "EMACS=" #$(file-append emacs-minimal "/bin/emacs")))
+        (copy-recursively "website" #$output))))
+
+(define-public run64-website
+  (computed-file "run64-website" run64-website-gexp))
+
+run64-website