From bc1b6e4f3789f4401ac5fe9bb9708459648345b0 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Wed, 3 Apr 2002 02:11:46 +0000 Subject: More work to get engines working. --- chess.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'chess.el') diff --git a/chess.el b/chess.el index 31e0bd3..0710dc9 100644 --- a/chess.el +++ b/chess.el @@ -75,6 +75,8 @@ a0 243 ;;; Code: (require 'chess-session) +(require 'chess-game) +(require 'chess-display) (require 'chess-pgn) (defgroup chess nil @@ -103,20 +105,24 @@ a0 243 ;; setup `chess-handler' to receive all events first (chess-session-add-listener session 'chess-handler) (chess-session-set-data session 'my-color perspective) - ;; unless prefix arg is given, use `chess-default-engine' to play - ;; against; otherwise, just create a board for play between two - ;; people - (unless arg - (chess-session-add-listener session chess-default-engine)) ;; initialize all of the modules, and setup a new game (chess-session-event session 'initialize) (chess-session-event session 'setup (chess-game-create)) ;; create a display object linked to the session, and add it to ;; the event chain; it is via this object that session events will ;; for the most part be generated + (require chess-default-display) (chess-session-add-listener session 'chess-display nil (chess-display-create chess-default-display - perspective session)))) + perspective session)) + ;; unless prefix arg is given, use `chess-default-engine' to play + ;; against; otherwise, just create a board for play between two + ;; people + (unless arg + (require chess-default-engine) + (chess-session-add-listener session 'chess-engine nil + (chess-engine-create chess-default-engine + nil session))))) (defun chess-handler (session window-config event &rest args) "React to changes on the chess board in a global Emacs way." -- cgit v1.2.3