From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:36695) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fNaRH-0005J6-8p for guix-patches@gnu.org; Tue, 29 May 2018 04:57:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fNaRE-0004sY-5A for guix-patches@gnu.org; Tue, 29 May 2018 04:57:07 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:45235) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fNaRD-0004rk-VP for guix-patches@gnu.org; Tue, 29 May 2018 04:57:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fNaRB-0000yB-V8 for guix-patches@gnu.org; Tue, 29 May 2018 04:57:03 -0400 Subject: [bug#31621] [PATCH 1/3] gnu: Add hpcguix-web. Resent-Message-ID: Date: Tue, 29 May 2018 08:57:17 +0000 From: Nils Gillmann Message-ID: <20180529085717.p6nakfkivswoh5kg@abyayala> References: <20180528132450.12442-1-pierre-antoine.rouby@inria.fr> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: 8bit In-Reply-To: <20180528132450.12442-1-pierre-antoine.rouby@inria.fr> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Rouby Pierre-Antoine Cc: 31621@debbugs.gnu.org (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 > ;;; Copyright © 2017 Rutger Helling > ;;; Copyright © 2018 Julien Lepiller > +;;; Copyright © 2018 Pierre-Antoine Rouby > ;;; > ;;; 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 > > > >