[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/webpaste 4b9dfa9 049/298: Use cl-lib macros instead of cl.
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/webpaste 4b9dfa9 049/298: Use cl-lib macros instead of cl.el |
Date: |
Thu, 9 Dec 2021 18:59:42 -0500 (EST) |
branch: elpa/webpaste
commit 4b9dfa937f09aa8959ab3a3f70145e6714946932
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>
Use cl-lib macros instead of cl.el
And fix arguments of error callback function
---
webpaste.el | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/webpaste.el b/webpaste.el
index f77cace..ce6929c 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -7,7 +7,7 @@
;; Package-Version: 0.0.1
;; Version: 0.0.1
;; Keywords: convenience, comm, paste
-;; Package-Requires: ((emacs "24.1") (request "0.2.0"))
+;; Package-Requires: ((emacs "24.1") (request "0.2.0") (cl-lib "0.5"))
;;; Commentary:
@@ -35,6 +35,7 @@
;;; Code:
(require 'request)
+(require 'cl-lib)
(defgroup webpaste nil
@@ -73,13 +74,13 @@ each run.")
:type "POST"
:data post-data
:parser 'buffer-string
- :success (function* (lambda (&key data &allow-other-keys)
- (when data
- (webpaste-return-url data))))
+ :success (cl-function (lambda (&key data &allow-other-keys)
+ (when data
+ (webpaste-return-url data))))
:error
- (function* (lambda (&key error-thrown &allow-other-keys&rest
_)
- (message "Got error: %S" error-thrown)
- (webpaste-paste-text text)))))
+ (cl-function (lambda (&key error-thrown &allow-other-keys)
+ (message "Got error: %S" error-thrown)
+ (webpaste-paste-text text)))))
nil))
("dpaste.com" .
(lambda (text)
@@ -100,13 +101,13 @@ each run.")
:data post-data
:parser 'buffer-string
:success
- (function* (lambda (&key response &allow-other-keys)
- (webpaste-return-url
- (request-response-header response
"Location"))))
+ (cl-function (lambda (&key response &allow-other-keys)
+ (webpaste-return-url
+ (request-response-header response
"Location"))))
:error
- (function* (lambda (&key error-thrown &allow-other-keys&rest
_)
- (message "Got error: %S" error-thrown)
- (webpaste-paste-text text)))))
+ (cl-function (lambda (&key error-thrown &allow-other-keys)
+ (message "Got error: %S" error-thrown)
+ (webpaste-paste-text text)))))
nil)))
"Define all webpaste.el providers.
Consists of provider name and lambda function to do the actuall call to the
- [nongnu] elpa/webpaste 7b0859f 029/298: Populate tested providers list, (continued)
- [nongnu] elpa/webpaste 7b0859f 029/298: Populate tested providers list, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste c6eb2a1 031/298: Add error callbacks to try to paste again (to, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste e354e30 034/298: Update commentary, package-version, keywords and readme, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste ac1f772 035/298: Commentary style, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste b2bd161 036/298: Changed keywords for package to match guidelines, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 81d3f9b 038/298: Namespace wrapper for save-mark-and-excursion, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste ba59c4e 039/298: Added comment for checkdock prettyness, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 4459071 040/298: Added description to group, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 6fc4065 041/298: Added install instructions and melpa images, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste c6ea45c 045/298: Specify type attribute of custom variable, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 4b9dfa9 049/298: Use cl-lib macros instead of cl.el,
ELPA Syncer <=
- [nongnu] elpa/webpaste b8eb0ad 052/298: Change while to dolist, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste abe4fd5 053/298: Change from add-to-list to cl-pushnew, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 015bb9d 057/298: Refactored away add-to-list in favor of cl-pushnew in two more places, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7688876 058/298: Interactive r for pasting region, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste e12faa5 059/298: Added macro to create provider lambdas, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste f860028 060/298: Migrate providers to macro, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste ccef003 064/298: Replace away newlines from ix.io output, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 6039591 065/298: Added sprunge.us as provider, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 984f838 068/298: Added dpaste.de as provider, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 53dcac8 046/298: Move definition position, ELPA Syncer, 2021/12/09