[elpa] externals/consult 69bc425: Add consult-recent-file-filter

[ELPA Syncer]

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

    Add consult-recent-file-filter
---
 CHANGELOG.org |  5 +++++
 README.org    |  7 ++++---
 consult.el    | 39 ++++++++++++++++++++++++++++++---------
 3 files changed, 39 insertions(+), 12 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 3dee664..38a1d4a 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,11 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Development
+
+- Add =consult-recent-file-filter=
+- Rename =consult--source-(project-)file= to 
=consult-source-(project-)recent-file=
+
 * Version 0.13 (2021-11-12)
 
 - Bugfixes
diff --git a/README.org b/README.org
index 2f3fbb5..2d81130 100644
--- a/README.org
+++ b/README.org
@@ -441,7 +441,7 @@ their descriptions.
    (consult-customize
     consult-ripgrep consult-git-grep consult-grep
     consult-bookmark consult-recent-file consult-xref
-    consult--source-file consult--source-project-file consult--source-bookmark
+    consult--source-recent-file consult--source-project-recent-file 
consult--source-bookmark
     :preview-key (kbd "M-."))
  #+end_src
 
@@ -627,7 +627,7 @@ their descriptions.
 
   #+begin_src emacs-lisp
     (consult-customize
-     consult--source-file consult--source-project-file consult--source-bookmark
+     consult--source-recent-file consult--source-project-recent-file 
consult--source-bookmark
      :preview-key (kbd "M-."))
   #+end_src
 
@@ -865,7 +865,7 @@ configuration examples.
       :preview-key '(:debounce 0.2 any)
       consult-ripgrep consult-git-grep consult-grep
       consult-bookmark consult-recent-file consult-xref
-      consult--source-file consult--source-project-file 
consult--source-bookmark
+      consult--source-recent-file consult--source-project-recent-file 
consult--source-bookmark
       :preview-key (kbd "M-."))
 
      ;; Optionally configure the narrowing key.
@@ -939,6 +939,7 @@ configuration examples.
  | consult-preview-max-size         | Files larger than this size are not 
previewed         |
  | consult-preview-raw-size         | Files larger than this size are 
previewed in raw form |
  | consult-project-root-function    | Function which returns current project 
root           |
+ | consult-recent-file-filter       | Filter for =consult-recent-file=         
               |
  | consult-register-narrow          | Narrowing configuration for 
=consult-register=          |
  | consult-ripgrep-args             | Command line arguments for ripgrep       
             |
  | consult-themes                   | List of themes to be presented for 
selection          |
diff --git a/consult.el b/consult.el
index 6cbeb699..a8427fb 100644
--- a/consult.el
+++ b/consult.el
@@ -193,13 +193,17 @@ The default setting is to filter ephemeral buffer names 
beginning with a space
 character, the *Completions* buffer and a few log buffers."
   :type '(repeat regexp))
 
+(defcustom consult-recent-file-filter nil
+  "Filter regexps for `consult-recent-file'."
+  :type '(repeat regexp))
+
 (defcustom consult-buffer-sources
   '(consult--source-hidden-buffer
     consult--source-buffer
-    consult--source-file
+    consult--source-recent-file
     consult--source-bookmark
     consult--source-project-buffer
-    consult--source-project-file)
+    consult--source-project-recent-file)
   "Sources used by `consult-buffer'.
 
 See `consult--multi' for a description of the source values."
@@ -3132,7 +3136,11 @@ narrowing and the settings `consult-goto-line-numbers' 
and
   (interactive)
   (find-file
    (consult--read
-    (or (mapcar #'abbreviate-file-name recentf-list)
+    (or (mapcar #'abbreviate-file-name
+                (if-let (filter (and consult-recent-file-filter
+                                     (consult--regexp-filter 
consult-recent-file-filter)))
+                    (seq-remove (apply-partially #'string-match-p filter) 
recentf-list)
+                  recentf-list))
         (user-error "No recent files, `recentf-mode' is %s"
                     (if recentf-mode "on" "off")))
     :prompt "Find recent file: "
@@ -3911,7 +3919,10 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
                               :as #'buffer-name)))
   "Project buffer candidate source for `consult-buffer'.")
 
-(defvar consult--source-project-file
+(define-obsolete-variable-alias
+  'consult--source-project-file
+  'consult--source-project-recent-file "0.14")
+(defvar consult--source-project-recent-file
   `(:name     "Project File"
     :narrow   (?p . "Project")
     :hidden   t
@@ -3926,12 +3937,15 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
       (when-let (root (consult--project-root))
         (let ((len (length root))
               (inv-root (propertize root 'invisible t))
-              (ht (consult--buffer-file-hash)))
+              (ht (consult--buffer-file-hash))
+              (filter (consult--regexp-filter consult-recent-file-filter)))
           (mapcar (lambda (x)
                     (concat inv-root (substring x len)))
                   (seq-filter (lambda (x)
                                 (and (not (gethash x ht))
-                                     (string-prefix-p root x)))
+                                     (string-prefix-p root x)
+                                     (not (and consult-recent-file-filter
+                                               (string-match-p filter x)))))
                               recentf-list))))))
   "Project file candidate source for `consult-buffer'.")
 
@@ -3962,7 +3976,10 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
                                        :as #'buffer-name)))
   "Buffer candidate source for `consult-buffer'.")
 
-(defvar consult--source-file
+(define-obsolete-variable-alias
+  'consult--source-file
+  'consult--source-recent-file "0.14")
+(defvar consult--source-recent-file
   `(:name     "File"
     :narrow   ?f
     :category file
@@ -3972,9 +3989,13 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
     :enabled  ,(lambda () recentf-mode)
     :items
     ,(lambda ()
-       (let ((ht (consult--buffer-file-hash)))
+       (let ((ht (consult--buffer-file-hash))
+             (filter (consult--regexp-filter consult-recent-file-filter)))
          (mapcar #'abbreviate-file-name
-                 (seq-remove (lambda (x) (gethash x ht)) recentf-list)))))
+                 (seq-remove (lambda (x)
+                               (or (gethash x ht)
+                                   (and consult-recent-file-filter 
(string-match-p filter x))))
+                             recentf-list)))))
   "Recent file candidate source for `consult-buffer'.")
 
 ;;;###autoload