From 4a9ad582b2ca2dca9b8ae8ad11288a51a6f946e7 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 17 Nov 2025 19:01:36 +0000 Subject: README: Convert org to markdown. --- .guix/run64-website.scm | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) (limited to '.guix') diff --git a/.guix/run64-website.scm b/.guix/run64-website.scm index 8ceb63c..7b85bea 100644 --- a/.guix/run64-website.scm +++ b/.guix/run64-website.scm @@ -17,26 +17,29 @@ ;;; along with run64. If not, see . (define-module (run64-website) - #:use-module ((gnu packages emacs) #:select (emacs-minimal)) + #:use-module ((gnu packages haskell-xyz) #:select (pandoc)) #:use-module (guix gexp) #:use-module (guix packages) #:use-module ((run64-package) #:select (guile-run64))) -(define run64-website-gexp +(define run64-website-home-page-gexp (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) - (copy-recursively #$(package-source guile-run64) - (getcwd)) - (invoke #$(file-append emacs-minimal "/bin/emacs") - "--quick" - "--batch" - "--load" "build-aux/build-home-page.el" - "--funcall" "build-website") - (copy-recursively "website" #$output)))) + (invoke #$(file-append pandoc "/bin/pandoc") + "--standalone" + "--metadata" "title=run64" + "--css=style.css" + (string-append "--output=" #$output) + #$(file-append (package-source guile-run64) + "/README.md"))))) (define-public run64-website - (computed-file "run64-website" run64-website-gexp)) + (file-union "run64-website" + `(("index.html" + ,(computed-file "run64-website-home-page.html" + run64-website-home-page-gexp)) + ("style.css" ,(local-file "../website/style.css"))))) run64-website -- cgit 1.4.1