                                   ("type" . ,type)
                                   ("parent" . ,(or plaster-parent ""))))))
     (unless plaster-mode (plaster-mode))
-    (setq plaster-id (plaster-to-string (cdr (assoc '_id data))))
+    (setq plaster-id (format "%s" (alist-get '_id data)))
     (let ((url (plaster-paste-url plaster-id)))
       (kill-new url)
       (message "Paste now available at: %s" url))))

          (mapconcat (lambda (arg)
                       (concat (url-hexify-string (car arg))
                               "="
                               (url-hexify-string (plaster-to-string (cdr arg)))))
                     params
                     "&")))
    (let ((response (with-current-buffer (url-retrieve-synchronously endpoint)

  (let ((id (or id plaster-id (read-string "Paste ID: "))))
    (plaster-request (plaster-api "delete")
                     `(("id" . ,id)))
    (when (equal plaster-id (format "%s" id))
      (kill-buffer))
    (message "Paste %s has been deleted." (format "%s" id))))

(define-minor-mode plaster-mode
  "Toggle Plaster mode.
