loom: web: New module for web projects.

* loom/packages/web.scm: New module file.

loom/packages/web.scm

@@ -0,0 +1,35 @@
+(define-module (loom packages web)
+  #:use-module ((guix build-system gnu) #:select (gnu-build-system))
+  #:use-module ((guix gexp) #:select (gexp))
+  #:use-module ((guix git-download) #:select (git-fetch git-file-name git-predicate git-reference))
+  #:use-module ((guix licenses) #:select (gpl3+))
+  #:use-module ((guix packages) #:select (base32 origin package))
+  #:use-module ((loom packages sjw) #:select (sjw)))
+
+(define-public genevee
+  (package
+    (name "genevee")
+    (version "0.1.0")
+    (home-page "https://git.marvid.fr/Tissevert/Genevee")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url home-page)
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0wl0j1x8sydw5ckr4rj67j4waijc1m0ighz86hmc3c3ag954yi74"))))
+    (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))))
+    (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+)))