diff options
| -rw-r--r-- | Makefile.am | 3 | ||||
| -rw-r--r-- | qkbox/toot.scm | 15 |
2 files changed, 17 insertions, 1 deletions
diff --git a/Makefile.am b/Makefile.am index c6455f4..3bffc0f 100644 --- a/Makefile.am +++ b/Makefile.am @@ -41,7 +41,8 @@ godir=$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache bin_SCRIPTS = -SOURCES = +SOURCES = \ + qkbox/toot.scm TESTS = diff --git a/qkbox/toot.scm b/qkbox/toot.scm new file mode 100644 index 0000000..94de0ad --- /dev/null +++ b/qkbox/toot.scm @@ -0,0 +1,15 @@ +(define-module (qkbox toot) + #:use-module (ice-9 format) + #:export (post)) + +(define* (post x #:key spoiler-text) + (apply system* + "toot" + "post" + (cond + ((string? x) x) + (else + (format #f "~y" x))) + `(,@(if spoiler-text + `("-p" ,spoiler-text) + '())))) |