packages.scm: Unfurl package definitions

1 files changed, 51 insertions, 27 deletions

diff --git a/src/xyz/euandreh/packages.scm b/src/xyz/euandreh/packages.scm
index 2ee6f64..7f53a27 100644
--- a/src/xyz/euandreh/packages.scm
+++ b/src/xyz/euandreh/packages.scm
@@ -12,44 +12,68 @@
   #:use-module (guix store)
   #:use-module (guix build-system gnu))
 
-(define (euandreh-package name version-prefix version check-inputs hash)
+(define-public remembering
   (package
-    (name name)
-    (version version)
+    (name "remembering")
+    (version "cca66c6f53e8bce857faae88368c0b07e6ace9e1")
     (source (origin
               (method url-fetch)
               (uri (string-append
-                     "https://git.euandreh.xyz/"
-                     name
-                     "/snapshot/"
-                     name
-                     "-"
-                     version-prefix
+                     "https://git.euandreh.xyz/remembering/snapshot/remembering-"
                      version
                      ".tar.gz"))
-              (hash hash)))
+              (sha256
+                (base32
+                  "1b90cpnv9p6p1cggiv6kp2q6v6lqhsv2q1zk6djnylfzzc8hszay"))))
+    (build-system gnu-build-system)
+    (arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target)))))
+    (synopsis (file-append source "/description"))
+    (description (file-append source "/long-description"))
+    (home-page (string-append "https://" name ".euandreh.xyz"))
+    (license license:agpl3+)))
+
+(define-public autoqemu
+  (package
+    (name "autoqemu")
+    (version "9aff342b2179f990a7c63ee5c7569260a8498709")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                     "https://git.euandreh.xyz/autoqemu/snapshot/autoqemu-"
+                     version
+                     ".tar.gz"))
+              (sha256
+                (base32
+                  "0476xq0gd8qbfwvl4vifs5i0x3yzvgr1ff0fnqxm2irjldpklrkp"))))
+    (build-system gnu-build-system)
+    (arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target)))))
+    (synopsis (file-append source "/description"))
+    (description (file-append source "/long-description"))
+    (home-page (string-append "https://" name ".euandreh.xyz"))
+    (license license:agpl3+)))
+
+(define-public fallible
+  (package
+    (name "fallible")
+    (version "f4771b77695905957e11e06f7219d5c2db9964e2")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                     "https://git.euandreh.xyz/fallible/snapshot/fallible-"
+                     version
+                     ".tar.gz"))
+              (sha256
+                (base32
+                  "1v3vq974y38qv6gmb88x2z03y65ksj3dg9mz075cfw39djify3vb"))))
     (inputs
-      (map (lambda (name)
-             (list name (specification->package name)))
-           (vector->list check-inputs)))
+      `(("valgrind" ,(specification->package "valgrind"))))
     (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 (file-append source "/long-description"))
     (home-page (string-append "https://" name ".euandreh.xyz"))
     (license license:agpl3+)))
 
-(let* ((json-file (canonicalize-path
-                   (string-append (current-source-directory)
-                                  "/../../../paku.json")))
-       (packages (call-with-input-file json-file json->scm)))
-  (map (lambda (package)
-         (euandreh-package
-          (assoc-ref package "name")
-          (assoc-ref package "version-prefix")
-          (assoc-ref package "version")
-          (assoc-ref package "check-inputs")
-          (content-hash (assoc-ref package "tarbal-sha256"))))
-       (vector->list (assoc-ref packages "packages"))))
+(list remembering
+      autoqemu
+      fallible)