src/librivox.lisp (501 bytes)
1 (in-package :librivox) 2 (defun start () 3 "Just start everything: download, convert, upload." 4 (csv-expand (csv-update) :forward t) 5 (convert-all)) 6 7 (defun csv-update () 8 "Get a new CSV to keep up with recent audiobook publishing.") 9 (defun csv-expand (&key forward) 10 "Convert a CSV of librivox audiobooks into a directory tree filled with files 11 to be used in the downloading and conversion portions. `FORWARD' determines if 12 the directory tree is being made fresh -> nil or just updated -> t. " 13 )