app.rkt
#lang racket

(require "dropbox.rkt")

;(set!-APP-KEY "3ysfqt0flcbex2t")
;(set!-APP-SECRET "hia6gkco347zczj")

;(obtain-request-token)
;(get-authorization-url #:callback "http://yahoo.com")

;; after granting access at url returned by get-authorization-url:
#;(obtain-access-token)
;(get-account-info)
#;(get-metadata "lazyinf.pdf")
(upload-file "test-files/dropbox.pdf" "test"
;             #:locale "pt-BR"
             #:overwrite? "false"
;             #:parent-rev "20ce7e933"
             )

#;(download-file "lazyinf.pdf" "lazyinf.pdf" #:exists 'replace)

#;(upload-file-post "test-files/lazyinf.pdf" "lazyinf.pdf"
;             #:locale "pt-BR"
             #:overwrite? "false"
;             #:parent-rev "20ce7e933"
             )
#;(get-delta)
#;(get-revisions "testing-revisions.txt")
#;(restore-file "testing-revisions.txt" "110ce7e933")

#;(upload-file "testing-revisions.txt" "testing-revisions.txt")

;(search "" "test")
;(search "" "txt")
;(search "test" "pdf")

;(get-share-url "test" #:short-url "false")
;(get-media-url "lazyinf.pdf")

#;(get-copy-ref "lazyinf.pdf")

;(upload-file "test-files/maine.jpg" "maine.jpg")
#;(get-image-thumbnail "maine.jpg" "maine-thumb.jpg" 
                     #:size "m" #:exists 'replace)

;(upload-large-file "test-files/xmas.jpg" "xmas.jpg")
#;(download-file "xmas.jpg" "xmas.jpg")
;(get-copy-ref "xmas.jpg")
;(copy "xmas.jpg" "xmas2.jpg")
;(copy "xmas.jpg" "xmas2.jpg" #:copy-ref "DL38wjBoYW4xdnh2cGhmcA")
;(copy "test" "test2")

;(create-folder "new-folder")
;(delete "new-folder")
;(delete "test2")
;(delete "xmas2.jpg")

;(move "xmas.jpg" "xmasss.jpg")
#;(define res
  (upload-large-file "test-files/xmas.jpg" "xmas.jpg" 
                     #:verbose? #t 
;                   #:resume? #t
;                   #:resume-id "izFM0xvusanQhT7Sn4BAxA"
;                   #:resume-offset 8388608
                     ))