[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/webpaste b8e9245 230/298: Add helper function to find buff
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/webpaste b8e9245 230/298: Add helper function to find buffers language for provider |
Date: |
Thu, 9 Dec 2021 19:00:20 -0500 (EST) |
branch: elpa/webpaste
commit b8e92457863130be757f2a2cdadedf44be8f370d
Author: Elis Hirwing <elis@hirwing.se>
Commit: Elis Hirwing <elis@hirwing.se>
Add helper function to find buffers language for provider
---
webpaste.el | 35 +++++++++++++++++++++--------------
1 file changed, 21 insertions(+), 14 deletions(-)
diff --git a/webpaste.el b/webpaste.el
index b87405b..344c933 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -252,13 +252,12 @@ precalculated, and also available both for pre and post
request access.")
(post-data '()))
(cl-pushnew (cons post-field text) post-data)
- ;; Fetch alist of languages for this provider
- (let ((provider-lang-alist (cdr (assoc provider-uri
webpaste--provider-lang-alists))))
- ;; Fetch language name for this major mode for this provider
- (let ((language-name (cdr (assoc major-mode
provider-lang-alist))))
- (if (and post-lang-field-name language-name)
+ ;; Fetch language name for this provider
+ (let ((language-name (webpaste--get-buffer-language
provider-uri)))
+ (if (and post-lang-field-name language-name)
;; Append language to the post-data
- (cl-pushnew (cons post-lang-field-name language-name)
post-data))))
+ (cl-pushnew (cons post-lang-field-name language-name)
post-data)))
+
post-data)))
@@ -398,6 +397,17 @@ Optional params:
webpaste-provider-priority)
+(cl-defun webpaste--get-buffer-language (provider)
+ "Return language of the buffer that should be sent to the PROVIDER.
+
+This also depends on which provider it is since different providers might have
+different opinions of how the input for their fields should look like."
+
+ (let ((provider-lang-alist (cdr (assoc provider
webpaste--provider-lang-alists))))
+ (let ((language-name (cdr (assoc major-mode provider-lang-alist))))
+ language-name)))
+
+
(cl-defun webpaste--return-url (returned-url)
"Return RETURNED-URL to user from the result of the paste service."
@@ -405,14 +415,11 @@ Optional params:
(dolist (provider-separator webpaste--provider-separators)
;; Match if the separator is for this URI
(when (string-match-p (regexp-quote (car provider-separator)) returned-url)
- ;; Get alist of languages for this provider
- (let ((provider-lang-alist (cdr (assoc (car provider-separator)
webpaste--provider-lang-alists))))
- ;; Get language name from list of languages
- (let ((language-name (cdr (assoc major-mode provider-lang-alist))))
- ;; If we get a language name
- (when language-name
- ;; Override link with link where we appended the language
- (setq returned-url (concat returned-url (cdr provider-separator)
language-name)))))))
+ ;; Look up the language of the buffer for this provider
+ (let ((language-name (webpaste--get-buffer-language (car
provider-separator))))
+ ;; Append the language to the link if it existed
+ (when language-name
+ (setq returned-url (concat returned-url (cdr provider-separator)
language-name))))))
;; Reset tested providers after successful paste
(setq webpaste--tested-providers nil)
- [nongnu] elpa/webpaste a8b682a 239/298: Add toml lang to ptpb.pw default, (continued)
- [nongnu] elpa/webpaste a8b682a 239/298: Add toml lang to ptpb.pw default, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 2c399a0 243/298: Tests: Add unit tests for shebangs to override major-mode, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste a3a9a77 251/298: Remove spaces at end of lines, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7345c5f 252/298: [providers] Deprecation of ptpb.pw as a provider, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 521de6d 247/298: Update copyright year, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 87ea8b1 294/298: workflows: Remove environment variable to force install cask on macos, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7d8e0d4 287/298: wepaste: Add provider paste.rs, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste a9c4aa4 288/298: Merge branch 'provider-paste-rs', ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste b47767f 229/298: Prefix integration test names to filter them out easily if they seem, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 356e54f 242/298: Tests: Add unit test for webpaste--get-shebang-lang-mode, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste b8e9245 230/298: Add helper function to find buffers language for provider,
ELPA Syncer <=
- [nongnu] elpa/webpaste d6a8771 250/298: Merge branch 'vapniks-patch-1', ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 8f9322f 265/298: Merge branch 'tastytea-dpaste.de-new-location', ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 2d0f810 268/298: Merge branch 'condy0919-master', ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 141376a 264/298: Change dpaste.de to dpaste.org., ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 1a6c0e9 263/298: Bump version number in file, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 7a30602 274/298: Bump version number in file, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 84b5c80 279/298: readme: Add readme entry for max retries, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 533bb40 290/298: Apply suggestions from code review, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste dacb4fb 289/298: Add support for bpa.st pastebin, ELPA Syncer, 2021/12/09
- [nongnu] elpa/webpaste 9ffa782 286/298: readme: Useful links in badges, ELPA Syncer, 2021/12/09