toobusy

 1#!@GUILE@ \
 2--no-auto-compile -s
 3!#
 4
 5(use-modules (toobusy search)
 6             (toobusy config)
 7             (toobusy event))
 8
 9(define (main . args)
10  (if (null? args)
11    (error "missing query argument")
12    (display-events (search (search-query (car args))))))
13
14(load-config!)
15(apply main (cdr (command-line)))
16
17;; vim: ft=scheme