From: John Turner <jturner.usa@gmail.com>
Date: Sat, 9 Mar 2024 19:56:22 +0000 (-0500)
Subject: make wgetpaste-file function to wgetpaste files without opening them
X-Git-Url: https://jturnerusa.dev/gitweb/?a=commitdiff_plain;h=b40455db815ee3593191ca270b8804e535fb5c4f;p=wgetpaste.el

make wgetpaste-file function to wgetpaste files without opening them
---

diff --git a/wgetpaste.el b/wgetpaste.el
index 5db808d..3aafcb6 100644
--- 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 ()