doc/generate-docs.lisp

   1 (defpackage #:cl-trane-doc (:use #:common-lisp))
   2 (in-package #:cl-trane-doc)
   3
   4 (defparameter *dir* (make-pathname :defaults *load-pathname*
   5                                    :name nil :type nil :version nil))
   6 (asdf:oos 'asdf:load-op :cl-trane)
   7 (load (merge-pathnames "dependency-graph.lisp" *dir*))
   8 (load (merge-pathnames "lispdoc.lisp" *dir*)) ; http://homepage.mac.com/svc/openmcl/readme.html
   9
  10 (trane-dependency-graph:graph (merge-pathnames "dependency-graph.dot" *dir*))
  11 (let ((trane-common:*config* (py-configparser:make-config))
  12       (trane-common:*db* nil)
  13       (trane-common:*handler-package* nil))
  14   (lispdoc:lispdoc-html *dir* :trane-common :trane-bb :trane-taxonomy :trane-passengers))
  15 #+b0rken (tinaa:document-system ':asdf-system :cl-trane
  16                                 (merge-pathnames "html/" *dir*))