(ql:quickload :fussy)

(defun run ()
  (fussy::start)
  (loop :while t
        :do
           (fussy::update-theme-packages)
           (sleep (* 60 60 24))))

(save-lisp-and-die "fussy" :toplevel 'run :executable t)