added arglist and fixed readme in index

AccelerationNet · Jan 18, 2012 · f1284b1 · f1284b1
1 parent c1c6abc
commit f1284b1
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 12 deletions.
diff --git a/manifest-search.asd b/manifest-search.asd
@@ -12,7 +12,9 @@
   :licence "BSD"
   :version "0.1"
   :components ((:file "manifest-search"))
-  :depends-on (:alexandria :collectors :iterate :manifest :montezuma))
+  :depends-on (:alexandria :collectors :iterate :manifest :montezuma
+                           :swank ;; for introspection facilities
+                           ))
 
 ;; (defsystem :manifest-search-test
 ;;   :description "a test for manifest-search"

diff --git a/manifest-search.lisp b/manifest-search.lisp
@@ -117,20 +117,29 @@
      (make-field :id (cl-doc-key package thing type) nil)
      (make-field :name thing nil)
      (make-field :search-name thing)
-     (make-field :type type nil)
+     (make-field :type (case type
+                         (:function (if (macro-function thing)
+                                        :macro
+                                        :function))
+                         (T type)) nil)
      (make-field :package package nil)
-     (make-field :documentation docs))))
+     (make-field :documentation docs)
+     (case type
+       (:function
+        (make-field :arglist (swank::arglist thing))))
+     )))
 
 (defun make-package-doc (package &optional (type :package) package-package)
-  (doc-with-fields
-   (make-field :id (cl-doc-key nil package type)  nil)
-   (make-field :name (get-name package) nil)
-   (make-field :search-name (get-name package))
-   (make-field :nicknames (package-nicknames package))
-   (make-field :type type nil)
-   (make-field :package package-package nil)
-   (make-field :documentation (documentation package t))
-   (make-field :readme (manifest::readme-text package))))
+  (let ((pname (get-name package)))
+    (doc-with-fields
+     (make-field :id (cl-doc-key nil pname type)  nil)
+     (make-field :name pname nil)
+     (make-field :search-name pname)
+     (make-field :nicknames (package-nicknames package))
+     (make-field :type type nil)
+     (make-field :package package-package nil)
+     (make-field :documentation (documentation package t))
+     (make-field :readme (manifest::readme-text pname)))))
 
 (defun add-to-index (thing type package
                      &key