[lispy-cvs] CVS lispy

[mkennedy]

Update of /project/lispy/cvsroot/lispy
In directory cl-net:/tmp/cvs-serv12888

Modified Files:
	lispy.lisp packages.lisp 
Log Message:
Add search functionality suggested on mailing list.


--- /project/lispy/cvsroot/lispy/lispy.lisp	2008/04/12 17:16:57	1.15
+++ /project/lispy/cvsroot/lispy/lispy.lisp	2009/03/07 07:38:21	1.16
@@ -364,6 +364,13 @@
   "Return the list of installed modules versions."
   (hash-to-list *lispy-installation*))
 
+(defun search-map (regexp)
+  "Search the combined map for a given regular expression."
+  (remove-if-not #'(lambda (name)
+                     (cl-ppcre:scan regexp (string-downcase (symbol-name name))))
+                 (list-map)
+                 :key 'name))
+
 (defun initialize ()
   "Initialize Lispy.  This reads and merges all maps in
 *LISPY-MAP-URLS*, reads the installation, writes a fresh ASDF
--- /project/lispy/cvsroot/lispy/packages.lisp	2008/01/27 19:54:07	1.6
+++ /project/lispy/cvsroot/lispy/packages.lisp	2009/03/07 07:38:21	1.7
@@ -37,5 +37,6 @@
            #:upgradable-p
            #:list-upgrades
            #:upgrade
-           #:upgrade-all)
+           #:upgrade-all
+           #:search-map)
   (:documentation "Lispy is Common Lisp package management in Common Lisp."))