From 382e01d787c4a0fa6bd4c58bed1810ed5b7787e2 Mon Sep 17 00:00:00 2001 From: Elis Axelsson Date: Tue, 28 Mar 2017 23:47:00 +0200 Subject: [PATCH] Added page breaks to files --- test/webpaste-test.el | 10 +++++----- webpaste.el | 7 +++++++ 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/test/webpaste-test.el b/test/webpaste-test.el index 5c54bbd..75de49a 100644 --- a/test/webpaste-test.el +++ b/test/webpaste-test.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. diff --git a/webpaste.el b/webpaste.el index 2147333..1ba4624 100644 --- a/webpaste.el +++ b/webpaste.el @@ -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)