From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:46895) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1i9bPI-0001AQ-7R for guix-patches@gnu.org; Sun, 15 Sep 2019 16:46:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1i9bPG-0003md-Ny for guix-patches@gnu.org; Sun, 15 Sep 2019 16:46:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:39940) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1i9bPG-0003lv-Ch for guix-patches@gnu.org; Sun, 15 Sep 2019 16:46:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1i9bPG-0004fn-4u for guix-patches@gnu.org; Sun, 15 Sep 2019 16:46:02 -0400 Subject: [bug#37412] [PATCH 1/2] gnu: Add guix-data-service. Resent-Message-ID: From: Alex ter Weele References: <87v9tt1l0h.fsf@cbaines.net> <20190915182127.10525-1-mail@cbaines.net> Date: Sun, 15 Sep 2019 15:45:06 -0500 In-Reply-To: <20190915182127.10525-1-mail@cbaines.net> (Christopher Baines's message of "Sun, 15 Sep 2019 19:21:26 +0100") Message-ID: <87o8zlp9v1.fsf@librem.i-did-not-set--mail-host-address--so-tickle-me> MIME-Version: 1.0 Content-Type: text/plain 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: Christopher Baines Cc: 37412@debbugs.gnu.org Christopher Baines 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")