diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-10-07 15:15:58 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2025-10-07 15:15:58 +0200 |
| commit | a1ed7b9f9954618e2ed4e14dd2dd3215ba7afd7d (patch) | |
| tree | 5ce01882fb28f786ce6c362cb51d8809d641284c /ss/media-list.scm | |
| parent | 656bca99b0b4c7130855cb01b30b944d4dcb4d12 (diff) | |
API: move `src` to `ss`
Diffstat (limited to 'ss/media-list.scm')
| -rw-r--r-- | ss/media-list.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ss/media-list.scm b/ss/media-list.scm new file mode 100644 index 0000000..8e49e9b --- /dev/null +++ b/ss/media-list.scm @@ -0,0 +1,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) |