|
|
|
|
@ -184,6 +184,7 @@ When we run out of providers to try, it will restart since |
|
|
|
|
(let ((text (buffer-substring (mark) (point)))) |
|
|
|
|
(webpaste-paste-text text))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload |
|
|
|
|
(defmacro webpaste-save-mark-and-excursion (&rest body) |
|
|
|
|
"Wraps usage of sending BODY to ‘save-mark-and-excursion’ / ‘save-excursion’." |
|
|
|
|
@ -191,6 +192,7 @@ When we run out of providers to try, it will restart since |
|
|
|
|
`(save-excursion ,@body) |
|
|
|
|
`(save-mark-and-excursion ,@body))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload |
|
|
|
|
(defun webpaste-paste-buffer () |
|
|
|
|
"Paste current buffer to some paste service." |
|
|
|
|
@ -201,6 +203,7 @@ When we run out of providers to try, it will restart since |
|
|
|
|
(goto-char (point-max)) ; Go to point-max |
|
|
|
|
(webpaste-paste-region))) ; Paste region |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'webpaste) |
|
|
|
|
|
|
|
|
|
;;; webpaste.el ends here |
|
|
|
|
|