 (require 'json)
 
 (defun plaster-find-session-token (cookies)
+  "Find the radiance-session token in the cookie jar.
+
+Argument COOKIES The cookie jar as used in ‘url-cookie-list’."
   (let* ((domain (url-host (url-generic-parse-url plaster-api)))
          (cookies (dolist (cookie cookies)
                     (when (or (cl-search (car cookie) domain)

  "Visit an existing paste in a new buffer.

If no ID is given, it will query you for one in the
minibuffer. If the remote paste exists and is accessible
to you, the paste's contents will be opened in a new
buffer in plaster-mode."
  (interactive)
  (let ((id (or id (read-string "Paste ID: "))))
    (when (equal id "") (return))

  "Log in to the remote plaster server.

On successful log in this will update the
‘plaster-session-token’ to a token that should be
associated with the given account.

Optional argument USERNAME The username of the account.
Optional argument PASSWORD The password to the account."
  (interactive)
  (let* ((username (or username (read-string "Username: ")))
         (password (or password (read-string "Password: "))))
