Add structure documentation

[sheep] / src / main / docgen.lisp

diff --git a/src/main/docgen.lisp b/src/main/docgen.lisp
index 48d237121c5d62c2fa8bd0f939d93de3fff09850..b3d251e907e0b1c30867bc6dd1f53a878eaa86d9 100644 (file)
--- a/src/main/docgen.lisp
+++ b/src/main/docgen.lisp
@@ -5,7 +5,7 @@
 (defun get-symb-type (symb)
  (cond
   ;((documentation symb 'variable) :variable)
-  ;((documentation symb 'structure) :structure)
+  ((documentation symb 'structure) :structure)
   ((documentation symb 'function) :function)))
 
 (defun validate-package (pkg)
@@ -26,6 +26,7 @@
        (with-success-check
         (case (get-symb-type symb)
          (:function (docgen-func:doc->ast symb))
+         (:structure (docgen-struc:doc->ast symb))
          (t (error (make-condition 'validation-failure :msg (format nil "Symbol ~A has no documentation" symb)))))))
       symbs))))))
 
@@ -51,6 +52,8 @@
    (format str "~{~A~^~%~}"
     (mapcar
      (lambda (symb)
+      (format t "HAHAHAH ~A ~A~%" symb (get-symb-type symb))
       (case (get-symb-type symb)
-       (:function (docgen-func:ast->md (docgen-func:doc->ast symb)))))
+       (:function (docgen-func:ast->md (docgen-func:doc->ast symb)))
+       (:structure (docgen-struc:ast->md (docgen-struc:doc->ast symb)))))
      symbs)))))