doc/atdoc.lisp

   1 (asdf:operate 'asdf:load-op :xuriella)
   2 (asdf:operate 'asdf:load-op :atdoc)
   3 (let* ((base (asdf:component-pathname (asdf:find-system :xuriella)))
   4        (atdoc-directory (merge-pathnames "doc/atdoc/" base)))
   5   (ensure-directories-exist atdoc-directory)
   6   (atdoc:generate-documentation
   7    '(:xuriella)
   8    atdoc-directory
   9    :index-title "Xuriella XSLT API reference"
  10    :heading "Xuriella XSLT"
  11    :css (merge-pathnames "doc/atdoc.css" base)))