(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+)))