unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#31621] [PATCH 1/3] gnu: Add hpcguix-web.
@ 2018-05-28 13:24 Rouby Pierre-Antoine
  2018-05-28 13:28 ` [bug#31621] [PATCH 2/3] gnu: service: " Rouby Pierre-Antoine
                   ` (3 more replies)
  0 siblings, 4 replies; 13+ messages in thread
From: Rouby Pierre-Antoine @ 2018-05-28 13:24 UTC (permalink / raw)
  To: 31621; +Cc: Rouby Pierre-Antoine

* 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 <pierre.langlois@gmx.com>
 ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
 ;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
+;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
 ;;;
 ;;; 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")))
+            (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
+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

^ permalink raw reply related	[flat|nested] 13+ messages in thread

end of thread, other threads:[~2018-06-01  8:06 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-05-28 13:24 [bug#31621] [PATCH 1/3] gnu: Add hpcguix-web Rouby Pierre-Antoine
2018-05-28 13:28 ` [bug#31621] [PATCH 2/3] gnu: service: " Rouby Pierre-Antoine
2018-05-29  8:31   ` Rouby Pierre-Antoine
2018-05-29  8:52   ` Nils Gillmann
2018-05-30  7:25     ` Pierre-Antoine Rouby
2018-05-30  9:47     ` Rouby Pierre-Antoine
2018-05-31 16:12       ` Ludovic Courtès
2018-05-28 13:28 ` [bug#31621] [PATCH 3/3] gnu: tests: " Rouby Pierre-Antoine
2018-05-29  8:57 ` [bug#31621] [PATCH 1/3] gnu: " Nils Gillmann
2018-05-30  9:41   ` Rouby Pierre-Antoine
2018-05-31 16:09     ` Ludovic Courtès
2018-05-31 22:38       ` Roel Janssen
2018-06-01  8:05 ` bug#31621: [PATCH 2/3] gnu: service: " Ludovic Courtès

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).