From 36ec84fb4cc4d31b5aecbb52689de989725aecf7 Mon Sep 17 00:00:00 2001 From: John Turner Date: Wed, 20 Mar 2024 15:52:34 -0400 Subject: [PATCH] save upload urls to wgetpaste-upload-history --- wgetpaste.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/wgetpaste.el b/wgetpaste.el index d9e8c69..209f7e8 100644 --- a/wgetpaste.el +++ b/wgetpaste.el @@ -62,6 +62,11 @@ :type '(hook) :group 'wgetpaste) +(defcustom wgetpaste-upload-history nil + "List of URLs from previous pastes" + :type '(list) + :group 'wgetpaste) + (defcustom wgetpaste-sentinel (lambda (process _) (unless (process-live-p process) (run-hooks (if (zerop (process-exit-status process)) @@ -119,11 +124,17 @@ (defun wgetpaste-failed () (message "wgetpaste failed, see wgetpaste stderr buffer for error information")) +(defun wgetpaste-save-url-to-history () + (with-current-buffer wgetpaste-stdout-buffer + (let ((url (buffer-substring (point-min) (point-max)))) + (push url wgetpaste-upload-history)))) + (when wgetpaste-install-hooks (add-hook 'wgetpaste-before-upload-hook 'wgetpaste-clear-stdout-buffer) (add-hook 'wgetpaste-before-upload-hook 'wgetpaste-ansifilter) (add-hook 'wgetpaste-after-upload-hook 'wgetpaste-save-url-to-clipboard) - (add-hook 'wgetpaste-upload-failure-hook 'wgetpaste-failed)) + (add-hook 'wgetpaste-upload-failure-hook 'wgetpaste-failed) + (add-hook 'wgetpaste-after-upload-hook 'wgetpaste-save-url-to-history)) (provide 'wgetpaste) ;;; wgetpaste.el ends here -- 2.39.5