;; String String Bytes -> String
;; Uploads some media, returns the media ID
(define (upload-media filename mime-type data-bytes)
  (define MULTIPART-BOUNDARY "hashlanguwu")
  (define s->b string->bytes/utf-8)
  ;; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  (define multipart-data
    (bytes-append
      #"--" (s->b MULTIPART-BOUNDARY) #"\r\n"
      #"Content-Disposition: form-data; name=\"file\"; filename=\"" (s->b filename) #"\"\r\n"
      #"Content-Type: " (s->b mime-type) #"\r\n"
      #"\r\n"
      data-bytes
      #"\r\n"
      #"--" (s->b MULTIPART-BOUNDARY) #"--\r\n"))
  ;; send it
  (define-values (status headers rsp)
    (http-sendrecv/url (make-api-url '("media"))
                       #:method "POST"
                       #:headers (list
                                  (make-header "Authorization" (get-authorization))
                                  (make-header "Content-Type"
                                               (string-append "multipart/form-data; boundary="
                                                              MULTIPART-BOUNDARY)))
                       #:data multipart-data))
  (hash-ref (string->jsexpr (port->string rsp)) 'id))

(define (bot-run)
  (define thank (file->bytes "thank.png"))
  (define thank-id (upload-media "thank.png" "image/png" thank))
  (define toot (make-toot "test post pls ignore"
                          #:cw "bot post, no caption"
                          #:media (list thank-id)))
  (displayln toot)
  (send-toot toot)
  (void))