|
|
|
|
@ -38,6 +38,7 @@ |
|
|
|
|
(require 'cl-lib) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defgroup webpaste nil |
|
|
|
|
"Configuration options for webpaste.el where you can define paste providers, |
|
|
|
|
provider priority for which order which provider should be tried when used." |
|
|
|
|
@ -59,6 +60,7 @@ if that variable is nil, it will use the list of names from ‘webpaste-provider |
|
|
|
|
each run.") |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defun webpaste-provider (&key domain |
|
|
|
|
(type "POST") |
|
|
|
|
(parser 'buffer-string) |
|
|
|
|
@ -101,6 +103,7 @@ Usage: |
|
|
|
|
nil)) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Define providers |
|
|
|
|
(defcustom webpaste-providers-alist |
|
|
|
|
(list (list "ptpb.pw" |
|
|
|
|
@ -167,6 +170,7 @@ return it to the user." |
|
|
|
|
:value-type (sexp :tag "webpaste-provider macro definition for the provider"))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defun webpaste/get-provider-priority () |
|
|
|
|
"Return provider priority." |
|
|
|
|
|
|
|
|
|
@ -183,6 +187,7 @@ return it to the user." |
|
|
|
|
webpaste-provider-priority) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload |
|
|
|
|
(defun webpaste-return-url (returned-url) |
|
|
|
|
"Return RETURNED-URL to user from the result of the paste service." |
|
|
|
|
@ -197,6 +202,7 @@ return it to the user." |
|
|
|
|
(message (concat "Added " returned-url " to kill ring."))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;###autoload |
|
|
|
|
(defun webpaste-paste-text (text) |
|
|
|
|
"Paste TEXT to some paste service. |
|
|
|
|
@ -247,6 +253,7 @@ Argument MARK Current mark." |
|
|
|
|
(webpaste-paste-text (buffer-substring (point-min) (point-max)))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'webpaste) |
|
|
|
|
|
|
|
|
|
;;; webpaste.el ends here |
|
|
|
|
|