From 3fefebf0682c711d2ac2031f3191ef626bae7be7 Mon Sep 17 00:00:00 2001 From: John Turner Date: Sat, 9 Mar 2024 14:42:50 -0500 Subject: [PATCH] make wgetpaste-sentinel defcustom variable --- wgetpaste.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/wgetpaste.el b/wgetpaste.el index f08b96f..5db808d 100644 --- a/wgetpaste.el +++ b/wgetpaste.el @@ -44,6 +44,13 @@ (defcustom wgetpaste-upload-failure-hook nil "Hooks to run after wgetpaste process exits unsuccessfully") +(defcustom wgetpaste-sentinel (lambda (process _) + (unless (process-live-p process) + (run-hooks (if (zerop (process-exit-status process)) + 'wgetpaste-after-upload-hook + 'wgetpaste-upload-failure-hook)))) + "Sentinel function to install to wgetpaste process") + (defun wgetpaste-buffer () (run-hooks 'wgetpaste-before-upload-hook) (let ((process (make-process @@ -52,10 +59,7 @@ :connection-type 'pipe :buffer (get-buffer-create wgetpaste-stdout-buffer) :stderr (get-buffer-create wgetpaste-stderr-buffer) - :sentinel (lambda (process event) - (unless (process-live-p process) - (when (zerop (process-exit-status process)) - (run-hooks 'wgetpaste-after-upload-hook))))))) + :sentinel wgetpaste-sentinel))) (process-send-region process (point-min) (point-max)) (process-send-eof process) process)) -- 2.39.5