From 14a1e6e09220443cb86e09fcd491bf1d2df327e7 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Fri, 7 Oct 2016 21:23:56 +0200
Subject: [PATCH] Added general function to paste text

---
 webpaste.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/webpaste.el b/webpaste.el
index cbbfb55..61fb607 100644
--- 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" .