[elpa] externals/dired-preview ae937209cc 03/67: add advice to dired-mark to preview the current file

[ELPA Syncer]

branch: externals/dired-preview
commit ae937209ccb2310ef336ec27266ea64fc2b4dbe6
Author: Christian Tietze <me@christiantietze.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    add advice to dired-mark to preview the current file
---
 dired-preview.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/dired-preview.el b/dired-preview.el
index ebdd171314..9e6501c7bc 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -253,16 +253,22 @@ Return buffer object of displayed buffer."
         (dired-preview--display-buffer-with-delay buffer)
     (dired-preview--close-previews)))
 
+(defun dired-preview--display-file-after-mark (&rest args)
+  "Preview file at point in dired buffer after a mark was changed."
+  (dired-preview--display-file))
+
 (defun dired-preview-disable-preview ()
   "Disable preview."
   (unless (eq major-mode 'dired-mode)
     (error "Can only use `dired-preview' in Dired"))
+  (advice-remove #'dired-mark #'dired-preview--display-file-after-mark)
   (dired-preview--close-previews))
 
 (defun dired-preview-enable-preview ()
   "Enable preview and store window configuration."
   (unless (eq major-mode 'dired-mode)
     (error "Can only use `dired-preview' in Dired"))
+  (advice-add #'dired-mark :after #'dired-preview--display-file-after-mark)
   (add-hook 'post-command-hook #'dired-preview--close-previews-outside-dired 
nil :local)
   (dired-preview--display-file))