guix: Use mumimu instead of mu.

* guix.scm (mumimu): New variable.
* configure.ac: Check for mumimu.
* mumi/config.scm.in (%config): Update placeholder for mu-executable.

1 files changed, 55 insertions, 1 deletions

diff --git a/guix.scm b/guix.scm
index 6798804..1cd597c 100644
--- a/guix.scm
+++ b/guix.scm
@@ -29,6 +29,8 @@
              (guix build-system gnu)
              (gnu packages)
              (gnu packages autotools)
+             (gnu packages base)
+             (gnu packages glib)
              (gnu packages guile)
              (gnu packages guile-xyz)
              (gnu packages mail)
@@ -83,6 +85,58 @@
       (inputs
        `(("guile" ,guile-2.2))))))
 
+(define-public mumimu
+  (let ((commit "b3fa5648053dae5de2d60a140d2a53ef458f4d0f")
+        (revision "1"))
+    (package (inherit mu)
+      (name "mumimu")
+      (version (git-version (package-version guile-email) 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
+                  "1mjwhx3sk3mrhfw179w1zjgl0bk43zf79j0an401ldj7rw1zlhql"))))
+      (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))))))
+
 (package
   (name "mumi")
   (version "0.0.0")
@@ -95,7 +149,7 @@
      ("guile-fibers" ,guile-fibers)
      ("guile-syntax-highlight" ,guile-syntax-highlight)
      ("guile" ,guile-2.2)
-     ("mu" ,mu)))
+     ("mumimu" ,mumimu)))
   (native-inputs
    `(("autoconf" ,autoconf)
      ("automake" ,automake)