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

[Andreas Fuchs]

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

Modified Files:
	application.lisp 
Log Message:
add an :around method to read-frame-command.

This innocent-sounding summary line enables clicking on presentations
without having to enter / first. WOO YAY!

Date: Sun Sep 25 17:09:01 2005
Author: afuchs

Index: beirc/application.lisp
diff -u beirc/application.lisp:1.1 beirc/application.lisp:1.2
--- beirc/application.lisp:1.1	Sun Sep 25 14:43:52 2005
+++ beirc/application.lisp	Sun Sep 25 17:09:01 2005
@@ -507,6 +507,14 @@
                  (list 'com-say (read-line stream))))))
     (window-clear stream)))
 
+(defmethod read-frame-command :around ((frame beirc)
+				       &key (stream *standard-input*))
+  (with-input-context ('command) (object)
+      (call-next-method)
+    (command
+     (window-clear stream)
+     object)))
+
 (defun restart-beirc ()
   (clim-sys:destroy-process *gui-process*)
   (setf *beirc-frame* nil)