From f1485bf9b53b30f609bf83b2fbd7bb577c204e59 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 4 Oct 2023 16:21:53 +0200 Subject: media-uploader: add skeleton --- src/as/media-uploader.scm | 11 +++++++++++ src/media-uploader.scm | 9 +++++++++ 2 files changed, 20 insertions(+) create mode 100644 src/as/media-uploader.scm create mode 100644 src/media-uploader.scm (limited to 'src') 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)) -- cgit v1.2.3