[elpa] externals/consult 380886441e: Add consult--source-modified-buffer

[ELPA Syncer]

branch: externals/consult
commit 380886441ed80f474d153de7c39dd5c5ab38b457
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add consult--source-modified-buffer
    
    I took this good idea from the Spacemacs Consult configuration!
---
 CHANGELOG.org |  1 +
 README.org    |  2 ++
 consult.el    | 18 ++++++++++++++++++
 3 files changed, 21 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 8155aa623c..27c73db184 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -7,6 +7,7 @@
 - Bugfixes
 - Removed obsolete =consult-recent-file-filter= and 
=consult-preview-excluded-hooks=
 - Deprecate =consult-completing-read-multiple=. See #567 for details.
+- Add =consult--source-modified-buffer=
 
 * Version 0.17 (2022-04-22)
 
diff --git a/README.org b/README.org
index 17176e8f9a..c561d4f13b 100644
--- a/README.org
+++ b/README.org
@@ -99,6 +99,8 @@ their descriptions.
   order to narrow to recent files. Press =SPC= to show ephemeral buffers.
   Supported narrowing keys:
   - b Buffers
+  - SPC Hidden buffers
+  - * Modified buffers
   - f Files (Requires =recentf-mode=)
   - m Bookmarks
   - p Project
diff --git a/consult.el b/consult.el
index 7e727e18e2..30e1993b17 100644
--- a/consult.el
+++ b/consult.el
@@ -202,6 +202,7 @@ character, the *Completions* buffer and a few log buffers."
 
 (defcustom consult-buffer-sources
   '(consult--source-hidden-buffer
+    consult--source-modified-buffer
     consult--source-buffer
     consult--source-recent-file
     consult--source-bookmark
@@ -4101,6 +4102,23 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
                                        :as #'buffer-name)))
   "Hidden buffer candidate source for `consult-buffer'.")
 
+(defvar consult--source-modified-buffer
+  `(:name     "Modified Buffer"
+    :narrow   ?*
+    :hidden   t
+    :category buffer
+    :face     consult-buffer
+    :history  buffer-name-history
+    :state    ,#'consult--buffer-state
+    :items
+    ,(lambda () (consult--buffer-query :sort 'visibility
+                                       :as #'buffer-name
+                                       :predicate
+                                       (lambda (buf)
+                                         (and (buffer-modified-p buf)
+                                              (buffer-file-name buf))))))
+  "Modified buffer candidate source for `consult-buffer'.")
+
 (defvar consult--source-buffer
   `(:name     "Buffer"
     :narrow   ?b