Goodbye mu, hello guile-debbugs!

1 files changed, 94 insertions, 4 deletions

diff --git a/guix.scm b/guix.scm
index e7d3da2..8982ec6 100644
--- a/guix.scm
+++ b/guix.scm
@@ -1,5 +1,5 @@
 ;;; mumi - Mediocre, uh, mail interface
-;;; Copyright © 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of mumi.
 ;;;
@@ -24,13 +24,102 @@
 (use-modules ((guix licenses) #:prefix license:)
              (guix packages)
              (guix download)
+             (guix git-download)
              (guix utils)
              (guix build-system gnu)
              (gnu packages)
              (gnu packages autotools)
+             (gnu packages gettext)
              (gnu packages guile)
+             (gnu packages gsasl)
              (gnu packages mail)
-             (gnu packages pkg-config))
+             (gnu packages pkg-config)
+             (srfi srfi-1))
+
+(define-public mailutils-next
+  ;; This version of Mailutils supports Guile 2.2, unlike version <= 3.4.
+  (let ((commit "ce5b13e92b6e2f7af243654fe0673646f00dc3a6")
+        (revision "1"))
+    (package
+      (inherit mailutils)
+      (version (string-append (package-version mailutils)
+                              "-" revision "." (string-take commit 7)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.savannah.gnu.org/git/mailutils.git")
+                      (commit commit)
+                      (recursive? #t)))           ;for Gnulib & co.
+                (sha256
+                 (base32
+                  "15vbj5by7qg8zmh3scr3k9pymls6ijk1s85y1skclsln172r9p33"))
+                (file-name (string-append "mailutils-" version "-checkout"))))
+      (outputs '("out" "debug"))
+      (inputs
+       `(("guile" ,guile-2.2)
+         ("gsasl" ,gsasl)                         ;for SMTP authentication
+         ,@(alist-delete "guile" (package-inputs mailutils))))
+      (native-inputs
+       `(("autoconf" ,autoconf-wrapper)
+         ("automake" ,automake)
+         ("libtool" ,libtool)
+         ("gettext" ,gnu-gettext)
+         ,@(package-native-inputs mailutils)))
+      (arguments
+       (substitute-keyword-arguments (package-arguments mailutils)
+         ((#:modules modules %gnu-build-system-modules)
+          `((srfi srfi-1) ,@modules))
+         ((#:configure-flags flags ''())
+          `(cons* "--disable-radius"
+
+                  ;; Add "/2.2" to the installation directory.
+                  (string-append "--with-guile-site-dir="
+                                 (assoc-ref %outputs "out")
+                                 "/share/guile/site/2.2")
+                  ,flags))
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (replace 'bootstrap
+               (lambda* (#:key inputs #:allow-other-keys)
+                 (for-each patch-shebang
+                           '("bootstrap" "gnulib/gnulib-tool"))
+                 (substitute* "bootstrap.conf"
+                   (("git submodule" all)
+                    (string-append "#" all)))
+                 (for-each make-file-writable (find-files "gnulib"))
+                 (substitute* "configure.ac"
+                   (("AM_GNU_RADIUS") ""))
+                 (invoke "./bootstrap" "--no-git" "--skip-po"
+                         (string-append "--gnulib-srcdir=gnulib"))
+                 #t))
+             (delete 'prepare-test-suite)))
+         ((#:parallel-build? _ #f)                ;due to parser.y
+          #f)
+         ((#:tests? _ #f)                         ;XXX
+          #f))))))
+
+(define-public guile-debbugs-next
+  (package
+    (name "guile-debbugs")
+    (version "0.0.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/guile-debbugs/"
+                                  "guile-debbugs-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1lwrj2hmncc4ks05c2yfh8z93bcwcynplqi3cvm6kdblcv4yr2rl"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("guile" ,guile-2.2.4)
+       ("mailutils" ,mailutils-next)))
+    (home-page "https://www.gnu.org/software/guile-debbugs")
+    (synopsis "Guile bindings for the Debbugs bug tracker")
+    (description "This package provides a Guile library to communicate with a
+Debbugs bug tracker's SOAP service.")
+    (license license:gpl3+)))
 
 (package
   (name "mumi")
@@ -38,8 +127,9 @@
   (source #f)
   (build-system gnu-build-system)
   (inputs
-   `(("mu" ,mu)
-     ("guile" ,guile-2.2)))
+   `(("guile-debbugs" ,guile-debbugs-next)
+     ("mailutils" ,mailutils-next)
+     ("guile" ,guile-2.2.4)))
   (native-inputs
    `(("autoconf" ,autoconf)
      ("automake" ,automake)