[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv4005

Modified Files:
	application.lisp message-display.lisp receivers.lisp 
Log Message:
Display "not authorized" messages and offer a (fixed) clickable identify command.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/27 21:38:43	1.71
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/04/02 20:43:20	1.72
@@ -391,7 +391,7 @@
                                                                              :test #'equal)))
                                               (who 'nickname :prompt "Target" :default "NickServ"))
   (when (null password)
-    (accept 'string :prompt "Password"))
+    (setf password (accept 'string :prompt "Password")))
   (irc:privmsg (current-connection *application-frame*) who
                (format nil "IDENTIFY ~A" password)))
 
--- /project/beirc/cvsroot/beirc/message-display.lisp	2006/03/27 21:46:31	1.43
+++ /project/beirc/cvsroot/beirc/message-display.lisp	2006/04/02 20:43:20	1.44
@@ -490,8 +490,8 @@
 ;;; channel management messages
 
 (defun offer-close (receiver)
-   (format-message* (format nil "To close this tab, click "))
-   (present `(com-close ,receiver) 'command))
+   (format-message* "To close this tab, click ")
+   (present `(com-close (,receiver)) 'command))
 
 (defmethod print-message ((message irc:irc-err_nosuchnick-message) receiver)
   (formatting-message (t message receiver)
@@ -505,6 +505,16 @@
                           (irc:normalize-nickname (connection receiver) target))
              (offer-close receiver)))))))
 
+(defmethod print-message ((message irc:irc-err_blocking_notid-message) receiver)
+  (formatting-message (t message receiver)
+    ((format t "    "))
+    ((with-drawing-options (*standard-output* :ink +red3+ :text-size :small)
+       (irc:destructuring-arguments (me &last msg) message
+         (declare (ignore me))
+         (format-message* (format nil "~A~%" msg))
+         (format-message* "To identify, click")
+         (present `(com-identify) 'command))))))
+
 (defmethod print-message ((message irc:irc-err_chanoprivsneeded-message) receiver)
   (irc:destructuring-arguments (&last body) message
    (formatting-message (t message receiver)
--- /project/beirc/cvsroot/beirc/receivers.lisp	2006/03/16 00:01:46	1.23
+++ /project/beirc/cvsroot/beirc/receivers.lisp	2006/04/02 20:43:20	1.24
@@ -229,7 +229,8 @@
     irc:irc-rpl_whoisidentified-message
     irc:irc-rpl_whoisidle-message
     irc:irc-rpl_away-message
-    irc:irc-err_nosuchnick-message))
+    irc:irc-err_nosuchnick-message
+    irc:irc-err_blocking_notid-message))
 
 (macrolet ((define-ignore-message-types (&rest mtypes)
              `(progn