make wgetpaste-file function to wgetpaste files without opening them

diff --git a/wgetpaste.el b/wgetpaste.el
index 5db808db3219de871796a34a212a8fb77a15cfd9..3aafcb6bc576d78c204183e42aa395c525f3ca6b 100644 (file)
--- a/wgetpaste.el
+++ b/wgetpaste.el
@@ -74,6 +74,12 @@
     (with-current-buffer work-buffer
       (wgetpaste-buffer))))
 
+(defun wgetpaste-file (file)
+  (interactive (list (read-file-name "wgetpaste file: ")))
+  (with-temp-buffer
+    (insert-file-contents-literally file)
+    (wgetpaste-buffer)))
+
 ;; hooks
 
 (defun wgetpaste-clear-stdout-buffer ()