Permalink
Browse files

added arglist and fixed readme in index

  • Loading branch information...
1 parent c1c6abc commit f1284b17200a4f6485da1bc2b72312032a78881b @bobbysmith007 bobbysmith007 committed Jan 18, 2012
Showing with 23 additions and 12 deletions.
  1. +3 −1 manifest-search.asd
  2. +20 −11 manifest-search.lisp
View
@@ -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"
View
@@ -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

0 comments on commit f1284b1

Please sign in to comment.