From eba48a1058bc4ae7486e74ac30cf851a78ce7272 Mon Sep 17 00:00:00 2001
From: Andrew Tropin <andrew@trop.in>
Date: Wed, 7 Jul 2021 16:55:41 +0300
Subject: [PATCH] gnu: Add emacs-consult-notmuch.

* gnu/packages/emacs-xyz.scm (emacs-consult-notmuch): New variable.
---
 gnu/packages/emacs-xyz.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 9591a4e6e7..788a25a8e8 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -8084,6 +8084,36 @@ Emacs completion function completing-read, which allows quickly selecting from a
 list of candidates.")
     (license license:gpl3+)))
 
+(define-public emacs-consult-notmuch
+  (package
+    (name "emacs-consult-notmuch")
+    (version "0.3")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://codeberg.org/jao/consult-notmuch.git")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "19flyh3v1xm2zswzjkvjbijvpbq5r8isafza4fd0yicvqbjyklhx"))))
+    (build-system emacs-build-system)
+    (inputs
+     `(("emacs-consult" ,emacs-consult)
+       ("notmuch" ,notmuch)))
+    (license license:gpl3+)
+    (home-page "https://codeberg.org/jao/consult-notmuch")
+    (synopsis "Search and preview notmuch emails using consult")
+    (description "\
+This package provides two commands using consult to query notmuch
+emails and present results either as single emails @code{consult-notmuch}
+or full trees @code{consult-notmuch-tree}.
+
+The package also defines a narrowing source for @code{consult-buffer}, which
+can be activated with @code{(add-to-list 'consult-buffer-sources
+'consult-notmuch-buffer-source)}.")))
+
 (define-public emacs-marginalia
   (package
     (name "emacs-marginalia")
-- 
2.32.0