From 993db7e852410682dc1607ff9021707bf99bf2c0 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Thu, 23 Mar 2017 21:10:25 +0100
Subject: [PATCH] Added ptpb.pw as new and default provider

It's very much like ix.io in feature set, but it also got https
support so it's now the new default provider.
---
 README.org  |  3 ++-
 webpaste.el | 12 +++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 2b7547e..fd33e25 100644
--- a/README.org
+++ b/README.org
@@ -20,7 +20,8 @@ easiest way to install and configure packages.
            ("C-c C-p C-r" . webpaste-paste-region)))
 #+END_SRC
 
-** TODO Providers to implement [4/7]
+** TODO Providers to implement [5/8]
+ - [X] ptpb.pw
  - [X] ix.io
  - [X] dpaste.com
  - [X] sprunge.us
diff --git a/webpaste.el b/webpaste.el
index 5b41df0..e0e9c6f 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -98,7 +98,17 @@ Usage:
 
 ;;; Define providers
 (defcustom webpaste-providers-alist
-  (list (list "ix.io"
+  (list (list "ptpb.pw"
+              (webpaste-provider
+               :domain "https://ptpb.pw/"
+               :parser 'buffer-string
+               :post-field "c"
+               :success
+               (cl-function (lambda (&key response &allow-other-keys)
+                              (webpaste-return-url
+                               (request-response-header response "Location"))))))
+
+        (list "ix.io"
               (webpaste-provider
                :domain "http://ix.io/"
                :parser 'buffer-string