[bug#31621] [PATCH 1/3] gnu: Add hpcguix-web.

[Nils Gillmann]

(Okay, so my email application seems to put your last name
first. Sorry for the confusion in the first email I've sent)

Rouby Pierre-Antoine transcribed 4.4K bytes:
> * gnu/package/web.scm (hpcguix-web): New variable.
> ---
>  gnu/packages/web.scm | 80 ++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 80 insertions(+)
> 
> diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
> index 9f1609591..2c69490f8 100644
> --- a/gnu/packages/web.scm
> +++ b/gnu/packages/web.scm
> @@ -25,6 +25,7 @@
>  ;;; Copyright © 2017 Pierre Langlois <address@hidden>
>  ;;; Copyright © 2017 Rutger Helling <address@hidden>
>  ;;; Copyright © 2018 Julien Lepiller <address@hidden>
> +;;; Copyright © 2018 Pierre-Antoine Rouby <address@hidden>
>  ;;;
>  ;;; This file is part of GNU Guix.
>  ;;;
> @@ -82,6 +83,7 @@
>    #:use-module (gnu packages gnuzilla)
>    #:use-module (gnu packages gperf)
>    #:use-module (gnu packages gtk)
> +  #:use-module (gnu packages guile)
>    #:use-module (gnu packages java)
>    #:use-module (gnu packages javascript)
>    #:use-module (gnu packages jemalloc)
> @@ -96,6 +98,7 @@
>    #:use-module (gnu packages ncurses)
>    #:use-module (gnu packages openstack)
>    #:use-module (gnu packages base)
> +  #:use-module (gnu packages package-management)
>    #:use-module (gnu packages perl)
>    #:use-module (gnu packages perl-check)
>    #:use-module (gnu packages python)
> @@ -6428,3 +6431,80 @@ compressed JSON header blocks.
>  @item @command{inflatehd} converts such compressed headers back to JSON 
> pairs.
>  @end itemize\n")
>      (license l:expat)))
> +
> +(define-public hpcguix-web
> +  (package
> +  (name "hpcguix-web")
> +  (version "0.0.1")
> +  (source (origin
> +            (method git-fetch)
> +            (uri (git-reference
> +                  (url "https://github.com/UMCUGenetics/hpcguix-web.git";)
> +                  (commit "3e3b9a3a406ee2dcd10c96cbedcc16ea378e8e8f")))

Unless git-file-name is implicit now, I would add this to the source.
You can grep the source directory to find examples. It is relatively
new, so not many packages are using it.

> +            (sha256
> +             (base32
> +              "01888byi9mh7d3adcmwhmg44kg98g92r44ilc4wd7an66mjnxpry"))))
> +  (build-system gnu-build-system)
> +  (arguments
> +   `(#:modules ((guix build gnu-build-system)
> +                (guix build utils)
> +                (srfi srfi-26)
> +                (ice-9 popen)
> +                (ice-9 rdelim))
> +
> +     #:phases
> +     (modify-phases %standard-phases
> +       (add-before 'configure 'autoconf
> +         (lambda _
> +           (setenv "GUILE_AUTO_COMPILE" "0")
> +           (setenv "XDG_CACHE_HOME" (getcwd))
> +           (invoke "autoreconf" "-vif")))
> +       (add-after 'install 'wrap-program
> +         (lambda* (#:key inputs outputs #:allow-other-keys)
> +           (let* ((out      (assoc-ref outputs "out"))
> +                  (guix     (assoc-ref inputs "guix"))
> +                  (guile    (assoc-ref inputs "guile"))
> +                  (json     (assoc-ref inputs "guile-json"))
> +                  (guile-cm (assoc-ref inputs
> +                                       "guile-commonmark"))
> +                  (deps (list guile guile-cm guix json))
> +                  (effective
> +                   (read-line
> +                    (open-pipe* OPEN_READ
> +                                (string-append guile "/bin/guile")
> +                                "-c" "(display (effective-version))")))
> +                  (path   (string-join
> +                           (map (cut string-append <>
> +                                     "/share/guile/site/"
> +                                     effective)
> +                                deps)
> +                           ":"))
> +                  (gopath (string-join
> +                           (map (cut string-append <>
> +                                     "/lib/guile/" effective
> +                                     "/site-ccache")
> +                                deps)
> +                           ":")))
> +             (wrap-program (string-append out "/bin/run")
> +                            `("GUILE_LOAD_PATH" ":" prefix (,path))
> +                            `("GUILE_LOAD_COMPILED_PATH" ":" prefix 
> (,gopath)))
> +
> +             #t))))))
> +  (native-inputs
> +   `(("autoconf" ,autoconf)
> +     ("automake" ,automake)
> +     ("uglify-js" ,uglify-js)
> +     ("pkg-config" ,pkg-config)))
> +  (inputs
> +   `(("guix" ,guix)))
> +  (propagated-inputs
> +   `(("guile" ,guile-2.2)
> +     ("guile-commonmark" ,guile-commonmark)
> +     ("guile-json" ,guile-json)))
> +  (home-page "https://github.com/UMCUGenetics/hpcguix-web";)
> +  (synopsis "Web interface for cluster deployments of Guix")
> +  (description "This package provides a web interface to the list of

Nitpick: Replace the start ("This package") with the name of the
application. As far as I remember lint should complain here aswell.

> +packages provided by Guix.  The list of packages is searchable and
> +provides instructions on how to use Guix in a shared HPC
> +environment.")
> +    (license l:agpl3+)))
> -- 
> 2.17.0
> 
> 
> 
>