Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Small dunnet score file improvements

Browse source 
* lisp/play/dunnet.el (dun-log-file): Switch to per-user default.
(dun-do-logfile): Handle non-existing score file.
This commit is contained in:
Glenn Morris 2017-02-23 13:22:31 -05:00
parent e50317fb72
commit 16efea3a88
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/play/dunnet.el
View file

@ -27,10 +27,6 @@
;; This game can be run in batch mode. To do this, use:
;; emacs -batch -l dunnet
;;; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;;; The log file should be set for your system, and it must
;;; be writable by all.
;;; Code:
(defgroup dunnet nil
@ -38,8 +34,13 @@
:prefix "dun-"
:group 'games)
(defcustom dun-log-file "/usr/local/dunnet.score"
;; Cf gamegrid. dunnet normally runs in batch mode, where
;; locate-user-emacs-file doesn't create directories.
(defcustom dun-log-file (expand-file-name "dunnet-scores"
(let (noninteractive)
(locate-user-emacs-file "games/")))
"Name of file to store score information for dunnet."
:version "26.1"
:type 'file
:group 'dunnet)
@ -3068,11 +3069,15 @@ File not found")))
(setq dun-room 0)))))
;; See gamegrid-add-score; but that only handles a single integer score.
(defun dun-do-logfile (type how)
(let (ferror)
(with-temp-buffer
(condition-case err
(insert-file-contents dun-log-file)
(if (file-exists-p dun-log-file)
(insert-file-contents dun-log-file)
(let ((dir (file-name-directory dun-log-file)))
(if dir (make-directory dir t))))
(error
(setq ferror t)
(dun-mprincl (error-message-string err))))