diff options
author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 20:44:16 +0200 |
---|---|---|
committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 20:49:17 +0200 |
commit | 959d4fd10f365bbb1cbba1de367544d519274b8e (patch) | |
tree | a745ebd51b2c3ed8741f68491fe875e00f74c9e8 /src/media-list.scm | |
parent | bd6db7b4a2985e7ad5fd189fd005ce1ec5ce83b3 (diff) |
media-list: Make `as` module for listing media
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) |