ss/media-list.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(define-module (ss 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)