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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
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 'cl)
(require 'chess-game)
(require 'chess-display)
(require 'chess-engine)
(require 'chess-pgn)
(defgroup chess nil
"An Emacs chess playing program."
:group 'games)
(defconst chess-version "2.0a7"
"The version of the Emacs chess program.")
(defcustom chess-default-display (if (display-graphic-p)
'chess-images 'chess-ics1)
"Default module set to be used when starting a chess session."
:type 'sexp
:group 'chess)
(defcustom chess-default-engine 'chess-gnuchess
"Default engine to be used when starting a chess session."
:type 'sexp
:group 'chess)
(defcustom chess-announce-moves t
(defcustom chess-announce-moves t
This happens verbally if 'festival' is installed, otherwise it just
prints a message in your minibuffer, which works well for Emacspeak
users."
minibuffer, which works well for Emacspeak users."
:type 'boolean
:group 'chess)
(defcustom chess-full-name (user-full-name)
"The full name to use when playing chess."
:type 'string
:group 'chess)
(defun chess (&optional arg)
"Start a game of chess."
(interactive "P")
chess-default-engine)))
(require chess-default-display)
(let* ((my-color t) ; we start out as white always
(display (chess-display-create chess-default-display my-color))
(game (chess-game-create)))
(chess-display-disable-popup display))
(chess-display-set-game display game)
(chess-display-set-main display)
(let ((engine-module
(if arg
(intern
(or (concat "chess-"
(read-string "Engine module to play against: "))
"chess-none"))
chess-default-engine)))
(let ((engine-module (or engine chess-default-engine)))
(let ((engine (chess-engine-create engine-module)))
engine-ctor-args)))
(chess-engine-set-game* engine game)
;; for the sake of engines which are ready to play now, and
;; which don't need connect/accept negotiation (most
;; computerized engines fall into this category), we need to
;; let them know we're ready to begin
(chess-engine-command engine 'ready))
(when chess-announce-moves
(require 'chess-announce)
(chess-announce-for-game game))))
(chess-announce-for-game game)))))))
(chess-display-update display t)))
(cons display engine)))
;;;###autoload
(defun chess-read-pgn (&optional file)
"Read and display a PGN game after point."
(interactive "P")
(if (or file (not (search-forward "[Event" nil t)))
(setq file (read-file-name "Read a PGN game from file: ")))
(if file
(find-file file))
(let ((game (chess-pgn-to-game)))
(when game
(require chess-default-display)
(chess-display-set-game
(chess-display-create chess-default-display
(chess-game-side-to-move game)) game))))
(defvar chess-puzzle-locations nil)
(defun chess-puzzle-next ()
"Play the next puzzle in the collection, selected randomly."
(interactive)
(if chess-puzzle-locations
(chess-puzzle (aref chess-puzzle-locations 0))))
;;;###autoload
(defun chess-puzzle (file)
"Pick a random puzzle from FILE, and solve it against the default engine.
The spacebar in the display buffer is bound to `chess-puzzle-next',
making it easy to go on to the next puzzle once you've solved one."
(interactive "fRead chess puzzles from: ")
(save-excursion
(with-current-buffer (find-file-noselect file)
(when (or (null chess-puzzle-locations)
(not (equal file (aref chess-puzzle-locations 0))))
(let (locations)
(goto-char (point-min))
(while (search-forward "[Event" nil t)
(push (point) locations))
(setq chess-puzzle-locations (vector file locations nil nil)))
(random t))
(goto-char (nth (random (length (aref chess-puzzle-locations 1)))
(aref chess-puzzle-locations 1)))
(let ((game (chess-pgn-to-game)))
(when game
(require chess-default-display)
(let ((puzzle-display
(or (and (buffer-live-p (aref chess-puzzle-locations 2))
(aref chess-puzzle-locations 2))
(chess-display-create chess-default-display
(chess-game-side-to-move game)))))
(chess-display-set-game puzzle-display game)
(aset chess-puzzle-locations 2 puzzle-display)
;; setup spacebar as a convenient way to jump to the next puzzle
(with-current-buffer puzzle-display
(define-key (current-local-map) [? ] 'chess-puzzle-next)))
(require chess-default-engine)
(let ((puzzle-engine
(or (and (buffer-live-p (aref chess-puzzle-locations 3))
(aref chess-puzzle-locations 3))
(chess-engine-create chess-default-engine))))
(chess-engine-set-game puzzle-engine game)
(aset chess-puzzle-locations 3 puzzle-engine)))))))
(provide 'chess)
;;; chess.el ends here
|
