diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-08 05:28:15 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-08 05:30:13 +0900 |
| commit | 96bae65ab624a8e67636a4def6ae0382fa5841dc (patch) | |
| tree | 245d7ec558b658aabe30dc12d223d88d9a7807b5 | |
| parent | 5a4c8f98774e3d19562a508a2f71a60d8fbb2a2d (diff) | |
Add (qkbox toot) module.
| -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) + '())))) |