Plaster

common-lisp
(defclass simple-page (staple:definitions-index-page) ()) (defmethod definition-wanted-p ((definition definitions:definition) (page simple-page)) (eql :external (definitions:visibility definition))) (defmethod definition-wanted-p ((definition definitions:method) (page simple-page)) NIL) (defmethod staple:find-project ((project (eql :clasp)) &key output) (assert output () "OUTPUT required.") (let ((project (make-instance 'staple:simple-project :output output))) (push (make-instance 'simple-page :title "Clasp" :project project :input staple:*default-template* :output (merge-pathnames "index.html" output) :language "en" ;; Change to include more packages as desired :packages '("EXT")) (staple:pages project)) project)) (staple:generate :clasp :output "/path/to/output/directory/here/" :if-exists :supersede)