From patchwork Sat Apr 6 00:50:05 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?b?5a6L5paH5q2m?= X-Patchwork-Id: 3227 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id D6A9B16D60; Sat, 6 Apr 2019 01:51:18 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,UNPARSEABLE_RELAY, URIBL_BLOCKED autolearn=ham autolearn_force=no version=3.4.0 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id CEF6816D36 for ; Sat, 6 Apr 2019 01:51:17 +0100 (BST) Received: from localhost ([127.0.0.1]:48823 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hCZYD-000267-E0 for patchwork@mira.cbaines.net; Fri, 05 Apr 2019 20:51:17 -0400 Received: from eggs.gnu.org ([209.51.188.92]:44766) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hCZYA-00023j-Da for guix-patches@gnu.org; Fri, 05 Apr 2019 20:51:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hCZY4-0005ku-Je for guix-patches@gnu.org; Fri, 05 Apr 2019 20:51:12 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:32871) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hCZY1-0005hO-R4 for guix-patches@gnu.org; Fri, 05 Apr 2019 20:51:06 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hCZY1-0000cv-PE for guix-patches@gnu.org; Fri, 05 Apr 2019 20:51:05 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#35142] [PATCH 8/8] gnu: Add public-inbox. Resent-From: =?utf-8?b?5a6L5paH5q2m?= Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 06 Apr 2019 00:51:05 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 35142 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 35142@debbugs.gnu.org Received: via spool by 35142-submit@debbugs.gnu.org id=B35142.15545118342321 (code B ref 35142); Sat, 06 Apr 2019 00:51:05 +0000 Received: (at 35142) by debbugs.gnu.org; 6 Apr 2019 00:50:34 +0000 Received: from localhost ([127.0.0.1]:46408 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hCZXW-0000bI-8t for submit@debbugs.gnu.org; Fri, 05 Apr 2019 20:50:34 -0400 Received: from rezeros.cc ([45.76.207.221]:47316) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1hCZXT-0000a4-07 for 35142@debbugs.gnu.org; Fri, 05 Apr 2019 20:50:31 -0400 Received: from localhost (117.173.71.11 [117.173.71.11]) by rezeros.cc (OpenSMTPD) with ESMTPSA id 66812dc4 (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256:NO); Sat, 6 Apr 2019 00:50:24 +0000 (UTC) Received: from localhost (localhost [local]) by localhost (OpenSMTPD) with ESMTPA id eb93758f; Sat, 6 Apr 2019 00:50:14 +0000 (UTC) From: =?utf-8?b?5a6L5paH5q2m?= Date: Sat, 6 Apr 2019 08:50:05 +0800 Message-Id: <20190406005005.3893-8-iyzsong@member.fsf.org> X-Mailer: git-send-email 2.19.2 In-Reply-To: <20190406005005.3893-1-iyzsong@member.fsf.org> References: <20190406005005.3893-1-iyzsong@member.fsf.org> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: =?utf-8?b?5a6L5paH5q2m?= Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * gnu/packages/mail.scm (public-inbox): New variable. --- gnu/packages/mail.scm | 77 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 77 insertions(+) diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 97cb78eaea..f1390fd4fb 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -95,6 +95,7 @@ #:use-module (gnu packages onc-rpc) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) + #:use-module (gnu packages perl-web) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-web) @@ -110,6 +111,7 @@ #:use-module (gnu packages texinfo) #:use-module (gnu packages time) #:use-module (gnu packages tls) + #:use-module (gnu packages version-control) #:use-module (gnu packages w3m) #:use-module (gnu packages web) #:use-module (gnu packages webkit) @@ -2888,3 +2890,78 @@ replacement for the @code{urlview} program.") (description "This package provides a TNEF stream reader library and related tools to process winmail.dat files.") (license gpl2+))) + +(define-public public-inbox + (let ((commit "3cf66514aea9e958999973b9f104473b6d800fbe") + (revision "0")) + (package + (name "public-inbox") + (version (git-version "1.0.0" revision commit)) + (source + (origin (method git-fetch) + (uri (git-reference + (url "https://public-inbox.org") + (commit commit))) + (sha256 + (base32 + "1sxycwlm2n6p544gn9f0vf3xs6gz8vdswdhs2ha6fka8mgabvmdh")) + (file-name (git-file-name name version)))) + (build-system perl-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-before 'configure 'qualify-paths + (lambda _ + ;; Use absolute paths for 'git' and 'xapian-compact'. + (let ((git (which "git")) + (xapian-compact (which "xapian-compact"))) + (substitute* "script/public-inbox-compact" + (("xapian-compact") xapian-compact)) + (substitute* "script/public-inbox-init" + (("git init") (string-append git " init")) + (("qw/git config/") (string-append "qw(" git " config)")))) + #t)) + (add-before 'check 'pre-check + (lambda _ + (substitute* "t/spawn.t" + (("\\['env'\\]") (string-append "['" (which "env") "']"))) + #t)) + (add-after 'install 'wrap-programs + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (for-each + (lambda (prog) + (wrap-program prog + `("PERL5LIB" ":" prefix + (,(string-append out "/lib/perl5/site_perl") + ,(getenv "PERL5LIB"))))) + (find-files (string-append out "/bin")))) + #t))))) + (native-inputs + `(("git" ,git) + ("xapian" ,xapian))) + (inputs + `(("perl-danga-socket" ,perl-danga-socket) + ("perl-dbd-sqlite" ,perl-dbd-sqlite) + ("perl-dbi" ,perl-dbi) + ("perl-email-address-xs" ,perl-email-address-xs) + ("perl-email-mime-contenttype" ,perl-email-mime-contenttype) + ("perl-email-mime" ,perl-email-mime) + ("perl-email-simple" ,perl-email-simple) + ("perl-filesys-notify-simple" ,perl-filesys-notify-simple) + ("perl-plack-middleware-deflater" ,perl-plack-middleware-deflater) + ("perl-plack-middleware-reverseproxy" ,perl-plack-middleware-reverseproxy) + ("perl-plack" ,perl-plack) + ("perl-search-xapian" ,perl-search-xapian) + ("perl-timedate" ,perl-timedate) + ("perl-uri-escape" ,perl-uri-escape) + ;; For testing. + ("perl-ipc-run" ,perl-ipc-run) + ("perl-xml-feed" ,perl-xml-feed))) + (home-page "https://public-inbox.org/README.html") + (synopsis "Archive mailing lists in git repositories") + (description + "public-inbox implements the sharing of an email inbox via git to +complement or replace traditional mailing lists. Readers may read via NNTP, +Atom feeds or HTML archives.") + (license agpl3+))))