399 |
(type-break-keystroke-reset) |
(type-break-keystroke-reset) |
400 |
(type-break-mode-line-countdown-or-break nil) |
(type-break-mode-line-countdown-or-break nil) |
401 |
|
|
|
(if (boundp 'save-some-buffers-always) |
|
|
(add-to-list 'save-some-buffers-always |
|
|
(expand-file-name type-break-file-name))) |
|
|
|
|
402 |
(setq type-break-time-last-break (type-break-get-previous-time)) |
(setq type-break-time-last-break (type-break-get-previous-time)) |
403 |
|
|
404 |
;; schedule according to break time from session file |
;; schedule according to break time from session file |
433 |
(do-auto-save) |
(do-auto-save) |
434 |
(with-current-buffer (find-file-noselect type-break-file-name |
(with-current-buffer (find-file-noselect type-break-file-name |
435 |
'nowarn) |
'nowarn) |
436 |
(set-buffer-modified-p nil) |
(setq buffer-save-without-query t) |
437 |
|
(set-buffer-modified-p nil) |
438 |
(unlock-buffer) |
(unlock-buffer) |
439 |
(kill-this-buffer)) |
(kill-this-buffer)) |
|
(if (boundp 'save-some-buffers-always) |
|
|
(setq save-some-buffers-always |
|
|
(remove (expand-file-name type-break-file-name) |
|
|
save-some-buffers-always))) |
|
440 |
(and (interactive-p) |
(and (interactive-p) |
441 |
(message "Type Break mode is disabled"))))) |
(message "Type Break mode is disabled"))))) |
442 |
type-break-mode) |
type-break-mode) |
508 |
(defun type-break-file-keystroke-count () |
(defun type-break-file-keystroke-count () |
509 |
"File keystroke count in `type-break-file-name', unless the file is locked." |
"File keystroke count in `type-break-file-name', unless the file is locked." |
510 |
(if (not (stringp (file-locked-p type-break-file-name))) |
(if (not (stringp (file-locked-p type-break-file-name))) |
511 |
(with-current-buffer (find-file-noselect type-break-file-name |
;; Prevent deactivation of the mark in some other buffer. |
512 |
'nowarn) |
(let (deactivate-mark) |
513 |
(save-excursion |
(with-current-buffer (find-file-noselect type-break-file-name |
514 |
(let ((inhibit-read-only t)) |
'nowarn) |
515 |
(goto-char (point-min)) |
(save-excursion |
516 |
(forward-line) |
(let ((inhibit-read-only t)) |
517 |
(delete-region (point) (save-excursion (end-of-line) (point))) |
(goto-char (point-min)) |
518 |
(insert (format "%s" type-break-keystroke-count)) |
(forward-line) |
519 |
;; file saving is left to auto-save |
(delete-region (point) (save-excursion (end-of-line) (point))) |
520 |
))))) |
(insert (format "%s" type-break-keystroke-count)) |
521 |
|
;; file saving is left to auto-save |
522 |
|
)))))) |
523 |
|
|
524 |
(defun timep (time) |
(defun timep (time) |
525 |
"If TIME is in the format returned by `current-time' then |
"If TIME is in the format returned by `current-time' then |