[elpa] externals/consult aaba2b0260 2/2: Add consult-preview-excluded-files (Fix #621)

[ELPA Syncer]

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

    Add consult-preview-excluded-files (Fix #621)
---
 CHANGELOG.org |  1 +
 README.org    |  1 +
 consult.el    | 10 ++++++++--
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 0b387f42fc..b436764119 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -10,6 +10,7 @@
 - =consult-grep/git-grep/ripgrep=: Add =--fixed-strings= support
 - =consult-grep=: Respect =grep-find-ignored-directories/files=
 - =consult-org-heading=: Add tags to completion candidates
+- Add =consult-preview-excluded-files=
 
 * Version 0.18 (2022-05-25)
 
diff --git a/README.org b/README.org
index 35994496d1..67007852b4 100644
--- a/README.org
+++ b/README.org
@@ -908,6 +908,7 @@ an overview of all Consult variables and functions with 
their descriptions.
 | consult-narrow-key               | Narrowing prefix key during completion    
            |
 | consult-preview-key              | Keys which triggers preview               
            |
 | consult-preview-allowed-hooks    | List of =find-file= hooks to enable 
during preview      |
+| consult-preview-excluded-files   | Regexps matched against file names during 
preview     |
 | consult-preview-max-count        | Maximum number of files to keep open 
during preview   |
 | 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 |
diff --git a/consult.el b/consult.el
index aff1553c4a..1d1dce77a2 100644
--- a/consult.el
+++ b/consult.el
@@ -293,6 +293,10 @@ The dynamically computed arguments are appended."
   "Number of files to keep open at once during preview."
   :type 'integer)
 
+(defcustom consult-preview-excluded-files nil
+  "List of regexps matched against names of files, which are not previewed."
+  :type '(repeat regexp))
+
 (defcustom consult-preview-allowed-hooks
   '(global-font-lock-mode-check-buffers
     save-place-find-file-hook)
@@ -1114,8 +1118,10 @@ ORIG is the original function, HOOKS the arguments."
 
 (defun consult--find-file-temporarily (name)
   "Open file NAME temporarily for preview."
-  ;; file-attributes may throw permission denied error
-  (when-let* ((attrs (ignore-errors (file-attributes name)))
+  (when-let* (((not (seq-find (lambda (x) (string-match-p x name))
+                              consult-preview-excluded-files)))
+              ;; file-attributes may throw permission denied error
+              (attrs (ignore-errors (file-attributes name)))
               (size (file-attribute-size attrs)))
     (if (> size consult-preview-max-size)
         (progn