me/guix
Archived
1
0
Fork 0
Code Activity

gnu: hpcguix-web: Update to 0.1.0.

Browse source 
* gnu/packages/web.scm (hpcguix-web): Update to 0.1.0.
[arguments]: In 'wrap-program' phase, change "/bin/run" to
"/bin/hpcguix-web".
[inputs]: Add BASH-MINIMAL.
* gnu/services/web.scm (hpcguix-web-shepherd-service): Run
"/bin/hpcguix-web".
This commit is contained in:
Ludovic Courtès 2021-07-23 16:08:55 +02:00
parent b48bc8953d
commit 1665bb0cec
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 79 additions and 82 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

157
gnu/packages/web.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de> ;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com> ;;; Copyright © 2018 Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com>
@ -95,6 +95,7 @@
#:use-module (gnu packages apr) #:use-module (gnu packages apr)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
#:use-module (gnu packages bittorrent) #:use-module (gnu packages bittorrent)
#:use-module (gnu packages boost) #:use-module (gnu packages boost)
@ -7693,87 +7694,83 @@ compressed JSON header blocks.
(license license:expat))) (license license:expat)))
(define-public hpcguix-web (define-public hpcguix-web
(let ((commit "9de63562b06b4aef3a3afe5ecb18d3c91e57ee74") (package
(revision "5")) (name "hpcguix-web")
(package (version "0.1.0")
(name "hpcguix-web") (source (origin
(version (git-version "0.0.1" revision commit)) (method git-fetch)
(source (origin (uri (git-reference
(method git-fetch) (url "https://github.com/UMCUGenetics/hpcguix-web")
(uri (git-reference (commit (string-append "v" version))))
(url "https://github.com/UMCUGenetics/hpcguix-web") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32
(sha256 "02lz5k1hhkwfz3nr3lsd69icsz6n0q82z047d3svi09qpxw6y0cj"))))
(base32 (build-system gnu-build-system)
"0wjgj2s7v2cyz6dx24c111rxs99i84sfvxl4ch8brnh02j2606jz")))) (arguments
(build-system gnu-build-system) `(#:modules ((guix build gnu-build-system)
(arguments (guix build utils)
`(#:modules ((guix build gnu-build-system) (srfi srfi-26)
(guix build utils) (ice-9 popen)
(srfi srfi-26) (ice-9 rdelim))
(ice-9 popen) #:phases
(ice-9 rdelim)) (modify-phases %standard-phases
#:phases (add-before 'configure 'set-variables
(modify-phases %standard-phases (lambda _
(add-before 'configure 'set-variables ;; This prevents a few warnings
(lambda _ (setenv "GUILE_AUTO_COMPILE" "0")
;; This prevents a few warnings (setenv "XDG_CACHE_HOME" (getcwd))))
(setenv "GUILE_AUTO_COMPILE" "0") (add-after 'install 'wrap-program
(setenv "XDG_CACHE_HOME" (getcwd)) (lambda* (#:key inputs outputs #:allow-other-keys)
#t)) (let* ((out (assoc-ref outputs "out"))
(add-after 'install 'wrap-program (guix (assoc-ref inputs "guix"))
(lambda* (#:key inputs outputs #:allow-other-keys) (guile (assoc-ref inputs "guile"))
(let* ((out (assoc-ref outputs "out")) (gcrypt (assoc-ref inputs "guile-gcrypt"))
(guix (assoc-ref inputs "guix")) (git (assoc-ref inputs "guile-git"))
(guile (assoc-ref inputs "guile")) (bs (assoc-ref inputs "guile-bytestructures"))
(gcrypt (assoc-ref inputs "guile-gcrypt")) (json (assoc-ref inputs "guile-json"))
(git (assoc-ref inputs "guile-git")) (guile-cm (assoc-ref inputs
(bs (assoc-ref inputs "guile-bytestructures")) "guile-commonmark"))
(json (assoc-ref inputs "guile-json")) (deps (list guile gcrypt git bs guile-cm guix json))
(guile-cm (assoc-ref inputs (effective
"guile-commonmark")) (read-line
(deps (list guile gcrypt git bs guile-cm guix json)) (open-pipe* OPEN_READ
(effective (string-append guile "/bin/guile")
(read-line "-c" "(display (effective-version))")))
(open-pipe* OPEN_READ (path (string-join
(string-append guile "/bin/guile") (map (cut string-append <>
"-c" "(display (effective-version))"))) "/share/guile/site/"
(path (string-join effective)
(map (cut string-append <> deps)
"/share/guile/site/" ":"))
effective) (gopath (string-join
deps) (map (cut string-append <>
":")) "/lib/guile/" effective
(gopath (string-join "/site-ccache")
(map (cut string-append <> deps)
"/lib/guile/" effective ":")))
"/site-ccache") (wrap-program (string-append out "/bin/hpcguix-web")
deps) `("GUILE_LOAD_PATH" ":" prefix (,path))
":"))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,gopath)))))))))
(wrap-program (string-append out "/bin/run") (native-inputs
`("GUILE_LOAD_PATH" ":" prefix (,path)) `(("autoconf" ,autoconf)
`("GUILE_LOAD_COMPILED_PATH" ":" prefix (,gopath))) ("automake" ,automake)
("uglify-js" ,uglify-js)
#t)))))) ("pkg-config" ,pkg-config)))
(native-inputs (inputs
`(("autoconf" ,autoconf) `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
("automake" ,automake) ("guix" ,guix)
("uglify-js" ,uglify-js) ("bash-minimal" ,bash-minimal))) ;for 'wrap-program'
("pkg-config" ,pkg-config))) (propagated-inputs
(inputs `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
`(("guile" ,@(assoc-ref (package-native-inputs guix) "guile")) ("guile-commonmark" ,guile-commonmark)
("guix" ,guix))) ("guile-json" ,guile-json-4)))
(propagated-inputs (home-page "https://github.com/UMCUGenetics/hpcguix-web")
`(("guile" ,@(assoc-ref (package-native-inputs guix) "guile")) (synopsis "Web interface for cluster deployments of Guix")
("guile-commonmark" ,guile-commonmark) (description "Hpcguix-web provides a web interface to the list of packages
("guile-json" ,guile-json-4)))
(home-page "https://github.com/UMCUGenetics/hpcguix-web")
(synopsis "Web interface for cluster deployments of Guix")
(description "Hpcguix-web provides a web interface to the list of packages
provided by Guix. The list of packages is searchable and provides provided by Guix. The list of packages is searchable and provides
instructions on how to use Guix in a shared HPC environment.") instructions on how to use Guix in a shared HPC environment.")
(license license:agpl3+)))) (license license:agpl3+)))
(define-public httrack (define-public httrack
(package (package

4
gnu/services/web.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Nikita <nikita@n0.is> ;;; Copyright © 2016 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2016, 2017, 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net> ;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
@ -1163,7 +1163,7 @@ a webserver.")
(provision '(hpcguix-web)) (provision '(hpcguix-web))
(requirement '(networking)) (requirement '(networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$(file-append hpcguix-web "/bin/run") (list #$(file-append hpcguix-web "/bin/hpcguix-web")
(string-append "--config=" (string-append "--config="
#$(scheme-file "hpcguix-web.scm" specs))) #$(scheme-file "hpcguix-web.scm" specs)))
#:user "hpcguix-web" #:user "hpcguix-web"