branch: externals/dired-preview
commit 4dc5a9f430020fd671400e55b78498c22b1673a8
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Reorganise a couple of functions
---
dired-preview.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/dired-preview.el b/dired-preview.el
index 7c0296b43f..5cd2b755e2 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -140,6 +140,16 @@ Always return FILE buffer."
window))
(window-list)))
+(defun dired-preview--file-ignored-p (file)
+ "Return non-nil if FILE extension is among the ignored extensions.
+See user option `dired-preview-ignored-extensions-regexp'."
+ (when-let ((ext (file-name-extension file)))
+ (string-match-p ext dired-preview-ignored-extensions-regexp)))
+
+(defun dired-preview--file-large-p (file)
+ "Return non-nil if FILE exceeds `dired-preview-max-size'."
+ (> (file-attribute-size (file-attributes file)) dired-preview-max-size))
+
(defun dired-preview--preview-p (file)
"Return non-nil if FILE can be previewed."
(and (not (file-directory-p file))
@@ -153,16 +163,6 @@ conforms with `dired-preview--preview-p'."
(when (dired-preview--preview-p file)
(dired-preview--add-to-previews file)))
-(defun dired-preview--file-ignored-p (file)
- "Return non-nil if FILE extension is among the ignored extensions.
-See user option `dired-preview-ignored-extensions-regexp'."
- (when-let ((ext (file-name-extension file)))
- (string-match-p ext dired-preview-ignored-extensions-regexp)))
-
-(defun dired-preview--file-large-p (file)
- "Return non-nil if FILE exceeds `dired-preview-max-size'."
- (> (file-attribute-size (file-attributes file)) dired-preview-max-size))
-
(defun dired-preview--delete-windows ()
"Delete preview windows."
(mapc
