diff --git a/loom/packages/web.scm b/loom/packages/web.scm new file mode 100644 index 0000000..2dca7e7 --- /dev/null +++ b/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+)))