media-uploader: add skeleton

2 files changed, 20 insertions, 0 deletions

diff --git a/src/as/media-uploader.scm b/src/as/media-uploader.scm
new file mode 100644
index 0000000..2991b52
--- /dev/null
+++ b/src/as/media-uploader.scm
@@ -0,0 +1,11 @@
+(define-module (src as media-uploader)
+  #:use-module (src media-uploader)
+  #:export (main
+            post
+            person
+            media))
+(define main __ignore)
+(define post __ignore)
+(define person __ignore)
+(define media upload)
+
diff --git a/src/media-uploader.scm b/src/media-uploader.scm
new file mode 100644
index 0000000..50b74c1
--- /dev/null
+++ b/src/media-uploader.scm
@@ -0,0 +1,9 @@
+(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))