36 lines
1.5 KiB
Scheme
36 lines
1.5 KiB
Scheme
(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+)))
|