   (let* ((mode major-mode)
          (type (or type
                    (plaster-mode-type major-mode)
-                   (read-string "Paste type: " "text")))
+                   (plaster-read-type)))
          (title (or title
                     (read-string "Paste title: " (buffer-name))))
          (text (buffer-substring (mark) (point))))

The remote paste will be automatically created when the buffer
is opened."
  (interactive)
  (let* ((type (read-string "Paste type: " "text"))
         (title (read-string "Paste title: ")))
    (with-current-buffer (generate-new-buffer title)
      (insert " ")
      (switch-to-buffer (current-buffer))

  (interactive)
  (let* ((type (or type
                   (plaster-mode-type major-mode)
                   (plaster-read-type)))
         (title (or title
                    (read-string "Paste title: " (buffer-name))))
         (data (plaster-request (plaster-api "new")
