Add Guix euandreh.scm

1 files changed, 58 insertions, 0 deletions

diff --git a/src/xyz/euandreh/packages/euandreh.scm b/src/xyz/euandreh/packages/euandreh.scm
new file mode 100644
index 0000000..205990d
--- /dev/null
+++ b/src/xyz/euandreh/packages/euandreh.scm
@@ -0,0 +1,58 @@
+(define-module (xyz euandreh packages euandreh)
+  #:use-module ((ice-9 textual-ports) #:prefix textual-ports:)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix transformations)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix utils)
+  #:use-module (guix store)
+  #:use-module (guix build-system gnu))
+
+(define (read-from-store-file src name)
+  (run-with-store (open-connection)
+    (gexp->script "read-from-file-in-store"
+      #~(string-trim-both
+         (call-with-input-file
+           #$(file-append src name)
+           textual-ports:get-string-all)))))
+
+(define (euandreh-package name version-prefix version hash)
+  (package
+    (name name)
+    (version version)
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                     "https://git.euandreh.xyz/"
+                     name
+                     "/snapshot/"
+                     name
+                     "-"
+                     version-prefix
+                     version
+                     ".tar.gz"))
+              (hash hash)))
+    (build-system gnu-build-system)
+    ;; This shouldn't be necessary, but
+    ;; the `gnu-build-system' doesn't provide a c99 variable
+    (arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target)))))
+    (synopsis (file-append source "/description"))
+    (description "FIXME")
+    (home-page (string-append "https://" name ".euandreh.xyz"))
+    (license license:agpl3+)))
+
+(define-public remembering
+  (euandreh-package
+   "remembering"
+   ""
+   "cca66c6f53e8bce857faae88368c0b07e6ace9e1"
+   (content-hash "1b90cpnv9p6p1cggiv6kp2q6v6lqhsv2q1zk6djnylfzzc8hszay")))
+
+(define-public autoqemu
+  (euandreh-package
+   "autoqemu"
+   "5c44e0d0fa46ccd35c28e48849fcd5153fe41e5a"
+   ""
+   (content-hash "15zxy86dvahshrghngkb70g6bc0cvz7h547vmh4fkaxgh8zh5ahg")))