[nongnu] elpa/webpaste 2d0f810 268/298: Merge branch 'condy0919-master'

[ELPA Syncer]

branch: elpa/webpaste
commit 2d0f810aefb8c1348e88d836508b53ac0993bf55
Merge: 8f9322f 9ca4105
Author: Elis Hirwing <elis@hirwing.se>
Commit: Elis Hirwing <elis@hirwing.se>

    Merge branch 'condy0919-master'
---
 README.org  |  1 +
 webpaste.el | 23 ++++++++++++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 01314fc..3d1b7d5 100644
--- a/README.org
+++ b/README.org
@@ -181,6 +181,7 @@ webpaste first and then just read the documentation by 
running this:
  - [X] dpaste.org
  - [X] gist.github.com
  - [X] paste.pound-python.org
+ - [X] paste.mozilla.org
  - [ ] paste.debian.net
  - [ ] bpaste.net
  - [ ] eval.in
diff --git a/webpaste.el b/webpaste.el
index 95531e5..a11e9a0 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -113,6 +113,14 @@ This uses `browse-url-generic' to open URLs."
      :lang-overrides ((emacs-lisp-mode . "clojure"))
      :success-lambda webpaste--providers-success-returned-string)
 
+    '("paste.mozilla.org"
+      :uri "https://paste.mozilla.org/api/";
+      :post-data (("expires" . 86400))
+      :post-field "content"
+      :post-lang-field-name "lexer"
+      :lang-overrides ((emacs-lisp-mode . "clojure"))
+      :success-lambda webpaste--providers-success-returned-string)
+
     ("gist.github.com"
      :uri "https://api.github.com/gists";
      :post-field nil
@@ -184,14 +192,27 @@ precalculated, and also available both for pre and post 
request access.")
 
 
 (defvar webpaste--default-lang-alist
-  '((css-mode . "css")
+  '((c-mode . "c")
+    (c++-mode . "cpp")
+    (cmake-mode . "cmake")
+    (css-mode . "css")
+    (diff-mode . "diff")
     (fundamental-mode . "text")
+    (haskell-mode . "haskell")
     (html-mode . "html")
+    (makefile-mode . "make")
     (java-mode . "java")
     (js-mode . "js")
     (go-mode . "go")
+    (perl-mode . "perl")
     (php-mode . "php")
     (python-mode . "python")
+    (ruby-mode . "rb")
+    (rust-mode . "rust")
+    (sh-mode . "bash")
+    (sql-mode . "sql")
+    (tex-mode . "tex")
+    (xml-mode . "xml")
     (yaml-mode . "yaml"))
   "Alist that maps `major-mode' names to language names.")