summaryrefslogtreecommitdiff
path: root/src/media-list.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/media-list.scm')
-rw-r--r--src/media-list.scm14
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)