Added general function to paste text

10 years ago · 14a1e6e092
parent 1c7b313900
commit 14a1e6e092
1 changed files with 8 additions and 1 deletions
--- a/webpaste.el
+++ b/webpaste.el
@ -52,7 +52,7 @@
  (interactive)

  (let ((text (buffer-substring (mark) (point))))
-    (funcall (cdr (car webpaste-providers)) text)))
+    (webpaste-paste-text text)))


 ;;;###autoload
@ -66,6 +66,13 @@
   (webpaste-paste-region)))            ; Paste region


+;; Function to do pasting
+(defun webpaste-paste-text (text)
+  "Paste TEXT to some paste service."
+
+  (funcall (cdr (car webpaste-providers)) text))
+
+
 ;;; Define providers
 (defcustom webpaste-providers
  '(("ix.io" .