Add support for generating randomized starting position, ala Fischer

Random.

1 files changed, 11 insertions, 3 deletions

diff --git a/chess-display.el b/chess-display.el
index 9dc80a3..7c488d6 100644
--- a/chess-display.el
+++ b/chess-display.el
@@ -317,6 +317,7 @@ See `chess-display-type' for the different kinds of displays."
     (define-key map [?M] 'chess-display-manual-move)
     (define-key map [?@] 'chess-display-remote)
     (define-key map [? ] 'chess-display-pass)
+    (define-key map [?S] 'chess-display-shuffle)
 
     (define-key map [?<] 'chess-display-move-first)
     (define-key map [?,] 'chess-display-move-backward)
@@ -475,6 +476,14 @@ Basically, it means we are playing, not editing or reviewing."
 	     (= 0 (chess-display-index nil)))
     (chess-game-run-hooks chess-display-game 'pass)))
 
+(defun chess-display-shuffle ()
+  "Generate a shuffled opening position."
+  (interactive)
+  (when (and (chess-display-active-p)
+	     (= 0 (chess-display-index nil)))
+    (chess-game-set-start-position chess-display-game
+				   (chess-fischer-random-position))))
+
 (defun chess-display-set-current (dir)
   "Change the currently displayed board.
 Direction may be - or +, to move forward or back, or t or nil to jump
@@ -547,9 +556,8 @@ to the end or beginning."
   "Send the current board configuration to the user."
   (interactive)
   (if chess-display-game
-      (chess-game-set-plies
-       chess-display-game
-       (list (chess-ply-create (chess-display-position nil)))))
+      (chess-game-set-start-position chess-display-game
+				     (chess-display-position nil)))
   (setq chess-display-edit-mode nil))
 
 (defun chess-display-restore-board ()