[elpa] 224/255: handle IGS shouts

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 7fa4d1a63cc01a579f2ceab53ca83bd93cdfb34e
Author: Eric Schulte <address@hidden>
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)