[nongnu] elpa/webpaste 0f79722 270/298: Add wrapper around webpaste for buffer and region

[ELPA Syncer]

branch: elpa/webpaste
commit 0f79722b0e7da819484b45f867fdc7f6de56623d
Author: Markus Pettersson <markus.pettersson1998@gmail.com>
Commit: Markus Pettersson <markus.pettersson1998@gmail.com>

    Add wrapper around webpaste for buffer and region
---
 webpaste.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/webpaste.el b/webpaste.el
index 7895bbc..ae19831 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -548,6 +548,19 @@ Argument MARK Current mark."
     ;; Extract the buffer contents with buffer-substring and paste it
     (webpaste--paste-text (buffer-substring (point-min) (point-max)))))
 
+
+;;;###autoload
+(cl-defun webpaste-paste-buffer-or-region (&optional point mark)
+  "Paste current buffer or selected region to some paste service"
+  (interactive "r")
+
+  ;; if region is selected
+  (if (region-active-p)
+      ;; Paste selected region
+      (webpaste-paste-region point mark)
+    ;; Else, Paste buffer
+    (webpaste-paste-buffer)))
+
 
 
 (provide 'webpaste)