toobusy

 1(define-module (toobusy toobusy)
 2  #:use-module (toobusy util)
 3
 4  #:export (DTSTART_SLOT
 5            DTEND_SLOT
 6            get-database-path))
 7
 8(define DTSTART_SLOT 0)
 9(define DTEND_SLOT 1)
10
11(define (get-database-path)
12  (path-join (xdg-dir "XDG_DATA_HOME") "xapian.db"))