futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: public-inbox: Update to 1.5.0.

Browse Source 
* gnu/packages/mail.scm (public-inbox): Update to 1.5.0.
This commit is contained in:
Arun Isaac 2020-08-08 18:52:08 +05:30
parent a8139e9785
commit c87d737da6
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 80 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

162
gnu/packages/mail.scm
View File

@ -3294,90 +3294,88 @@ related tools to process winmail.dat files.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public public-inbox (define-public public-inbox
(let ((commit "05a06f3262a2ddbf46adb85169e13ce9127e4524") (package
(revision "0")) (name "public-inbox")
(package (version "1.5.0")
(name "public-inbox") (source
(version (git-version "1.2.0" revision commit)) (origin (method git-fetch)
(source (uri (git-reference
(origin (method git-fetch) (url "https://public-inbox.org")
(uri (git-reference (commit (string-append "v" version))))
(url "https://public-inbox.org") (sha256
(commit commit))) (base32
(sha256 "03zj7shdl3vibs7k5lr673bwcf8j1xx8is3mjz34ca4cdh6p5j2k"))
(base32 (file-name (git-file-name name version))))
"06cclxg46gsls3x19l9s8s9x8gkjghm6gd4jb1v9ng6fds6xi2fg")) (build-system perl-build-system)
(file-name (git-file-name name version)))) (arguments
(build-system perl-build-system) '(#:phases
(arguments (modify-phases %standard-phases
'(#:phases (add-before 'configure 'qualify-paths
(modify-phases %standard-phases (lambda _
(add-before 'configure 'qualify-paths ;; Use absolute paths for 'xapian-compact'.
(lambda _ (let ((xapian-compact (which "xapian-compact")))
;; Use absolute paths for 'xapian-compact'. (substitute* "script/public-inbox-compact"
(let ((xapian-compact (which "xapian-compact"))) (("xapian-compact") xapian-compact)))
(substitute* "script/public-inbox-compact" #t))
(("xapian-compact") xapian-compact))) (add-before 'check 'pre-check
#t)) (lambda _
(add-before 'check 'pre-check (substitute* "t/spawn.t"
(lambda _ (("\\['env'\\]") (string-append "['" (which "env") "']")))
(substitute* "t/spawn.t" (substitute* "t/ds-leak.t"
(("\\['env'\\]") (string-append "['" (which "env") "']"))) (("/bin/sh") (which "sh")))
(substitute* "t/ds-leak.t" (invoke "./certs/create-certs.perl")
(("/bin/sh") (which "sh"))) ;; XXX: This test fails due to zombie process is not reaped by
(invoke "./certs/create-certs.perl") ;; the builder.
;; XXX: This test fails due to zombie process is not reaped by (substitute* "t/httpd-unix.t"
;; the builder. (("^SKIP: \\{") "SKIP: { skip('Guix');"))
(substitute* "t/httpd-unix.t" #t))
(("^SKIP: \\{") "SKIP: { skip('Guix');")) (add-after 'install 'wrap-programs
#t)) (lambda* (#:key inputs outputs #:allow-other-keys)
(add-after 'install 'wrap-programs (let ((out (assoc-ref outputs "out")))
(lambda* (#:key inputs outputs #:allow-other-keys) (for-each
(let ((out (assoc-ref outputs "out"))) (lambda (prog)
(for-each (wrap-program prog
(lambda (prog) ;; Let those scripts find their perl modules.
(wrap-program prog `("PERL5LIB" ":" prefix
;; Let those scripts find their perl modules. (,(string-append out "/lib/perl5/site_perl")
`("PERL5LIB" ":" prefix ,(getenv "PERL5LIB")))
(,(string-append out "/lib/perl5/site_perl") ;; 'git' is invoked in various files of the PublicInbox
,(getenv "PERL5LIB"))) ;; perl module.
;; 'git' is invoked in various files of the PublicInbox `("PATH" ":" prefix
;; perl module. (,(string-append (assoc-ref inputs "git") "/bin")))))
`("PATH" ":" prefix (find-files (string-append out "/bin"))))
(,(string-append (assoc-ref inputs "git") "/bin"))))) #t)))))
(find-files (string-append out "/bin")))) (native-inputs
#t))))) `(("xapian" ,xapian)
(native-inputs ;; For testing.
`(("xapian" ,xapian) ("lsof" ,lsof)
;; For testing. ("openssl" ,openssl)))
("lsof" ,lsof) (inputs
("openssl" ,openssl))) `(("git" ,git)
(inputs ("perl-dbd-sqlite" ,perl-dbd-sqlite)
`(("git" ,git) ("perl-dbi" ,perl-dbi)
("perl-dbd-sqlite" ,perl-dbd-sqlite) ("perl-email-address-xs" ,perl-email-address-xs)
("perl-dbi" ,perl-dbi) ("perl-email-mime-contenttype" ,perl-email-mime-contenttype)
("perl-email-address-xs" ,perl-email-address-xs) ("perl-email-mime" ,perl-email-mime)
("perl-email-mime-contenttype" ,perl-email-mime-contenttype) ("perl-email-simple" ,perl-email-simple)
("perl-email-mime" ,perl-email-mime) ("perl-net-server" ,perl-net-server)
("perl-email-simple" ,perl-email-simple) ("perl-filesys-notify-simple" ,perl-filesys-notify-simple)
("perl-net-server" ,perl-net-server) ("perl-plack-middleware-deflater" ,perl-plack-middleware-deflater)
("perl-filesys-notify-simple" ,perl-filesys-notify-simple) ("perl-plack-middleware-reverseproxy" ,perl-plack-middleware-reverseproxy)
("perl-plack-middleware-deflater" ,perl-plack-middleware-deflater) ("perl-plack" ,perl-plack)
("perl-plack-middleware-reverseproxy" ,perl-plack-middleware-reverseproxy) ("perl-search-xapian" ,perl-search-xapian)
("perl-plack" ,perl-plack) ("perl-timedate" ,perl-timedate)
("perl-search-xapian" ,perl-search-xapian) ("perl-uri-escape" ,perl-uri-escape)
("perl-timedate" ,perl-timedate) ;; For testing.
("perl-uri-escape" ,perl-uri-escape) ("perl-ipc-run" ,perl-ipc-run)
;; For testing. ("perl-xml-feed" ,perl-xml-feed)))
("perl-ipc-run" ,perl-ipc-run) (home-page "https://public-inbox.org/README.html")
("perl-xml-feed" ,perl-xml-feed))) (synopsis "Archive mailing lists in git repositories")
(home-page "https://public-inbox.org/README.html") (description
(synopsis "Archive mailing lists in git repositories") "public-inbox implements the sharing of an email inbox via git to
(description
"public-inbox implements the sharing of an email inbox via git to
complement or replace traditional mailing lists. Readers may read via NNTP, complement or replace traditional mailing lists. Readers may read via NNTP,
Atom feeds or HTML archives.") Atom feeds or HTML archives.")
(license license:agpl3+)))) (license license:agpl3+)))
(define-public sylpheed (define-public sylpheed
(package (package