[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#37412] [PATCH 1/2] gnu: Add guix-data-service.
From: |
Alex ter Weele |
Subject: |
[bug#37412] [PATCH 1/2] gnu: Add guix-data-service. |
Date: |
Sun, 15 Sep 2019 15:45:06 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.2 (gnu/linux) |
Christopher Baines <address@hidden> writes:
> * gnu/packages/web.scm (guix-data-service): New variable.
> ---
> gnu/packages/web.scm | 83 ++++++++++++++++++++++++++++++++++++++++++++
> 1 file changed, 83 insertions(+)
>
> diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
> index 39475bd6a8..30adc75aa1 100644
> --- a/gnu/packages/web.scm
> +++ b/gnu/packages/web.scm
> @@ -3973,6 +3973,89 @@ CDF, Atom 0.3, and Atom 1.0 feeds.")
> (define-public python2-feedparser
> (package-with-python2 python-feedparser))
>
> +(define-public guix-data-service
> + (let ((commit "6a9f11fb94fbfd969396dd4d9f768a0c9ec67734")
> + (revision "1"))
> + (package
> + (name "guix-data-service")
> + (version (string-append "0.0.1-" revision "." (string-take commit 7)))
> + (source (origin
> + (method git-fetch)
> + (uri (git-reference
> + (url
> "https://git.savannah.gnu.org/git/guix/data-service.git")
> + (commit commit)))
> + (file-name (git-file-name name version))
> + (sha256
> + (base32
> + "08kfi74dp8h1i03gfmjqfv07ff7m93psnh6xmrgwzr0ja5cdqjri"))))
> + (build-system gnu-build-system)
> + (arguments
> + '(#:tests? #f ; TODO Tests require PostgreSQL
> + #:modules ((guix build utils)
> + (guix build gnu-build-system)
> + (ice-9 rdelim)
> + (ice-9 popen))
> + #:phases
> + (modify-phases %standard-phases
> + (add-after 'install 'wrap-executable
> + (lambda* (#:key inputs outputs #:allow-other-keys)
> + (let* ((out (assoc-ref outputs "out"))
> + (bin (string-append out "/bin"))
> + (guile (assoc-ref inputs "guile"))
> + (guile-effective-version
> + (read-line
> + (open-pipe* OPEN_READ
> + (string-append guile "/bin/guile")
> + "-c" "(display (effective-version))")))
> + (scm (string-append out "/share/guile/site/"
> + guile-effective-version))
> + (go (string-append out "/lib/guile/"
> + guile-effective-version
> + "/site-ccache")))
> + (for-each
> + (lambda (file)
> + (wrap-program (string-append bin "/" file)
> + `("PATH" ":" prefix
> + (,bin))
> + `("GUILE_LOAD_PATH" ":" prefix
> + (,scm ,(getenv "GUILE_LOAD_PATH")))
> + `("GUILE_LOAD_COMPILED_PATH" ":" prefix
> + (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))
> + '("guix-data-service"
> + "guix-data-service-process-branch-updated-email"
> + "guix-data-service-process-job"
> + "guix-data-service-process-jobs"
> + "guix-data-service-query-build-servers"))
> + #t))))))
> + (inputs
> + `(("guile" ,guile-2.2)
> + ("guix" ,guix)
> + ("guile-fibers" ,guile-fibers)
> + ("guile-json" ,guile-json-3)
> + ("guile-email" ,guile-email)
> + ("guile-squee" ,guile-squee)
> + ("postgresql" ,postgresql)
> + ("sqitch" ,sqitch)))
> + (native-inputs
> + `(("autoconf" ,autoconf)
> + ("automake" ,automake)
> + ("pkg-config" ,pkg-config)))
> + (native-search-paths
> + ;; guile-git requires this to be set
> + (list (search-path-specification
> + (variable "GIT_SSL_CAINFO")
> + (file-type 'regular)
> + (separator #f)
> + (files '("etc/ssl/certs/ca-certificates.crt")))))
> + (synopsis "Store and provide data about GNU Guix")
> + (description
> + "The Guix Data Service stores data about GNU Guix, and provides this
> +through a web interface. It supports listening to the guix-commits mailing
> +list to find out about new revisions, then loads the data from these in to a
> +PostgreSQL database.")
> + (home-page "https://data.guix.gnu.org/")
I found that only http://data.guix.gnu.org/ works.
>
> + (license license:agpl3+)))) + (define-public gumbo-parser (package
> (name "gumbo-parser")
[bug#37412] [PATCH 1/2] gnu: Add guix-data-service., Ludovic Courtès, 2019/09/16
[bug#37412] [PATCH 1/2] gnu: Add guix-data-service., Christopher Baines, 2019/09/22