Replace PlantUML image generation script with Guix computed-file.

2 files changed, 36 insertions, 4 deletions

diff --git a/.guix/readme-images.scm b/.guix/readme-images.scm
new file mode 100644
index 0000000..5579fd7
--- /dev/null
+++ b/.guix/readme-images.scm
@@ -0,0 +1,36 @@
+;;; pyhegp --- Homomorphic encryption of genotypes and phenotypes
+;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of pyhegp.
+;;;
+;;; pyhegp 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.
+;;;
+;;; pyhegp 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 pyhegp. If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (readme-images)
+  #:use-module ((gnu packages uml) #:select (plantuml))
+  #:use-module (guix gexp))
+
+(define readme-images-gexp
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+
+        (invoke #$(file-append plantuml "/bin/plantuml")
+                #$(local-file "../doc/simple-workflow.uml")
+                #$(local-file "../doc/joint-workflow.uml")
+                "-o" #$output))))
+
+(define-public readme-images
+  (computed-file "pyhegp-readme-images" readme-images-gexp))
+
+readme-images
diff --git a/doc/generate-images.sh b/doc/generate-images.sh
deleted file mode 100755
index 0950519..0000000
--- a/doc/generate-images.sh
+++ /dev/null
@@ -1,4 +0,0 @@
-#! /bin/sh
-
-cat simple-workflow.uml | guix shell plantuml -- plantuml -p > simple-workflow.png
-cat joint-workflow.uml | guix shell plantuml -- plantuml -p > joint-workflow.png