1 files changed, 63 insertions, 0 deletions
diff --git a/chess-autosave.el b/chess-autosave.el
new file mode 100644
index 0000000..8652070
--- /dev/null
+++ b/chess-autosave.el
@@ -0,0 +1,63 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; A special kind of display that merely autosaves the game
+;;
+;; $Revision$
+
+(require 'chess-game)
+
+(defgroup chess-autosave nil
+  "A special display that autosaves after each move."
+  :group 'chess-display)
+
+(defcustom chess-autosave-file "~/.chess-save"
+  "Filename in which to autosave chess games."
+  :type '(choice file (const :tag "Do not auto-save" nil))
+  :group 'chess-autosave)
+
+(chess-message-catalog 'english
+  '((chess-read-autosave . "There is a chess autosave file, read it? ")
+    (chess-delete-autosave . "Delete the autosave file? ")))
+
+(defun chess-autosave-handler (event &rest args)
+  (cond
+   ((eq event 'initialize)
+    (if (file-readable-p chess-autosave-file)
+	(if (y-or-n-p (chess-string 'chess-read-autosave))
+	    (prog1
+		(chess-game-copy-game chess-display-game
+				      (chess-read-game chess-autosave-file))
+	      (delete-file chess-autosave-file))
+	  (ignore
+	   (if (y-or-n-p (chess-string 'chess-delete-autosave))
+	       (delete-file chess-autosave-file)))))
+    (kill-buffer (current-buffer))
+    (set-buffer (find-file-noselect chess-autosave-file t))
+    (current-buffer))
+
+   ((eq event 'post-move)
+    (chess-autosave-write chess-display-game chess-autosave-file))
+
+   ((eq event 'shutdown)
+    (delete-file chess-autosave-file))))
+
+(defun chess-autosave-write (game file)
+  "Write a chess GAME to FILE as raw Lisp."
+  (let ((game-copy (copy-alist game)))
+    (chess-game-set-hooks game-copy nil)
+    (chess-game-set-data-alist game-copy nil)
+    (with-current-buffer (find-file-noselect file t)
+      (erase-buffer)
+      (prin1 game-copy (current-buffer))
+      (basic-save-buffer)
+      (message nil))))
+
+(defun chess-autosave-read (file)
+  "Read a chess game as raw Lisp from FILE."
+  (with-current-buffer (find-file-noselect file t)
+    (goto-char (point-min))
+    (read (current-buffer))))
+
+(provide 'chess-autosave)
+
+;;; chess-autosave.el ends here