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. 10
      test/webpaste-test.el
  2. 7
      webpaste.el

@ -5,7 +5,7 @@
(require 'cl-lib)
(require 'webpaste)
(ert-deftest webpaste-test/paste-region-and-buffer ()
"Test pasting of regions and buffers."
@ -28,7 +28,7 @@
(should (equal (webpaste-paste-region 10 100)
(buffer-substring 10 100))))))
(ert-deftest webpaste-test/return-url ()
"Test returning of URL's to the user."
@ -41,7 +41,7 @@
;; Check so the kill ring contain the correct contents
(should (equal (car kill-ring) "https://example.com/")))
(ert-deftest webpaste-test/get-provider-priority ()
"Test how it populates webpaste/get-provider-priority."
@ -68,7 +68,7 @@
(should (equal (webpaste/get-provider-priority)
'("provider2" "provider1" "provider3"))))
(ert-deftest webpaste-test/callback-from-working-provider ()
"This test just sends a message to a good provider that just works."
@ -93,7 +93,7 @@
;; Check that we got the expected result
(should (string= returned-result "Works: test-string"))))
(ert-deftest webpaste-test/callback-from-working-provider-as-fallback ()
"This test sends a message to a bad provider that returns some error data.

@ -37,6 +37,7 @@
(require 'request)
(require 'cl-lib)
(defgroup webpaste nil
"Configuration options for webpaste.el where you can define paste providers,
@ -58,6 +59,7 @@ This list will be re-populated each run based on ‘webpaste-provider-priority
if that variable is nil, it will use the list of names from webpaste-providers
each run.")
(cl-defun webpaste-provider (&key domain
(type "POST")
@ -100,6 +102,7 @@ Usage:
(webpaste-paste-text text))))
nil))
;;; Define providers
(defcustom webpaste-providers-alist
@ -166,6 +169,7 @@ return it to the user."
:type '(alist :key-type (string :tag "provider name")
:value-type (sexp :tag "webpaste-provider macro definition for the provider")))
(defun webpaste/get-provider-priority ()
"Return provider priority."
@ -182,6 +186,7 @@ return it to the user."
webpaste-provider-priority)
;;;###autoload
(defun webpaste-return-url (returned-url)
@ -196,6 +201,7 @@ return it to the user."
;; Notify user
(message (concat "Added " returned-url " to kill ring.")))
;;;###autoload
(defun webpaste-paste-text (text)
@ -246,6 +252,7 @@ Argument MARK Current mark."
;; Extract the buffer contents with buffer-substring and paste it
(webpaste-paste-text (buffer-substring (point-min) (point-max))))
(provide 'webpaste)

Loading…
Cancel
Save