1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
a0 243
;;; chess.el --- Play chess in Emacs
;; Copyright (C) 2001 John Wiegley <johnw@gnu.org>
;; Emacs Lisp Archive Entry
;; Filename: chess.el
;; Version: 2.0
;; Keywords: games
;; Author: John Wiegley <johnw@gnu.org>
;; Maintainer: John Wiegley <johnw@gnu.org>
;; Description: Play chess in Emacs
;; URL: http://www.gci-net.com/~johnw/Emacs/packages/chess.tar.gz
;; Compatibility: Emacs20, Emacs21, XEmacs21
;; This file is not part of GNU Emacs.
;; This is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free
;; Software Foundation; either version 2, or (at your option) any later
;; version.
;;
;; This is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;; for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
;; MA 02111-1307, USA.
;;; Commentary:
;; Welcome to Emacs Chess, a chess playing module for GNU Emacs.
;;
;; This program will not play chess against you; it is not a chess
;; computer. It can use a chess computer, however, to simulate your
;; opponent's moves. This is decided when you choose your opponent.
;; You must, of course, have that chess computer installed. See the
;; top of chess-player.el for more information.
;;
;; To just get a chessboard up, put the following in your .emacs file:
;;
;; (add-to-list 'load-list "<the path to Emacs Chess>")
;;
;; (autoload 'chess "chess" "Play a game of chess" t)
;;
;; Now you can type `M-x chess', and play chess against anyone else in
;; the room with you, without having to install anything more.
;;
;; Once this is working, the next thing to do is to customize
;; `chess-use-modules'. This is a list of functionality modules used
;; by chess.el to provide its functionality. You can enable or
;; disable modules so that Emacs Chess better suites your tastes.
;; Those modules in turn often have configuration variables, and
;; appropriate documentation at the top of the related file.
;;
;; Emacs Chess is designed in a highly modular fashion, using loosely
;; coupled modules that respond to events on the chess board. This
;; makes it very easy for programmers to add their own types of
;; displays, opponents, analysis programs, etc. See the documentation
;; in chess-module.el to learn more.
;;
;; There is no documentation for this program other than what exists
;; in the source files. This is because the source files aim at being
;; self documenting, and as chess is such a simple game, most chess
;; players aren't going to need to know much about this program in
;; particular.
;;
;; However, most people will probably be interested in reading the top
;; of chess-display.el and chess-pgn.el, which describe the user
;; interface commands available in each of those buffer types.
;;; Code:
(require 'chess-session)
(require 'chess-pgn)
(defgroup chess nil
"An Emacs chess playing program."
:group 'games)
(defconst chess-version "2.0"
(defconst chess-version "2.0a7"
"The version of the Emacs chess program.")
(defcustom chess-modules
(list 'chess-standard
;'chess-crafty
(if (display-graphic-p)
'chess-images 'chess-ics1))
"Default module set to be used when starting a chess session.
Any rules modules, if they are being used, must appear first in this
list! This usually means `chess-standard' must be the very first
entry."
:type (list 'radio (apropos-internal "\\`chess-[^-]+\\'" 'functionp))
:type 'sexp
:group 'chess)
(defvar chess-current-session nil)
(defun chess ()
"Start a game of chess."
(interactive)
(setq chess-current-session (chess-session-create))
(chess-session-add-listener chess-current-session 'chess-global-handler)
(dolist (module chess-modules)
(chess-session-add-listener chess-current-session module))
(chess-session-event chess-current-session 'initialize)
(chess-session-event chess-current-session 'setup (chess-game-create)))
(defun chess-global-handler (session window-config event &rest args)
"React to changes on the chess board in a global Emacs way."
(cond
((eq event 'initialize)
(chess-session-set-data session 'my-color t) ; start out white
(current-window-configuration))
((eq event 'shutdown)
(ignore (set-window-configuration window-config)))
((eq event 'setup)
(ignore (chess-session-set-data session 'current-game (car args))))
((eq event 'pass)
(ignore
(let ((color (not (chess-session-data session 'my-color))))
(message "You are now playing %s"
(if color "White" "Black"))
(chess-session-set-data session 'my-color (not chess-my-color)))))))
(aset chess-puzzle-locations 3 puzzle-engine)))))))
(provide 'chess)
;;; chess.el ends here
|
