[elpa] externals/dired-preview feb98f3f53 08/15: Tweak dired-preview-trigger to be more readable

[ELPA Syncer]

branch: externals/dired-preview
commit feb98f3f5393b250f65a6f96db63594a48c53247
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Tweak dired-preview-trigger to be more readable
---
 dired-preview.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 7733493510..039f46b81e 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -436,18 +436,19 @@ With optional NO-DELAY do not start a timer.  Otherwise 
produce
 the preview with `dired-preview-delay' of idleness."
   (add-hook 'window-state-change-hook 
#'dired-preview--close-previews-outside-dired)
   (dired-preview--cancel-timer)
-  (if-let ((file (dired-file-name-at-point))
-           ((dired-preview--preview-p file))
-           ((memq this-command dired-preview-trigger-commands)))
+  (let* ((file (dired-file-name-at-point))
+         (preview (dired-preview--preview-p file)))
+    (cond
+     ((and preview (memq this-command dired-preview-trigger-commands))
       (if no-delay
           (dired-preview-display-file file)
         (setq dired-preview--timer
-              (run-with-idle-timer dired-preview-delay nil 
#'dired-preview-display-file file)))
-    (if (and file (dired-preview--preview-p file))
-        (dired-preview-start file)
-      (if (not (memq this-command dired-preview-trigger-commands))
-          nil
-        (dired-preview--delete-windows)))
+              (run-with-idle-timer dired-preview-delay nil 
#'dired-preview-display-file file))))
+     ((and file preview)
+      (dired-preview-start file))
+     ((and (not preview)
+           (memq this-command dired-preview-trigger-commands))
+      (dired-preview--delete-windows)))
     (dired-preview--close-previews-outside-dired)))
 
 (defun dired-preview-disable-preview ()