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)))