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
|
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-game)
(require 'chess-display)
(require 'chess-pgn)
(defgroup chess nil
"An Emacs chess playing program."
:group 'games)
(defconst chess-version "2.0a2"
(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)
(defun chess (&optional arg)
"Start a game of chess."
(interactive "P")
(require chess-default-display)
(require chess-default-engine)
(let ((game (chess-game-create)) ; start out as white always
display engine)
(chess-display-set-game
(chess-display-create chess-default-display t) game)
(chess-engine-set-game
(chess-engine-create chess-default-engine) game)))
(aset chess-puzzle-locations 3 puzzle-engine)))))))
(provide 'chess)
;;; chess.el ends here
|
