diff options
Diffstat (limited to 'src/media-list.scm')
-rw-r--r-- | src/media-list.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/media-list.scm b/src/media-list.scm new file mode 100644 index 0000000..115ae0a --- /dev/null +++ b/src/media-list.scm @@ -0,0 +1,14 @@ +(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) |