diff options
Diffstat (limited to 'chess-fruit.el')
| -rw-r--r-- | chess-fruit.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/chess-fruit.el b/chess-fruit.el index 1067470..6c35445 100644 --- a/chess-fruit.el +++ b/chess-fruit.el @@ -34,17 +34,8 @@ :type 'file :group 'chess-fruit) -(defvar chess-fruit-regexp-alist - (list - (cons (concat "^bestmove\\s-+\\(" chess-algebraic-regexp "\\)") - (function - (lambda () - (funcall chess-engine-response-handler 'move - (chess-engine-convert-algebraic (match-string 1) t))))) - (cons "^id\\s-+name\\s-+\\(.+\\)$" - (function - (lambda () - (setq-local chess-engine-opponent-name (match-string 1))))))) +(defvar chess-fruit-regexp-alist chess-uci-regexp-alist + "Patterns used to match engine output.") (defun chess-fruit-handler (game event &rest args) (unless chess-engine-handling-event |