eschulte pushed a commit to branch go
in repository elpa.
commit a2d731adff96280ac93777f13b87a072020f7cff
Author: Eric Schulte <[email protected]>
Date: Sun Jun 10 17:53:33 2012 -0600
process igs "tell" messages
---
back-ends/igs.el | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/back-ends/igs.el b/back-ends/igs.el
index 6078fa9..056c8f2 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -132,10 +132,12 @@ This is used to re-send messages to keep the IGS server
from timing out.")
(content (match-string 2 string)))
(case type
(:prompt (igs-w-proc proc (setq *igs-ready* t)))
- (:info (message "igs-info: %s" content))
+ (:info (unless (string= content "yes")
+ (message "igs-info: %s" content)))
(:games (igs-w-proc proc (igs-handle-game content)))
(:move (igs-w-proc proc (igs-handle-move content)))
(:kibitz (message "igs-kibitz: %s" content))
+ (:tell (igs-handle-tell content))
(:beep nil)
(t (message "igs-unknown: [%s]%s" type content)))
(when (> (time-to-seconds (time-since *igs-time-last-sent*))
@@ -312,6 +314,14 @@ This is used to re-send messages to keep the IGS server
from timing out.")
(defsetf igs-current-game set-igs-current-game)
+(defun igs-handle-tell (string)
+ (unless (string-match (format "\\*\\(%s\\)\\*: \\(.*\\)$" igs-player-name-re)
+ string)
+ (error "igs: malformed tell string %S" string))
+ ;; TODO: keep a message buffer for each user in which conversations
+ ;; may be saved... during games store messages as SGF comments.
+ (message "igs[%s]: %s" (match-string 1 string) (match-string 2 string)))
+
(defun igs-apply-move (move)
(if (aget (igs-current-game) :board)
(setf (go-move (aget (igs-current-game) :board)) move)
