diff options
Diffstat (limited to 'chess-sound.el')
| -rw-r--r-- | chess-sound.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/chess-sound.el b/chess-sound.el index 8761f1d..1740261 100644 --- a/chess-sound.el +++ b/chess-sound.el @@ -51,25 +51,19 @@ (apply 'call-process chess-sound-program nil nil nil (append chess-sound-args (list file)))) -(defun chess-sound-handler (event &rest args) - "This display module presents a standard chessboard. -See `chess-display-type' for the different kinds of displays." +(defun chess-sound-handler (game event &rest args) (cond ((eq event 'initialize) - (kill-buffer (current-buffer)) - (set-buffer (generate-new-buffer " *chess-sound*")) (and (file-directory-p chess-sound-directory) (file-readable-p (expand-file-name "move.wav" chess-sound-directory)) (or (eq chess-sound-play-function 'play-sound-file) - (file-executable-p chess-sound-program)) - (current-buffer))) + (file-executable-p chess-sound-program)))) ((eq event 'move) - (let* ((ply (chess-game-ply chess-display-game - (1- (chess-game-index chess-display-game)))) + (let* ((ply (chess-game-ply game (1- (chess-game-index game)))) (pos (chess-ply-pos ply))) - (if (eq (chess-game-data chess-display-game 'my-color) + (if (eq (chess-game-data game 'my-color) (chess-pos-side-to-move pos)) (if chess-sound-my-moves (chess-sound "move")) |