;;; Copyright © 2016, 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com>
-;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;;
;;; This file is part of GNU Guix.
;;;
(define-public fetchmail
(package
(name "fetchmail")
- (version "6.3.26")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://sourceforge/fetchmail/branch_6.3/fetchmail-"
- version ".tar.xz"))
- (sha256
- (base32
- "0l78ayvi9dm8hd190gl139cs2xqsrf7r9ncilslw20mgvd6cbd3r"))))
+ (version "6.4.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/fetchmail/branch_"
+ (version-major+minor version) "/"
+ "fetchmail-" version ".tar.xz"))
+ (sha256
+ (base32 "1859wvfc9fq72mwp4njdiy0x89hnddlfr3nix71qqglcs0fz2crz"))))
(build-system gnu-build-system)
(inputs
`(("openssl" ,openssl)))
(arguments
- `(#:configure-flags (list (string-append "--with-ssl="
- (assoc-ref %build-inputs "openssl")))))
- (home-page "http://www.fetchmail.info/")
+ `(#:configure-flags
+ (list (string-append "--with-ssl="
+ (assoc-ref %build-inputs "openssl")))
+ #:phases
+ (modify-phases %standard-phases
+ (add-before 'check 'create-test-environment
+ (lambda _
+ ;; Fix ‘Cannot find absolute path for user's home directory’.
+ (setenv "HOME" "/tmp")
+ #t)))))
+ (home-page "https://www.fetchmail.info/")
(synopsis "Remote-mail retrieval and forwarding utility")
(description
"Fetchmail is a full-featured, robust, well-documented remote-mail
(define-public mutt
(package
(name "mutt")
- (version "1.12.2")
+ (version "1.13.2")
(source (origin
(method url-fetch)
- (uri (string-append "https://bitbucket.org/mutt/mutt/downloads/"
- "mutt-" version ".tar.gz"))
+ (uri (list
+ (string-append "ftp://ftp.mutt.org/pub/mutt/mutt-"
+ version ".tar.gz")
+ (string-append "https://bitbucket.org/mutt/mutt/downloads/"
+ "mutt-" version ".tar.gz")))
(sha256
(base32
- "10k8352s0z7yan6d4z2am80qd3bsaky4h89g72wl4xr3x067ahmw"))
+ "0x4yfvk8415p80h9an242n6q3b43mw6mnnczh95zd3j0zwdr6wrg"))
(patches (search-patches "mutt-store-references.patch"))))
(build-system gnu-build-system)
(inputs
(define-public neomutt
(package
(name "neomutt")
- (version "20180716")
+ (version "20191207")
(source
(origin
- (method url-fetch)
- (uri (string-append "https://github.com/" name "/" name
- "/archive/" name "-" version ".tar.gz"))
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/neomutt/neomutt.git")
+ (commit version)))
+ (file-name (git-file-name name version))
(sha256
- (base32
- "0072in2d6znwqq461shsaxlf40r4zr7w3j9848qvm4xlh1lq52dx"))))
+ (base32 "147yjpqnsbfy01fhsflxlixk0985r91a6bjmqq3cwmf7gka3sihm"))))
(build-system gnu-build-system)
(inputs
`(("cyrus-sasl" ,cyrus-sasl)
("gpgme" ,gpgme)
("ncurses" ,ncurses)
("gnutls" ,gnutls)
- ("openssl" ,openssl) ;For smime
+ ("openssl" ,openssl) ; for S/MIME
("perl" ,perl)
("kyotocabinet" ,kyotocabinet)
("libxslt" ,libxslt)
- ("libidn" ,libidn)
+ ("libidn2" ,libidn2)
("libxml2" ,libxml2)
("lmdb" ,lmdb)
("notmuch" ,notmuch)))
("w3m" ,w3m)
("tcl" ,tcl)))
(arguments
- `(#:tests? #f
+ `(#:test-target "test"
#:configure-flags
(list "--gpgme"
- ;; database, implies header caching
+ ;; Database, implies header caching.
"--disable-tokyocabinet"
"--disable-qdbm"
"--disable-bdb"
"--smime"
"--notmuch"
- "--idn"
+ "--disable-idn"
+ "--idn2"
;; If we do not set this, neomutt wants to check
;; whether the path exists, which it does not
- ;; in the chroot. The workaround is this.
+ ;; in the chroot.
"--with-mailpath=/var/mail"
"--with-ui=ncurses"
(modify-phases %standard-phases
;; TODO: autosetup is meant to be included in the source,
;; but we should package autosetup and use our own version of it.
- (add-before 'configure 'fix-sasl-test
- (lambda _
- ;; Upstream suggestion to fix the failing sasl autosetup test.
- (substitute* "auto.def"
- (("cc-with \\[list -cflags -I\\$prefix/include -libs")
- "cc-with [list -includes stddef.h -cflags -I$prefix/include -libs"))
- #t))
(replace 'configure
(lambda* (#:key outputs inputs configure-flags #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apply invoke bash
(string-append (getcwd) "/configure")
flags)))))))
- (home-page "https://www.neomutt.org/")
+ (home-page "https://neomutt.org/")
(synopsis "Command-line mail reader based on Mutt")
(description
"NeoMutt is a command-line mail reader which is based on mutt.
(define-public gmime
(package
(name "gmime")
- (version "3.2.4")
+ (version "3.2.5")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gmime/"
"/gmime-" version ".tar.xz"))
(sha256
(base32
- "096hh4g6z343kncw9svcrzv05d41n4v2q5k9jsm6gc40w30ag7i4"))))
+ "0ndsg1z1kq4w4caascydvialpyn4rfbjdn7xclzbzhw53x85cxgv"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
(define-public bogofilter
(package
(name "bogofilter")
- (version "1.2.4")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://sourceforge/bogofilter/bogofilter-"
- version "/bogofilter-"
- version ".tar.bz2"))
- (sha256
- (base32
- "1d56n2m9inm8gnzm88aa27xl2a7sp7aff3484vmflpqkinjqf0p1"))))
+ (version "1.2.5")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/bogofilter/bogofilter-stable/"
+ "bogofilter-" version ".tar.xz"))
+ (sha256
+ (base32 "1sl9xrnnlk2sn8gmibhn8li09vnansjbxb9l1182qmgz7cvs2j1j"))))
(build-system gnu-build-system)
(arguments
'(#:phases
#t)))))
(native-inputs `(("flex" ,flex)))
(inputs `(("bdb" ,bdb)))
- (home-page "http://bogofilter.sourceforge.net/")
+ (home-page "https://bogofilter.sourceforge.io/")
(synopsis "Mail classifier based on a Bayesian filter")
(description
"Bogofilter is a mail filter that classifies mail as spam or ham
(non-spam) by a statistical analysis of the message's header and
content (body). The program is able to learn from the user's classifications
and corrections. It is based on a Bayesian filter.")
- (license gpl2)))
+ (license gpl3+)))
(define-public offlineimap
(package
attachments, create new maildirs, and so on.")
(license gpl3+)))
+(define mumimu
+ ;; This is a fork of mu for use in Mumi that stores message bug IDs in its
+ ;; database. It also renames the library to "mumimu" to avoid confusion.
+ (let ((commit "ad30b5e9c85f0465aeeeac461d8c32d95775d450")
+ (revision "1"))
+ (package
+ (inherit mu)
+ (name "mumimu")
+ ;; TODO The version here used to be (package-version guile-email), but
+ ;; that code caused problems
+ (version (git-version "0.2.2" revision commit))
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.elephly.net/software/mumimu.git")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "1y8r8csvkyxncgpi469dir4n4sga4z9xdzc18qh5s8bk29qj689n"))))
+ (arguments
+ (substitute-keyword-arguments (package-arguments mu)
+ ((#:tests? anything '())
+ #f)
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (replace 'patch-configure
+ (lambda _
+ (delete-file "autogen.sh")
+ (substitute* "configure.ac"
+ ;; Use latest Guile
+ (("guile-2.0") "guile-2.2"))
+ (substitute* '("guile/Makefile.am"
+ "guile/mu/Makefile.am")
+ (("share/guile/site/2.0/") "share/guile/site/2.2/"))
+ #t))
+ (replace 'fix-ffi
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "guile/mumimu.scm"
+ (("\"libguile-mu\"")
+ (format #f "\"~a/lib/libguile-mumimu\""
+ (assoc-ref outputs "out"))))
+ #t))
+ (delete 'install-emacs-autoloads)))
+ ((#:configure-flags flags)
+ '("--disable-gtk"
+ "--disable-webkit"
+ "--disable-mu4e"))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)
+ ("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)
+ ("glib" ,glib "bin")
+ ("tzdata" ,tzdata-for-tests)
+ ("texinfo" ,texinfo))))))
+
(define-public alot
(package
(name "alot")
(define-public notmuch
(package
(name "notmuch")
- (version "0.29.1")
+ (version "0.29.3")
(source (origin
(method url-fetch)
(uri (string-append "https://notmuchmail.org/releases/notmuch-"
version ".tar.xz"))
(sha256
(base32
- "0rg3rwghd3wivf3bmqcqpkkd5c779ld5hi363zjcw5fl6a7gqilq"))))
+ "0dfwa38vgnxk9cvvpza66szjgp8lir6iz6yy0cry9593lywh9xym"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)
(let* ((out (assoc-ref outputs "out"))
(elisp
- (string-append out "/share/emacs/site-lisp/guix.d/"
- ,name "-" ,version)))
+ (string-append out "/share/emacs/site-lisp/")))
(invoke "./configure"
(string-append "--prefix=" out)
(string-append "--emacslispdir=" elisp)
(define-public claws-mail
(package
(name "claws-mail")
- (version "3.17.3")
+ (version "3.17.4")
(source (origin
(method url-fetch)
(uri (string-append
".tar.xz"))
(sha256
(base32
- "1wnj6c9cbmhphs2l6wfvndkk2g08rmxw0sl2c8k1k008dxd1ykjh"))))
+ "00mfhaac16sv67rwiq98hr4nl5zmd1h2afswwwksdcsi3q9x23jr"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("bogofilter" ,bogofilter)
(define-public msmtp
(package
(name "msmtp")
- (version "1.8.6")
+ (version "1.8.7")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/msmtp/releases/"
"/msmtp-" version ".tar.xz"))
(sha256
- (base32 "1qa260xrm0fzlwxpjvgvq39m4dfkskjlyb7m4y2vlr8c8d3z29b6"))))
+ (base32 "1waiiksa57byb7gvx1zmh6srvl6r8rvwqklk0slb3iaf4kfbqlws"))))
(build-system gnu-build-system)
(inputs
`(("libsecret" ,libsecret)
(define-public exim
(package
(name "exim")
- (version "4.92.3")
+ (version "4.93.0.4")
(source
(origin
(method url-fetch)
- (uri (list (string-append "https://ftp.exim.org/pub/exim/exim4/exim-"
- version ".tar.bz2")
- (string-append "https://ftp.exim.org/pub/exim/exim4/old/exim-"
- version ".tar.bz2")))
+ (uri (let ((file-name (string-append "exim-" version ".tar.xz")))
+ (list (string-append "https://ftp.exim.org/pub/exim/exim4/"
+ file-name)
+ ;; ‘Fix’ releases (exim-x.y.z.f) are kept separately.
+ (string-append "https://ftp.exim.org/pub/exim/exim4/fixes/"
+ file-name)
+ ;; After a new non-fix release, the old one is moved here.
+ (string-append "https://ftp.exim.org/pub/exim/exim4/old/"
+ file-name))))
(sha256
- (base32
- "0d0h0j9pl3yf089sc59ia60m3dqnkb3qh1qaz6vxfg2ja2mnm5i9"))))
+ (base32 "01g4sfycv13glnmfrapwhjbdw6z1z7w5bwjldxjmglwfw5p3czak"))))
(build-system gnu-build-system)
(inputs
`(("bdb" ,bdb-5.3) ; ‘#error Version 6 and later BDB API is not supported’
- ("gnutls" ,gnutls)
+ ("gnutls" ,gnutls/dane)
("gzip" ,gzip)
("bzip2" ,bzip2)
("xz" ,xz)
("libxaw" ,libxaw)))
(native-inputs
`(("pcre" ,pcre "bin")
- ("perl" ,perl)))
+ ("perl" ,perl)
+ ("pkg-config" ,pkg-config)))
(arguments
'(#:phases
(modify-phases %standard-phases
(("(COMPRESS_COMMAND=).*" all var)
(string-append var gzip "/bin/gzip\n"))
(("(ZCAT_COMMAND=).*" all var)
- (string-append var gzip "/bin/zcat\n")))
- ;; This file has hardcoded names for tools despite the zcat
- ;; configuration above.
+ (string-append var gzip "/bin/zcat\n"))
+ (("# (USE_GNUTLS(|_PC)=.*)" all line)
+ (string-append line "\n")))
+ ;; This file has hard-coded relative file names for tools despite
+ ;; the zcat configuration above.
(substitute* '("src/exigrep.src")
(("'zcat'") (string-append "'" gzip "/bin/zcat'"))
(("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'"))
(let ((bash (assoc-ref inputs "bash")))
(substitute* '("scripts/Configure-eximon")
(("#!/bin/sh") (string-append "#!" bash "/bin/sh"))))
- #t)))
- #:make-flags '("INSTALL_ARG=-no_chown")
- ;; No 'check' target.
+ #t))
+ (add-before 'build 'build-reproducibly
+ (lambda _
+ ;; The ‘compilation number’ is incremented for every build from the
+ ;; same source tree. It appears to vary over different (parallel?)
+ ;; builds. Make it a ‘constant number’ instead.
+ (substitute* "src/version.c"
+ (("#include \"cnumber.h\"") "1")))))
+ #:make-flags
+ (list "CC=gcc"
+ "INSTALL_ARG=-no_chown")
+ ;; No 'check' target. There is a test suite in test/, which assumes that
+ ;; certain build options were (not) used and that it can freely ‘sudo’.
#:tests? #f))
(home-page "https://www.exim.org/")
(synopsis
(define-public dovecot
(package
(name "dovecot")
- (version "2.3.7.2")
+ (version "2.3.9.2")
(source
(origin
(method url-fetch)
(version-major+minor version) "/"
"dovecot-" version ".tar.gz"))
(sha256
- (base32
- "0q0jgcv3ni2znkgyhc966ffphj1wk73y76wssh0yciqafs2f0v36"))))
+ (base32 "1yc6hi4hqg4hcc4495sf4m5f1lnargphi6dawj43if21vncgp127"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(define-public perl-email-sender
(package
(name "perl-email-sender")
- (version "1.300031")
+ (version "1.300034")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/"
"Email-Sender-" version ".tar.gz"))
(sha256
- (base32
- "052g0slw3h2lzn93j71fi47nfawww2aph4jhr3c860ji70lkf4n4"))))
+ (base32 "14aj9kqa9dr2bdhzn2qvjj2mffj8wjb5397z8qw7qg057fk3ib05"))))
(build-system perl-build-system)
(native-inputs
`(("perl-capture-tiny" ,perl-capture-tiny)))
(define-public khard
(package
(name "khard")
- (version "0.13.0")
+ (version "0.15.1")
(source (origin
(method url-fetch)
(uri (pypi-uri name version))
(sha256
(base32
- "1lyjiskc6ckjjylzr04dnm66p3cnn7vlysw9c27qls3y3ywx14zw"))))
+ "18ba2xgfq8sw0bg6xmlfjpizid1hkzgswcfcc54gl21y2dwfda2w"))))
(build-system python-build-system)
(arguments
`(#:phases
(doc (string-append out "/share/doc/khard")))
(copy-recursively "misc/khard" doc)
#t))))))
+ (native-inputs
+ `(("python-setuptools-scm" ,python-setuptools-scm)))
(propagated-inputs
`(("python-atomicwrites" ,python-atomicwrites)
("python-configobj" ,python-configobj)
(define-public perl-mail-dkim
(package
(name "perl-mail-dkim")
- (version "0.57")
+ (version "0.58")
(source (origin
(method url-fetch)
(uri (string-append
".tar.gz"))
(sha256
(base32
- "0fmfhwn4sh98w62rc8j584l23vlhr7vii8glm2njx14f81a56lvb"))))
+ "0cgkal65qqcy57b21lgij90ba36wl66byw9i76g5yhwaa8ms8hqa"))))
(build-system perl-build-system)
(propagated-inputs
`(("perl-crypt-openssl-rsa" ,perl-crypt-openssl-rsa)
(define-public mpop
(package
(name "mpop")
- (version "1.4.5")
+ (version "1.4.7")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/mpop/releases/"
"mpop-" version ".tar.xz"))
(sha256
- (base32 "1m6743j8g777lijvxqw2wz6pv2g5a9wlh6zq7awk0hvd44xp4sav"))))
+ (base32 "0c6n5afn9pr4p7gxkv462lysrw52w9fhvavzm99c78dcp9dj5xnk"))))
(build-system gnu-build-system)
(inputs
- `(("gnutls" ,gnutls)
- ("libidn" ,libidn)))
+ `(("gnutls" ,gnutls)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://marlam.de/mpop/")
fetchmail replacement.
mpop supports multiple accounts, header based mail filtering, delivery
-to mbox files, maildir folders or a Mail Delivery Agent (MDA),
-TLS/SSL, several authentication methods, Internationalized Domain
-Names (IDN) and SOCKS proxies.")
+to mbox files, maildir folders or an @acronym{MDA, Mail Delivery Agent},
+TLS/SSL, several authentication methods, @acronym{IDN, Internationalized Domain
+Names} and SOCKS proxies.")
(license gpl3+)))
(define-public mhonarc
(define-public opensmtpd-next
(package
(name "opensmtpd-next")
- (version "6.4.2p1")
+ (version "6.6.1p1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.opensmtpd.org/archives/"
"opensmtpd-" version ".tar.gz"))
(sha256
- (base32 "0pgv080ai7d98l9340jadp9wjiaqj2qvgpqhilcz0kps2mdiawbd"))))
+ (base32 "1ngil8j13m2rq07g94j4yjr6zmaimzy8wbfr17shi7rxnazys6zb"))))
(build-system gnu-build-system)
(inputs
`(("bdb" ,bdb)
("libasr" ,libasr)
("libevent" ,libevent)
- ("libressl" ,libressl)
+ ;; XXX Upstream recommends LibreSSL, which doesn't support TLS 1.3 yet,
+ ;; and requires a development release (3.0.2). Use OpenSSL instead.
+ ("openssl" ,openssl)
("linux-pam" ,linux-pam)
("zlib" ,zlib)))
(native-inputs
(define-public pan
(package
(name "pan")
- (version "0.145")
+ (version "0.146")
(source
(origin
(method url-fetch)
(uri (string-append "http://pan.rebelbase.com/download/releases/"
version "/source/" name "-" version ".tar.bz2"))
(sha256
- (base32
- "1b4wamv33hprghcjk903bpvnd233yxyrm18qnh13alc8h1553nk8"))))
+ (base32 "17agd27sn4a7nahvkpg0w39kv74njgdrrygs74bbvpaj8rk2hb55"))))
(arguments
`(#:configure-flags '("--with-gtk3" "--with-gtkspell" "--with-gnutls"
"--enable-libnotify" "--enable-manual"
(define-public imapfilter
(package
(name "imapfilter")
- (version "2.6.12")
+ (version "2.6.16")
(source
(origin
(method git-fetch)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
- (base32 "0vzpc54fjf5vb5vx5w0fl20xvx1k9cg6a3hbl86mm8kwsqf3wrab"))))
+ (base32 "0f65sg6hhv6778fxwsz4hvarbm97dsb8jj0mg7a9qs273r35pqck"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
"CC=gcc")
#:phases
(modify-phases %standard-phases
- (delete 'configure)
- (add-after 'unpack 'fix-include-path
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((pcre (assoc-ref inputs "pcre")))
- (substitute* "src/Makefile"
- (("INCDIRS =")
- (string-append "INCDIRS ="
- "-I" pcre "/include")))
- #t))))))
+ (delete 'configure)))) ; no configure script
(native-inputs
`(("lua" ,lua)
("pcre" ,pcre)
(define-public tnef
(package
(name "tnef")
- (version "1.4.17")
+ (version "1.4.18")
(source
(origin
(method git-fetch)
(url "https://github.com/verdammelt/tnef.git")
(commit version)))
(sha256
- (base32
- "0cq2xh5wd74qn6k2nnw5rayxgqhjl3jbzf4zlc4babcwxrv32ldh"))
+ (base32 "104g48mcm00bgiyzas2vf86331w7bnw7h3bc11ib4lp7rz6zqfck"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(native-inputs
(file-name (git-file-name name version))
(sha256
(base32
- "1575gn5p086sjxz5hvg6iyskq6cxf6vf50s9nsc4xgrbcqa3pv2c"))))
+ "1575gn5p086sjxz5hvg6iyskq6cxf6vf50s9nsc4xgrbcqa3pv2c"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ (substitute* "Makefile.am"
+ ;; Install .go files to $prefix/lib instead of
+ ;; $prefix/share.
+ (("^godir[[:space:]]*=.*")
+ "godir = \
+$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")
+
+ ;; Install assets.
+ (("^assetsdir.*" _)
+ "\
+assetsdir = $(pkgdatadir)/assets
+assetscssdir = $(assetsdir)/css
+assetsimgdir = $(assetsdir)/img
+assetsjsdir = $(assetsdir)/js
+
+assetscss_DATA = $(wildcard assets/css/*)
+assetsimg_DATA = $(wildcard assets/img/*)
+assetsjs_DATA = $(wildcard assets/js/*)\n"))
+ #t))))
(build-system gnu-build-system)
(arguments
- `(#:phases
+ `(#:modules ((guix build gnu-build-system)
+ ((guix build guile-build-system)
+ #:select (target-guile-effective-version))
+ (guix build utils))
+ #:imported-modules ((guix build guile-build-system)
+ ,@%gnu-build-system-modules)
+
+ #:configure-flags '("--localstatedir=/var")
+
+ #:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-executable
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
- (scm (string-append out "/share/guile/site/2.2"))
- (go (string-append out "/lib/guile/2.2/site-ccache")))
+ (version (target-guile-effective-version))
+ (scm (string-append out "/share/guile/site/" version))
+ (go (string-append out "/lib/guile/" version
+ "/site-ccache")))
(wrap-program (string-append bin "/mumi")
`("GUILE_LOAD_PATH" ":" prefix
(,scm ,(getenv "GUILE_LOAD_PATH")))
("guile-fibers" ,guile-fibers)
("guile-json" ,guile-json-1)
("guile-syntax-highlight" ,guile-syntax-highlight)
- ("guile" ,guile-2.2)))
+ ("gnutls" ,gnutls) ;needed to talk to https://debbugs.gnu.org
+ ("guile" ,guile-2.2)
+ ("mumimu" ,mumimu))) ;'mumimu' executable recorded in (mumi config)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)