Add a guix package

guix.scm

@@ -0,0 +1,28 @@
+(use-modules ((guix build-system gnu) #:select (gnu-build-system))
+             ((guix gexp) #:select (gexp local-file))
+             ((guix git-download) #:select (git-predicate))
+             ((guix licenses) #:select (gpl3+))
+             ((guix packages) #:select (package))
+             ((loom packages sjw) #:select (sjw)))
+
+(let ((%source-dir (dirname (current-filename))))
+  (package
+    (name "genevee")
+    (version "0.1.0")
+    (source (local-file %source-dir
+                        #:recursive? #t
+                        #:select? (git-predicate %source-dir)))
+    (build-system gnu-build-system)
+    (native-inputs (list sjw))
+    (arguments
+     `(#:make-flags ,#~(list (string-append "PREFIX=" #$output))
+       #:phases (modify-phases %standard-phases
+                  (delete 'configure)
+                  (delete 'check))))
+    (home-page "https://git.marvid.fr/Tissevert/Genevee")
+    (synopsis "Merovingian king/queen name generator")
+    (description
+     "Genevee is a very simple web application meant to demonstrate web
+development with SJW and guix.  It also generates fun ancient-sounding names
+based on frequent morphemes found in real merovingian names.")
+    (license gpl3+)))