branch: externals/dired-preview
commit 3e3780a3becb53009593cb3dbfbef987ea286a2f
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add dired-preview-hook
I am implementing this in response to a request by dasoju in issue 32:
<https://github.com/protesilaos/dired-preview/issues/32>.
---
dired-preview.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/dired-preview.el b/dired-preview.el
index e03b5beada..f661db0c5d 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -221,6 +221,14 @@ Also see `dired-preview-trigger-on-start'."
:package-version '(dired-preview . "0.6.0")
:group 'dired-preview)
+(defcustom dired-preview-hook nil
+ "Normal hook that runs after a preview is displayed.
+Functions that need to run in the preview window should wrap their body
+in the `dired-preview-with-window' macro."
+ :type 'hook
+ :package-version '(dired-preview . "0.7.0")
+ :group 'dired-preview)
+
(defvar dired-preview--buffers nil
"List with buffers of previewed files.")
@@ -728,7 +736,8 @@ With optional MAKE-PUBLIC, remove the indicator."
(dired-preview--display-buffer buffer)
(dired-preview--rename-buffer buffer)
(when-let* ((window (get-buffer-window buffer)))
- (dired-preview--set-window-parameters window t))))
+ (dired-preview--set-window-parameters window t)
+ (run-hooks 'dired-preview-hook))))
(defvar dired-preview-encryption-file-extensions '(".gpg" ".age")
"List of strings specifying file extensions for encryption.")
