code.delx.au - gnu-emacs-elpa/blob - chess.el

   1 a0 243
   2 ;;; chess.el --- Play chess in Emacs
   3
   4 ;; Copyright (C) 2001 John Wiegley <johnw@gnu.org>
   5
   6 ;; Emacs Lisp Archive Entry
   7 ;; Filename: chess.el
   8 ;; Version: 2.0
   9 ;; Keywords: games
  10 ;; Author: John Wiegley <johnw@gnu.org>
  11 ;; Maintainer: John Wiegley <johnw@gnu.org>
  12 ;; Description: Play chess in Emacs
  13 ;; URL: http://www.gci-net.com/~johnw/Emacs/packages/chess.tar.gz
  14 ;; Compatibility: Emacs20, Emacs21, XEmacs21
  15
  16 ;; This file is not part of GNU Emacs.
  17
  18 ;; This is free software; you can redistribute it and/or modify it under
  19 ;; the terms of the GNU General Public License as published by the Free
  20 ;; Software Foundation; either version 2, or (at your option) any later
  21 ;; version.
  22 ;;
  23 ;; This is distributed in the hope that it will be useful, but WITHOUT
  24 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  25 ;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  26 ;; for more details.
  27 ;;
  28 ;; You should have received a copy of the GNU General Public License
  29 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  30 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  31 ;; MA 02111-1307, USA.
  32
  33 ;;; Commentary:
  34
  35 ;; Welcome to Emacs Chess, a chess playing module for GNU Emacs.
  36 ;;
  37 ;; This program will not play chess against you; it is not a chess
  38 ;; computer.  It can use a chess computer, however, to simulate your
  39 ;; opponent's moves.  This is decided when you choose your opponent.
  40 ;; You must, of course, have that chess computer installed.  See the
  41 ;; top of chess-player.el for more information.
  42 ;;
  43 ;; To just get a chessboard up, put the following in your .emacs file:
  44 ;;
  45 ;;   (add-to-list 'load-list "<the path to Emacs Chess>")
  46 ;;
  47 ;;   (autoload 'chess "chess" "Play a game of chess" t)
  48 ;;
  49 ;; Now you can type `M-x chess', and play chess against anyone else in
  50 ;; the room with you, without having to install anything more.
  51 ;;
  52 ;; Once this is working, the next thing to do is to customize
  53 ;; `chess-use-modules'.  This is a list of functionality modules used
  54 ;; by chess.el to provide its functionality.  You can enable or
  55 ;; disable modules so that Emacs Chess better suites your tastes.
  56 ;; Those modules in turn often have configuration variables, and
  57 ;; appropriate documentation at the top of the related file.
  58 ;;
  59 ;; Emacs Chess is designed in a highly modular fashion, using loosely
  60 ;; coupled modules that respond to events on the chess board.  This
  61 ;; makes it very easy for programmers to add their own types of
  62 ;; displays, opponents, analysis programs, etc.  See the documentation
  63 ;; in chess-module.el to learn more.
  64 ;;
  65 ;; There is no documentation for this program other than what exists
  66 ;; in the source files.  This is because the source files aim at being
  67 ;; self documenting, and as chess is such a simple game, most chess
  68 ;; players aren't going to need to know much about this program in
  69 ;; particular.
  70 ;;
  71 ;; However, most people will probably be interested in reading the top
  72 ;; of chess-display.el and chess-pgn.el, which describe the user
  73 ;; interface commands available in each of those buffer types.
  74
  75 ;;; Code:
  76 (require 'cl)
  77
  78
  79 (require 'chess-game)
  80 (require 'chess-display)
  81 (require 'chess-engine)
  82 (require 'chess-pgn)
  83
  84 (defgroup chess nil
  85   "An Emacs chess playing program."
  86   :group 'games)
  87 (defconst chess-version "2.0a5"
  88 (defconst chess-version "2.0a7"
  89   "The version of the Emacs chess program.")
  90
  91 (defcustom chess-default-display (if (display-graphic-p)
  92                                      'chess-images 'chess-ics1)
  93   "Default module set to be used when starting a chess session."
  94   :type 'sexp
  95   :group 'chess)
  96
  97 (defcustom chess-default-engine 'chess-gnuchess
  98   "Default engine to be used when starting a chess session."
  99   :type 'sexp
 100   :group 'chess)
 101 (defcustom chess-announce-moves t
 102 (defcustom chess-announce-moves t
 103 This happens verbally if 'festival' is installed, otherwise it just
 104 prints a message in your minibuffer, which works well for Emacspeak
 105 users."
 106 minibuffer, which works well for Emacspeak users."
 107   :type 'boolean
 108   :group 'chess)
 109
 110 (defcustom chess-full-name (user-full-name)
 111   "The full name to use when playing chess."
 112   :type 'string
 113   :group 'chess)
 114
 115 (defun chess (&optional arg)
 116   "Start a game of chess."
 117   (interactive "P")
 118       chess-default-engine)))
 119
 120
 121   (require chess-default-display)
 122   (let* ((my-color t)                   ; we start out as white always
 123          (display (chess-display-create chess-default-display my-color))
 124          (game (chess-game-create)))
 125
 126
 127         (chess-display-disable-popup display))
 128     (chess-display-set-game display game)
 129     (chess-display-set-main display)
 130     (let ((engine-module
 131            (if arg
 132                (intern
 133                 (or (concat "chess-"
 134                             (read-string "Engine module to play against: "))
 135                     "chess-none"))
 136              chess-default-engine)))
 137     (let ((engine-module (or engine chess-default-engine)))
 138         (let ((engine (chess-engine-create engine-module)))
 139                              engine-ctor-args)))
 140           (chess-engine-set-game* engine game)
 141           ;; for the sake of engines which are ready to play now, and
 142           ;; which don't need connect/accept negotiation (most
 143           ;; computerized engines fall into this category), we need to
 144           ;; let them know we're ready to begin
 145           (chess-engine-command engine 'ready))
 146         (when chess-announce-moves
 147           (require 'chess-announce)
 148           (chess-announce-for-game game))))
 149                   (chess-announce-for-game game)))))))
 150     (chess-display-update display t)))
 151     (cons display engine)))
 152
 153 ;;;###autoload
 154 (defun chess-read-pgn (&optional file)
 155   "Read and display a PGN game after point."
 156   (interactive "P")
 157   (if (or file (not (search-forward "[Event" nil t)))
 158       (setq file (read-file-name "Read a PGN game from file: ")))
 159   (if file
 160       (find-file file))
 161   (let ((game (chess-pgn-to-game)))
 162     (when game
 163       (require chess-default-display)
 164       (chess-display-set-game
 165        (chess-display-create chess-default-display
 166                              (chess-game-side-to-move game)) game))))
 167
 168 (defvar chess-puzzle-locations nil)
 169
 170 (defun chess-puzzle-next ()
 171   "Play the next puzzle in the collection, selected randomly."
 172   (interactive)
 173   (if chess-puzzle-locations
 174       (chess-puzzle (aref chess-puzzle-locations 0))))
 175
 176 ;;;###autoload
 177 (defun chess-puzzle (file)
 178   "Pick a random puzzle from FILE, and solve it against the default engine.
 179 The spacebar in the display buffer is bound to `chess-puzzle-next',
 180 making it easy to go on to the next puzzle once you've solved one."
 181   (interactive "fRead chess puzzles from: ")
 182   (save-excursion
 183     (with-current-buffer (find-file-noselect file)
 184       (when (or (null chess-puzzle-locations)
 185                 (not (equal file (aref chess-puzzle-locations 0))))
 186         (let (locations)
 187           (goto-char (point-min))
 188           (while (search-forward "[Event" nil t)
 189             (push (point) locations))
 190           (setq chess-puzzle-locations (vector file locations nil nil)))
 191         (random t))
 192       (goto-char (nth (random (length (aref chess-puzzle-locations 1)))
 193                       (aref chess-puzzle-locations 1)))
 194       (let ((game (chess-pgn-to-game)))
 195         (when game
 196           (require chess-default-display)
 197           (let ((puzzle-display
 198                  (or (and (buffer-live-p (aref chess-puzzle-locations 2))
 199                           (aref chess-puzzle-locations 2))
 200                      (chess-display-create chess-default-display
 201                                            (chess-game-side-to-move game)))))
 202             (chess-display-set-game puzzle-display game)
 203             (aset chess-puzzle-locations 2 puzzle-display)
 204             ;; setup spacebar as a convenient way to jump to the next puzzle
 205             (with-current-buffer puzzle-display
 206               (define-key (current-local-map) [? ] 'chess-puzzle-next)))
 207           (require chess-default-engine)
 208           (let ((puzzle-engine
 209                  (or (and (buffer-live-p (aref chess-puzzle-locations 3))
 210                           (aref chess-puzzle-locations 3))
 211                      (chess-engine-create chess-default-engine))))
 212             (chess-engine-set-game puzzle-engine game)
 213             (aset chess-puzzle-locations 3 puzzle-engine)))))))
 214
 215 (provide 'chess)
 216
 217 ;;; chess.el ends here