[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/webpaste 0423f3f 024/298: Reorder file overall to have aut
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/webpaste 0423f3f 024/298: Reorder file overall to have autoloads at the end |
Date: |
Thu, 9 Dec 2021 18:59:37 -0500 (EST) |
branch: elpa/webpaste
commit 0423f3f62636acb380783b9e3410ba6f3c970aaf
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>
Reorder file overall to have autoloads at the end
and custom vars at the beginning.
---
webpaste.el | 89 +++++++++++++++++++++++++++++++------------------------------
1 file changed, 45 insertions(+), 44 deletions(-)
diff --git a/webpaste.el b/webpaste.el
index 48d9b57..b96cf49 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -35,42 +35,18 @@
(require 'request)
-;; Function we use to return the RETURNED-URL from the service
-(defun webpaste-return-url (returned-url)
- "Return RETURNED-URL to user from the result of the paste service."
-
- ;; Add RETURNED-URL to killring for easy pasting
- (kill-new returned-url)
-
- ;; Notify user
- (message (concat "Added " returned-url " to kill ring.")))
-
-
-;;;###autoload
-(defun webpaste-paste-region ()
- "Paste selected region to some paste service."
- (interactive)
-
- (let ((text (buffer-substring (mark) (point))))
- (webpaste-paste-text text)))
-
-
-;;;###autoload
-(defun webpaste-paste-buffer ()
- "Paste current buffer to some paste service."
- (interactive)
-
- (save-mark-and-excursion
- (set-mark (point-min)) ; Set mark on point-min
- (goto-char (point-max)) ; Go to point-max
- (webpaste-paste-region))) ; Paste region
-
+(defcustom webpaste-provider-priority ()
+ "Define provider priority of which providers to try in which order.
+This variable should be a list of strings and if it isn't defined it will
+default to all providers in order defined in ‘webpaste-providers’ list."
+ :group 'webpaste)
-;; Function to do pasting
-(defun webpaste-paste-text (text)
- "Paste TEXT to some paste service."
- (funcall (cdr (car webpaste-providers)) text))
+(defvar webpaste-tested-providers ()
+ "Variable for storing which providers to try in which order while running.
+This list will be re-populated each run based on ‘webpaste-provider-priority’
or
+if that variable is nil, it will use the list of names from
‘webpaste-providers’
+each run.")
;;; Define providers
@@ -122,18 +98,43 @@ return it to the user."
:group 'webpaste)
-(defcustom webpaste-provider-priority ()
- "Define provider priority of which providers to try in which order.
-This variable should be a list of strings and if it isn't defined it will
-default to all providers in order defined in ‘webpaste-providers’ list."
- :group 'webpaste)
+;; Function we use to return the RETURNED-URL from the service
+(defun webpaste-return-url (returned-url)
+ "Return RETURNED-URL to user from the result of the paste service."
+ ;; Add RETURNED-URL to killring for easy pasting
+ (kill-new returned-url)
+
+ ;; Notify user
+ (message (concat "Added " returned-url " to kill ring.")))
+
+
+;; Function to do pasting
+(defun webpaste-paste-text (text)
+ "Paste TEXT to some paste service."
+
+ (funcall (cdr (car webpaste-providers)) text))
+
+
+;;;###autoload
+(defun webpaste-paste-region ()
+ "Paste selected region to some paste service."
+ (interactive)
+
+ (let ((text (buffer-substring (mark) (point))))
+ (webpaste-paste-text text)))
+
+
+;;;###autoload
+(defun webpaste-paste-buffer ()
+ "Paste current buffer to some paste service."
+ (interactive)
+
+ (save-mark-and-excursion
+ (set-mark (point-min)) ; Set mark on point-min
+ (goto-char (point-max)) ; Go to point-max
+ (webpaste-paste-region))) ; Paste region
-(defvar webpaste-tested-providers ()
- "Variable for storing which providers to try in which order while running.
-This list will be re-populated each run based on ‘webpaste-provider-priority’
or
-if that variable is nil, it will use the list of names from
‘webpaste-providers’
-each run.")
(provide 'webpaste)
- [nongnu] elpa/webpaste 6c9f1ff 007/298: Add ix.io as provider, (continued)
- [nongnu] elpa/webpaste 6c9f1ff 007/298: Add ix.io as provider, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste f3794ea 009/298: Send data to ix.io, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 8f074b4 013/298: Autoload the two pasting functions, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste ff4194e 014/298: Make new code section for providers, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 1114813 017/298: Move providers to customizable list with lambdas, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 0c0f31b 020/298: Checkdoc checkup, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 6694269 018/298: Add resulting url to kill ring for easy pasting, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 1c7b313 021/298: Added variable for providers priority when running, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste bf8f03c 023/298: Spacing, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 14a1e6e 022/298: Added general function to paste text, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 0423f3f 024/298: Reorder file overall to have autoloads at the end,
ELPA Syncer <=
- [nongnu] elpa/webpaste 5b34fda 027/298: Rename providers list, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 3d18f0b 028/298: Added code to auto-populate webpaste-provider-priority if needed, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste e1b98bd 032/298: Updated readme, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 25f0b32 033/298: More documentation for webpaste-paste-text function, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 4fb8873 037/298: Changed emacs version requires from 25 to 24, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste d4357d7 042/298: Autoload excursion-wrapper as well, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste e579ecb 044/298: Specify parent group, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste aaa690a 016/298: Spelling in comments, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste c298428 043/298: Reset tested-providers list after successful paste, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste ddfe2c6 015/298: Added dpaste support, ELPA Syncer, 2021/12/09