blob: e93c3bc4dd18e726a1b43099b0f73f290634203c (
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; A special kind of display that merely autosaves the game
;;
(require 'chess-game)
(require 'chess-database)
(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)
(defcustom chess-autosave-database nil
"If non-nil, a chess database file in which completed games are appended."
:type '(choice file (const :tag "Do not save completed games" nil))
:group 'chess-autosave)
(defcustom chess-autosave-filter-function nil
"A function called to determine which games are saved in databases.
The function will receive a game object, and usually will make its
determination based on the headers. If it returns a non-nil value,
the game will be stored in the `chess-autosave-database'.
If this variable is set to nil, all games will be saved."
:type '(choice (const :tag "Always save" nil) function)
: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)
(if (not (chess-game-over-p game))
(chess-autosave-write game chess-autosave-file)
(erase-buffer)
(if (and chess-autosave-database
(or (null chess-autosave-filter-function)
(funcall chess-autosave-filter-function game)))
(let ((database (chess-database-open chess-autosave-database)))
(chess-database-write database game)
(chess-database-close database)))))
((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
|
