emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/webpaste 382e01d 105/298: Added page breaks to files


From: ELPA Syncer
Subject: [nongnu] elpa/webpaste 382e01d 105/298: Added page breaks to files
Date: Thu, 9 Dec 2021 18:59:54 -0500 (EST)

branch: elpa/webpaste
commit 382e01d787c4a0fa6bd4c58bed1810ed5b7787e2
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]