(define-module (download))

(use-modules ((gnunet)))


(define %configuration (configuration-create))
(configuration-load! %configuration "~/src/c/gnunet/p2/p2.conf")

(define %fs-handle #f)
(define %fs-download #f)

(define (progress info)
  (pk (fs-progress-info-status info)))

(scheduler-run
 (lambda ()
   (set! %fs-handle (fs-start %configuration "guile-gnunet" progress))
   (set! %fs-download (fs-download-start %fs-handle
                                         (string->uri "gnunet://fs/chk/VEY0C80H6F1PSCNYBS0WSBVN95RXBV85SV2TNJP6V4A660YRNEGCCVZWCJV575R62M9P3W8DBNNZ5HST1DWNA1SSF01BB4JGK064438.A4X3ME6MQ10Q5YVX248GM9SXQYT36B0M241R0CBCR2SW44ZHX3BJ4NPXMN297R3H00VEEQZ04JVBAB236RXJB7JA1FZFNJ89A9GJQRG.42957")
                                         0
                                         #:filename "/tmp/out.jpg"))))