summaryrefslogtreecommitdiff
path: root/qkbox/toot.scm
blob: 94de0ad3c9c12924a16210f555728fd1a7298492 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)
                 '()))))