;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\207" [require chess-game chess-display chess-engine custom-declare-group chess nil "An Emacs chess playing program." :group games :link (custom-manual "(chess)Top")] 8) #@41 The version of the Emacs chess program. (defconst chess-version "2.0.4" (#$ . 342)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323%\210\324\325!\203;\325\326\327\"\210\300\207" [custom-declare-variable chess-default-display funcall function #[0 "\300\207" [(chess-images chess-ics1 chess-plain)] 1] "Default display to be used when starting a chess session.\nA list indicates a series of alternatives if the first display is\nnot available." :type (choice symbol (repeat symbol)) chess-default-modules #[0 "\300\207" [((chess-sound chess-announce) chess-clock)] 1] "Modules to be used when starting a chess session.\nA sublist indicates a series of alternatives, if the first is not\navailable.\nThese can do just about anything." (repeat (choice symbol (repeat symbol))) chess-default-engine #[0 "\300\207" [(chess-crafty chess-stockfish chess-glaurung chess-fruit chess-gnuchess chess-phalanx chess-ai)] 1] "Default engine to be used when starting a chess session.\nA list indicates a series of alternatives if the first engine is not\navailable." (choice symbol (repeat symbol)) chess-full-name #[0 "\300 \207" [user-full-name] 1] "The full name to use when playing chess." string fboundp font-lock-add-keywords emacs-lisp-mode (("(\\(chess-error\\)\\>" 1 font-lock-warning-face))] 6) #@43 (fn MODULE GAME MY-COLOR DISABLE-POPUP) (defalias 'chess--create-display #[1028 "\300#\211\205\301\302#\210\203\303!\210\211\207" [chess-display-create chess-game-set-data my-color chess-display-disable-popup] 9 (#$ . 1754)]) #@47 (fn MODULE GAME RESPONSE-HANDLER CTOR-ARGS) (defalias 'chess--create-engine #[1028 "\300\301%\211\205\302\303\"\210\211\207" [apply chess-engine-create chess-engine-command ready] 10 (#$ . 1999)]) #@170 Create modules from MODULE-LIST with CREATE-FUNC and ARGS. If an element of MODULE-LIST is a sublist, treat it as alternatives. (fn MODULE-LIST CREATE-FUNC &rest ARGS) (defalias 'chess-create-modules #[642 "\300\211\203Z\211@\3009\203$\301#\211\262\203R\211B\262\210\202S\203R\30218\301@#0\202:\210\300\211\262\203K\211B\262\300\262\202$A\262\202$\210A\266\202\202\210\211\237\207" [nil apply (error)] 11 (#$ . 2212)]) (chess-message-catalog 'english '((no-engines-found . "Could not find any chess engines to play against; install gnuchess!"))) #@271 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. (fn &optional ENGINE DISABLE-POPUP ENGINE-RESPONSE-HANDLER &rest ENGINE-CTOR-ARGS) (defalias 'chess #[896 "\304 \305\306C\307\310 %\262\211@\203:\311\312\"\210\211@\211\211\203,r\211q\210\310\211)\266\2021\310\211\266\204:\313@!\210\211\306\n\314#\244\210\315=?\205Y\306\206P C\316%@B\262\211@\204m\317\305\320\321\322#!\266\207" [chess-default-display chess-module-leader chess-default-modules chess-default-engine chess-game-create nil chess-create-modules chess--create-display t mapc chess-display-update chess-display-popup chess-module-create none chess--create-engine no-engines-found message apply chess-string] 13 (#$ . 2801) (byte-code "\203\302\303\304\305!\211G\306V\203\211\202\307\262P!\202 C\207" [current-prefix-arg chess-default-engine intern "chess-" read-string "Engine to play against: " 0 "none"] 5)]) (byte-code "\301\302\303\"\210\304\305\306#\207" [menu-bar-games-menu defalias chess-session chess define-key [chess] (menu-item "Chess" chess :help "Play Chess")] 4) #@210 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'. (fn PERSPECTIVE &optional MODULES-TOO) (defalias 'chess-create-display #[513 "\211\203\301\302!A@\303\"\207\304C\305\306 \307%@\207" [chess-default-display chess-session none chess-display-set-perspective* chess-create-modules chess--create-display chess-game-create nil] 8 (#$ . 4028)]) (provide 'chess)