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