save upload urls to wgetpaste-upload-history

diff --git a/wgetpaste.el b/wgetpaste.el
index d9e8c69041f6dc4d3a07a4326a8864152e70d587..209f7e8297f7f598f393d1803bc168ff7ecc847a 100644 (file)
--- a/wgetpaste.el
+++ b/wgetpaste.el
@@ -62,6 +62,11 @@
   :type '(hook)
   :group 'wgetpaste)
 
   :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))
 (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-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)
 (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
 
 (provide 'wgetpaste)
 ;;; wgetpaste.el ends here