Added page breaks to files

master
Elis Axelsson 9 years ago
parent f221c1accd
commit 382e01d787
No known key found for this signature in database
GPG Key ID: D57EFA625C9A925F
  1. 7
      webpaste.el

@ -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

Loading…
Cancel
Save