From b40455db815ee3593191ca270b8804e535fb5c4f Mon Sep 17 00:00:00 2001 From: John Turner Date: Sat, 9 Mar 2024 14:56:22 -0500 Subject: [PATCH] make wgetpaste-file function to wgetpaste files without opening them --- wgetpaste.el | 6 ++++++ 1 file changed, 6 insertions(+) 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 () -- 2.39.5