[beirc-cvs] CVS update: beirc/presentations.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv2916

Modified Files:
	presentations.lisp 
Log Message:
fix case in completion results.

This means that completion is now case-insensitive and always
completes to the correct case.

Date: Tue Sep 27 22:58:42 2005
Author: afuchs

Index: beirc/presentations.lisp
diff -u beirc/presentations.lisp:1.3 beirc/presentations.lisp:1.4
--- beirc/presentations.lisp:1.3	Tue Sep 27 22:53:41 2005
+++ beirc/presentations.lisp	Tue Sep 27 22:58:41 2005
@@ -43,7 +43,9 @@
                                        '()
                                        :action mode
                                        :value-key #'cdr)
-        (values (prefixify string)
+        (values (if (null object)
+                    (prefixify string)
+                    (prefixify (irc:nickname object)))
                 success object nmatches (mapcar (lambda (possibility)
                                                   (cons (prefixify (car possibility))
                                                         (cdr possibility)))
@@ -54,7 +56,7 @@
 #+(or)
 (defun nickname-completion-printer (string object stream)
   (declare (ignore string))
-  (present (irc:name object) 'nickname :stream stream))
+  (present (irc:nickname object) 'nickname :stream stream))
 
 (define-presentation-method accept ((type mumble) *standard-input* (view textual-view) &key)
   (let ((*completion-gestures* '(#\Tab)))