media-list: Make `as` module for listing media

4 files changed, 27 insertions, 22 deletions

diff --git a/src/as/media-list.scm b/src/as/media-list.scm
new file mode 100644
index 0000000..f5a1eb2
--- /dev/null
+++ b/src/as/media-list.scm
@@ -0,0 +1,13 @@
+(define-module (src as media-list)
+  #:use-module (src dates)
+  #:use-module (src media-list)
+  #:re-export (string/ISO->date)
+  #:export (main
+            post
+            person
+            media))
+
+(define main media-list)
+(define post ignore)
+(define person ignore)
+(define media add-to-list)
diff --git a/src/as/media-uploader.scm b/src/as/media-uploader.scm
deleted file mode 100644
index 3b21a8c..0000000
--- a/src/as/media-uploader.scm
+++ /dev/null
@@ -1,13 +0,0 @@
-(define-module (src as media-uploader)
-  #:use-module (src dates)
-  #:use-module (src media-uploader)
-  #:re-export (string/ISO->date)
-  #:export (main
-            post
-            person
-            media))
-(define main __ignore)
-(define post __ignore)
-(define person __ignore)
-(define media upload)
-
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)
diff --git a/src/media-uploader.scm b/src/media-uploader.scm
deleted file mode 100644
index 50b74c1..0000000
--- a/src/media-uploader.scm
+++ /dev/null
@@ -1,9 +0,0 @@
-(define-module (src media-uploader)
-  #:use-module (ice-9 format)
-  #:export (__ignore
-            upload))
-
-(define (__ignore . rest) #f)
-(define* (upload path #:key (uri  "")
-                #:allow-other-keys)
- (format #t "URI: ~a  Path ~a~&" uri path))