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
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
;;; 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: Mario Lang <mlang@delysid.org>
;; Description: Play chess in Emacs
;; URL: https://github.com/jwiegley/emacs-chess/
;; Compatibility: Emacs24
;; 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.
;;
;; Type `M-x chess', and play chess against the default engine module.
;; Type `C-u M-x chess' to select a specific engine.
;;
;; You can play against various external chess computer programs.
;; There is also an Emacs based chess computer module which does not require
;; any external programs. However, the internal AI is not very strong.
;;
;; To play on one of the internet chess servers, type `M-x chess-ics'.
;;
;; Once this is working, the next thing to do is to customize
;; `chess-default-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.
;;
;; Most people will probably also 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-game)
(require 'chess-display)
(require 'chess-engine)
(defgroup chess nil
"An Emacs chess playing program."
:group 'games)
(defconst chess-version "2.0b6"
"The version of the Emacs chess program.")
(defcustom chess-default-display
'(chess-images chess-ics1 chess-plain)
"Default display to be used when starting a chess session.
A list indicates a series of alternatives if the first display is
not available."
:type '(choice symbol (repeat symbol))
:group 'chess)
(defcustom chess-default-modules
'((chess-sound chess-announce)
chess-autosave
chess-clock
;;chess-kibitz jww (2002-04-30): not fully supported yet
;;chess-chat
)
"Modules to be used when starting a chess session.
A sublist indicates a series of alternatives, if the first is not
available.
These can do just about anything."
:type '(repeat (choice symbol (repeat symbol)))
:group 'chess)
(defcustom chess-default-engine
'(chess-crafty
chess-stockfish chess-glaurung chess-fruit
chess-gnuchess chess-phalanx
chess-ai)
"Default engine to be used when starting a chess session.
A list indicates a series of alternatives if the first engine is not
available."
:type '(choice symbol (repeat symbol))
:group 'chess)
(defcustom chess-full-name (user-full-name)
"The full name to use when playing chess."
:type 'string
:group 'chess)
(and (fboundp 'font-lock-add-keywords)
(font-lock-add-keywords
'emacs-lisp-mode
'(("(\\(chess-error\\)\\>" 1 font-lock-warning-face)
("(\\(chess-with-current-buffer\\)\\>" 1 font-lock-keyword-face))))
(defun chess--create-display (module game my-color disable-popup)
(let ((display (chess-display-create game module my-color)))
(when display
(chess-game-set-data game 'my-color my-color)
(if disable-popup
(chess-display-disable-popup display))
display)))
(defun chess--create-engine (module game response-handler ctor-args)
(let ((engine (apply 'chess-engine-create module game
response-handler ctor-args)))
(when engine
;; 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)
engine)))
(defun chess-create-modules (module-list create-func &rest args)
"Create modules from MODULE-LIST with CREATE-FUNC and ARGS.
If an element of MODULE-LIST is a sublist, treat it as alternatives."
(let (objects)
(dolist (module module-list)
(let (object)
(if (symbolp module)
(if (setq object (apply create-func module args))
(push object objects))
;; this module is actually a list, which means keep trying
;; until we find one that works
(while module
(if (setq object (condition-case nil
(apply create-func (car module) args)
(error nil)))
(progn
(push object objects)
(setq module nil))
(setq module (cdr module)))))))
(nreverse objects)))
(chess-message-catalog 'english
'((no-engines-found
. "Could not find any chess engines to play against; install gnuchess!")))
;;;###autoload
(defun chess (&optional engine disable-popup engine-response-handler
&rest engine-ctor-args)
"Start a game of chess, playing against ENGINE (a module name).
With prefix argument, prompt for the engine to play against.
Otherwise use `chess-default-engine' to determine the engine."
(interactive
(list
(if current-prefix-arg
(intern
(concat "chess-"
(let ((str (read-string "Engine to play against: ")))
(if (> (length str) 0)
str
"none"))))
chess-default-engine)))
(let ((game (chess-game-create))
(my-color t) ; we start out as white always
objects)
;; all these odd calls are so that `objects' ends up looking like:
;; (ENGINE FIRST-DISPLAY...)
(setq objects (chess-create-modules (list chess-default-display)
'chess--create-display
game my-color disable-popup))
(when (car objects)
(mapc 'chess-display-update objects)
(chess-module-set-leader (car objects))
(unless disable-popup
(chess-display-popup (car objects))))
(nconc objects (chess-create-modules chess-default-modules
'chess-module-create game))
(push (unless (eq engine 'none)
(car ;(condition-case nil
(chess-create-modules (list (or engine chess-default-engine))
'chess--create-engine game
engine-response-handler
engine-ctor-args)
; (error nil))
))
objects)
(unless (car objects)
(chess-message 'no-engines-found))
objects))
;;;###autoload
(defalias 'chess-session 'chess)
;;;###autoload
(defun chess-create-display (perspective &optional modules-too)
"Create a display, letting the user's customization decide the style.
If MODULES-TOO is non-nil, also create and associate the modules
listed in `chess-default-modules'."
(if modules-too
(let ((display (cadr (chess-session 'none))))
(chess-display-set-perspective* display perspective))
(car (chess-create-modules (list chess-default-display)
'chess--create-display
(chess-game-create) perspective nil))))
(provide 'chess)
;;; chess.el ends here
|
