sends til's to littil

sendTil.el

(defun sendTil()
  "Sends til to littil.  If you select a region and sendTil then it will send the content of that region, else it will send the whole buffer content."
  (interactive)
  (request
   "http://littil.io/api/tils"
   :type "POST"
   :data (json-encode '(("til" . (("snippet" . ,(if (use-region-p)
                                                    (buffer-substring (region-beginning) (region-end))
                                                  (buffer-string)))))))
   :headers '(("Content-Type" . "application/json") ("Authorization" . "Basic *your key*"))
   :parser 'buffer-string
   :success (lambda (&rest _) (message "Success!"))
   :error (lambda (&rest _) (message "Failure!"))
   :complete
   (cl-function (lambda (&key data &allow-other-keys)
                  (with-current-buffer (get-buffer-create "*til demo*")
                    (erase-buffer)
                    (insert data)
                    (pop-to-buffer (current-buffer)))))))