(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)