(define-module (src media-list)
  #:use-module (ice-9 format)
  #:export (ignore
            media-list
            add-to-list))

(define %media '())

(define (ignore . rest) #f)

(define* (add-to-list path #:key (uri  "") #:allow-other-keys)
 (set! %media (append! %media (list (cons path uri)))))

(define (media-list . rest) %media)