Convert FILE-NAME into a qbook html file named OUTPUT-FILE with title TITLE.
(defun publish-qbook (file-name generator)
"Convert FILE-NAME into a qbook html file named OUTPUT-FILE with title TITLE."
(let ((book (make-instance 'book
:title (title generator)
:contents (convert-to-sections
file-name
(read-source-file file-name)))))
(build-indexes book)
(generate book generator)))
Source Context