qkbox/toot.scm


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)
                 '()))))