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

Loading…
Cancel
Save