README: Convert org to markdown.

1 files changed, 14 insertions, 11 deletions

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 <https://www.gnu.org/licenses/>.
 
 (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