eschulte pushed a commit to branch go
in repository elpa.
commit 7fa4d1a63cc01a579f2ceab53ca83bd93cdfb34e
Author: Eric Schulte <[email protected]>
Date: Thu Aug 8 10:52:41 2013 -0600
handle IGS shouts
---
back-ends/igs.el | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/back-ends/igs.el b/back-ends/igs.el
index 7173086..1eaa281 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -146,6 +146,7 @@ This is used to re-send messages to keep the IGS server
from timing out.")
(:kibitz (message "igs-kibitz: %s" content))
(:tell (igs-handle-tell content))
(:beep nil)
+ (:shout (igs-handle-shout content))
(t (message "igs-unknown: [%s]%s" type content)))
(when (and *igs-time-last-sent*
(> (time-to-seconds (time-since *igs-time-last-sent*))
@@ -315,6 +316,13 @@ This is used to re-send messages to keep the IGS server
from timing out.")
;; may be saved... during games store messages as SGF comments.
(message "igs[%s]: %s" (match-string 1 string) (match-string 2 string)))
+(defun igs-handle-shout (string)
+ ;; !GAO!: miss click :)
+ ;; !Myselium1!: was a nice game...Dominico to bad you missed the left
corner-side.
+ (unless (string-match "^\\([^:]*\\): \\(.*\\)$" string)
+ (error "igs: malformed shout string %S" string))
+ (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)
