blob: efb90dfbdf69a09c85bac55c86ece7b569ec68cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; A special kind of display that merely autosaves the game
;;
(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? ")
(chess-disable-autosave . "Disable autosaving for this game? ")
(autosave-available . "There is an autosave file; type ~ after connecting to read it")))
(defun chess-autosave-handler (game event &rest args)
(cond
((eq event 'initialize)
(kill-buffer (current-buffer))
(set-buffer (find-file-noselect chess-autosave-file t))
(buffer-disable-undo)
(setq buffer-auto-save-file-name nil)
t)
((eq event 'check-autosave)
(if (file-readable-p chess-autosave-file)
(if (y-or-n-p (chess-string 'chess-read-autosave))
(progn
(chess-autosave-read game chess-autosave-file)
(erase-buffer))
(if (y-or-n-p (chess-string 'chess-delete-autosave))
(erase-buffer)
(if (y-or-n-p (chess-string 'chess-disable-autosave))
(chess-autosave-handler game 'disable-autosave))))))
((eq event 'announce-autosave)
(if (file-readable-p chess-autosave-file)
(chess-message 'autosave-available)))
((eq event 'disable-autosave)
(chess-autosave-handler game 'destroy)
(chess-module-destroy (current-buffer)))
((eq event 'post-move)
(chess-autosave-write game chess-autosave-file))
((eq event 'destroy)
(set-buffer-modified-p nil)
(if (file-exists-p chess-autosave-file)
(delete-file chess-autosave-file)))))
(defun chess-prin1-ply (ply)
(insert "([")
(let ((pos (chess-ply-pos ply)))
(dotimes (i 74)
(prin1 (aref pos i) (current-buffer))
(insert ? )))
(insert "nil]")
(let ((changes (chess-ply-changes ply)))
(if changes
(insert ? ))
(while changes
(if (eq (car changes) :next-pos)
(setq changes (cddr changes))
(prin1 (car changes) (current-buffer))
(if (cdr changes)
(insert ? ))
(setq changes (cdr changes)))))
(insert ")"))
(defun chess-autosave-write (game file)
"Write a chess GAME to FILE as raw Lisp."
(let ((index (chess-game-index game)))
(if (or (= 1 index) (and (bobp) (eobp)))
(progn
(erase-buffer)
(prin1 (chess-game-tags game)
(current-buffer))
(insert "\n(\n;;## ply 0\n"))
(goto-char (point-max))
(re-search-backward "^;;## ply")
(forward-line)
(delete-region (point) (point-max)))
(chess-prin1-ply (chess-game-ply game (1- index)))
(insert (format "\n;;## ply %d\n" index))
(chess-prin1-ply (chess-game-ply game))
(insert ")\n")
(basic-save-buffer)
(message nil)))
(defun chess-autosave-read (game file)
"Read a chess game as raw Lisp from FILE."
(goto-char (point-min))
(chess-game-set-tags game (read (current-buffer)))
(let* ((plies (read (current-buffer)))
(game-plies plies)
prev-ply)
(while plies
(if prev-ply
(chess-pos-set-preceding-ply (chess-ply-pos (car plies))
prev-ply))
(if (cdr plies)
(chess-ply-set-keyword (car plies) :next-pos
(chess-ply-pos (cadr plies))))
(setq prev-ply (car plies)
plies (cdr plies)))
(chess-game-set-plies game game-plies)))
(provide 'chess-autosave)
;;; chess-autosave.el ends here
|
