annotate lisp/type-break.el @ 105233:0bf57cf45472

(move_it_in_display_line_to): Fix a typo in a comment.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 27 Sep 2009 17:32:05 +0000
parents a9dc0e7c3f2b
children bd2966850aac
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
1 ;;; type-break.el --- encourage rests from typing at appropriate intervals
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
2
74442
b2e5081b9320 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 68651
diff changeset
3 ;; Copyright (C) 1994, 1995, 1997, 2000, 2001, 2002, 2003,
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100171
diff changeset
4 ;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
5
23240
b9d8ec6db59a Comment fixes only.
Noah Friedman <friedman@splode.com>
parents: 23239
diff changeset
6 ;; Author: Noah Friedman
b9d8ec6db59a Comment fixes only.
Noah Friedman <friedman@splode.com>
parents: 23239
diff changeset
7 ;; Maintainer: Noah Friedman <friedman@splode.com>
9355
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
8 ;; Keywords: extensions, timers
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
9 ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
9355
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
10 ;; Created: 1994-07-13
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
11
9355
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
12 ;; This file is part of GNU Emacs.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
13
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
9355
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
16 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
17 ;; (at your option) any later version.
9355
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
18
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
22 ;; GNU General Public License for more details.
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
23
8ac258bc59ef Assign copyright to FSF, and change comments to reflect that type-break
Noah Friedman <friedman@splode.com>
parents: 8497
diff changeset
24 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
26
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
27 ;;; Commentary:
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
28
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
29 ;; The docstring for the function `type-break-mode' summarizes most of the
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
30 ;; details of the interface.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
31
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
32 ;; This package relies on the assumption that you live entirely in Emacs,
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
33 ;; as the author does. If that's not the case for you (e.g. you often
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
34 ;; suspend Emacs or work in other windows) then this won't help very much;
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
35 ;; it will depend on just how often you switch back to Emacs. At the very
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
36 ;; least, you will want to turn off the keystroke thresholds and rest
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
37 ;; interval tracking.
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
38
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
39 ;; If you prefer not to be queried about taking breaks, but instead just
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
40 ;; want to be reminded, do the following:
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
41 ;;
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
42 ;; (setq type-break-query-mode nil)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
43 ;;
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
44 ;; Or call the command `type-break-query-mode' with a negative prefix
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
45 ;; argument.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
46
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
47 ;; If you find echo area messages annoying and would prefer to see messages
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
48 ;; in the mode line instead, do M-x type-break-mode-line-message-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
49 ;; or set the variable of the same name to `t'.
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
50
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
51 ;; This program can truly cons up a storm because of all the calls to
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
52 ;; `current-time' (which always returns 3 fresh conses). I'm dismayed by
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
53 ;; this, but I think the health of my hands is far more important than a
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
54 ;; few pages of virtual memory.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
55
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
56 ;; This program has no hope of working in Emacs 18.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
57
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
58 ;; This package was inspired by Roland McGrath's hanoi-break.el.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
59 ;; Several people contributed feedback and ideas, including
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 24648
diff changeset
60 ;; Roland McGrath <roland@gnu.org>
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
61 ;; Kleanthes Koniaris <kgk@koniaris.com>
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 24648
diff changeset
62 ;; Mark Ashton <mpashton@gnu.org>
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
63 ;; Matt Wilding <wilding@cli.com>
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
64 ;; Robert S. Boyer <boyer@cs.utexas.edu>
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
65
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
66 ;;; Code:
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
67
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
68
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
69 (defgroup type-break nil
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
70 "Encourage the user to take a rest from typing at suitable intervals."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
71 :prefix "type-break"
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
72 :group 'keyboard)
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
73
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
74 ;;;###autoload
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
75 (defcustom type-break-mode nil
24547
ab118f20a10b (type-break-mode): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 23240
diff changeset
76 "Toggle typing break mode.
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
77 See the docstring for the `type-break-mode' command for more information.
24648
4c102f02bdcd (type-break-mode): Doc fix.
Dave Love <fx@gnu.org>
parents: 24550
diff changeset
78 Setting this variable directly does not take effect;
4c102f02bdcd (type-break-mode): Doc fix.
Dave Love <fx@gnu.org>
parents: 24550
diff changeset
79 use either \\[customize] or the function `type-break-mode'."
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
80 :set (lambda (symbol value)
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
81 (type-break-mode (if value 1 -1)))
23239
b88e81176427 (type-break-mode): remove :version field from defcustom declaration.
Noah Friedman <friedman@splode.com>
parents: 22069
diff changeset
82 :initialize 'custom-initialize-default
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
83 :type 'boolean
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
84 :group 'type-break
23239
b88e81176427 (type-break-mode): remove :version field from defcustom declaration.
Noah Friedman <friedman@splode.com>
parents: 22069
diff changeset
85 :require 'type-break)
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
86
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
87 ;;;###autoload
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
88 (defcustom type-break-interval (* 60 60)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
89 "Number of seconds between scheduled typing breaks."
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
90 :type 'integer
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
91 :group 'type-break)
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
92
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
93 ;;;###autoload
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
94 (defcustom type-break-good-rest-interval (/ type-break-interval 6)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
95 "Number of seconds of idle time considered to be an adequate typing rest.
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
96
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
97 When this variable is non-nil, Emacs checks the idle time between
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
98 keystrokes. If this idle time is long enough to be considered a \"good\"
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
99 rest from typing, then the next typing break is simply rescheduled for later.
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
100
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
101 If a break is interrupted before this much time elapses, the user will be
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
102 asked whether or not really to interrupt the break."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
103 :type 'integer
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
104 :group 'type-break)
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
105
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
106 ;;;###autoload
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
107 (defcustom type-break-good-break-interval nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
108 "Number of seconds considered to be an adequate explicit typing rest.
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
109
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
110 When this variable is non-nil, its value is considered to be a \"good\"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
111 length (in seconds) for a break initiated by the command `type-break',
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
112 overriding `type-break-good-rest-interval'. This provides querying of
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
113 break interruptions when `type-break-good-rest-interval' is nil."
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
114 :type 'integer
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
115 :group 'type-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
116
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
117 ;;;###autoload
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
118 (defcustom type-break-keystroke-threshold
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
119 ;; Assuming typing speed is 35wpm (on the average, do you really
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
120 ;; type more than that in a minute? I spend a lot of time reading mail
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
121 ;; and simply studying code in buffers) and average word length is
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
122 ;; about 5 letters, default upper threshold to the average number of
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
123 ;; keystrokes one is likely to type in a break interval. That way if the
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
124 ;; user goes through a furious burst of typing activity, cause a typing
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
125 ;; break to be required sooner than originally scheduled.
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
126 ;; Conversely, the minimum threshold should be about a fifth of this.
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
127 (let* ((wpm 35)
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
128 (avg-word-length 5)
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
129 (upper (* wpm avg-word-length (/ type-break-interval 60)))
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
130 (lower (/ upper 5)))
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
131 (cons lower upper))
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
132 "Upper and lower bound on number of keystrokes for considering typing break.
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
133 This structure is a pair of numbers (MIN . MAX).
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
134
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
135 The first number is the minimum number of keystrokes that must have been
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
136 entered since the last typing break before considering another one, even if
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
137 the scheduled time has elapsed; the break is simply rescheduled until later
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
138 if the minimum threshold hasn't been reached. If this first value is nil,
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
139 then there is no minimum threshold; as soon as the scheduled time has
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
140 elapsed, the user will always be queried.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
141
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
142 The second number is the maximum number of keystrokes that can be entered
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
143 before a typing break is requested immediately, pre-empting the originally
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
144 scheduled break. If this second value is nil, then no pre-emptive breaks
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
145 will occur; only scheduled ones will.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
146
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
147 Keys with bucky bits (shift, control, meta, etc) are counted as only one
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
148 keystroke even though they really require multiple keys to generate them.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
149
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
150 The command `type-break-guesstimate-keystroke-threshold' can be used to
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
151 guess a reasonably good pair of values for this variable."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
152 :type 'sexp
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
153 :group 'type-break)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
154
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
155 (defcustom type-break-query-mode t
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
156 "Non-nil means ask whether or not to prompt user for breaks.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
157 If so, call the function specified in the value of the variable
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
158 `type-break-query-function' to do the asking."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
159 :type 'boolean
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
160 :group 'type-break)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
161
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
162 (defcustom type-break-query-function 'yes-or-no-p
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
163 "Function to use for making query for a typing break.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
164 It should take a string as an argument, the prompt.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
165 Usually this should be set to `yes-or-no-p' or `y-or-n-p'.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
166
50868
7588d6aa3cb7 (type-break-good-rest-interval, type-break-query-mode)
Juanma Barranquero <lekktu@gmail.com>
parents: 50551
diff changeset
167 To avoid being queried at all, set `type-break-query-mode' to nil."
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
168 :type '(radio function
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
169 (function-item yes-or-no-p)
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
170 (function-item y-or-n-p))
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
171 :group 'type-break)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
172
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
173 (defcustom type-break-query-interval 60
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
174 "Number of seconds between queries to take a break, if put off.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
175 The user will continue to be prompted at this interval until he or she
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
176 finally submits to taking a typing break."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
177 :type 'integer
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
178 :group 'type-break)
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
179
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
180 (defcustom type-break-time-warning-intervals '(300 120 60 30)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
181 "List of time intervals for warnings about upcoming typing break.
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
182 At each of the intervals (specified in seconds) away from a scheduled
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
183 typing break, print a warning in the echo area."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
184 :type '(repeat integer)
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
185 :group 'type-break)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
186
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
187 (defcustom type-break-keystroke-warning-intervals '(300 200 100 50)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
188 "List of keystroke measurements for warnings about upcoming typing break.
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
189 At each of the intervals (specified in keystrokes) away from the upper
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
190 keystroke threshold, print a warning in the echo area.
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
191 If either this variable or the upper threshold is set, then no warnings
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
192 will occur."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
193 :type '(repeat integer)
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
194 :group 'type-break)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
195
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
196 (defcustom type-break-warning-repeat 40
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
197 "Number of keystrokes for which warnings should be repeated.
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
198 That is, for each of this many keystrokes the warning is redisplayed
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
199 in the echo area to make sure it's really seen."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
200 :type 'integer
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
201 :group 'type-break)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
202
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
203 (defcustom type-break-time-stamp-format "[%H:%M] "
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
204 "Timestamp format used to prefix messages.
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
205 Format specifiers are as used by `format-time-string'."
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
206 :type 'string
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
207 :group 'type-break)
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
208
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
209 (defcustom type-break-demo-functions
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
210 '(type-break-demo-boring type-break-demo-life type-break-demo-hanoi)
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
211 "List of functions to consider running as demos during typing breaks.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
212 When a typing break begins, one of these functions is selected randomly
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
213 to have Emacs do something interesting.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
214
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
215 Any function in this list should start a demo which ceases as soon as a
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
216 key is pressed."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
217 :type '(repeat function)
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
218 :group 'type-break)
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
219
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
220 (defcustom type-break-demo-boring-stats nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
221 "Show word per minute and keystroke figures in the Boring demo."
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
222 :type 'boolean
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
223 :group 'type-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
224
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
225 (defcustom type-break-terse-messages nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
226 "Use slightly terser messages."
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
227 :type 'boolean
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
228 :group 'type-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
229
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
230 (defcustom type-break-file-name (convert-standard-filename "~/.type-break")
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
231 "Name of file used to save state across sessions.
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
232 If this is nil, no data will be saved across sessions."
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
233 :type 'file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
234 :group 'type-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
235
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
236 (defvar type-break-post-command-hook '(type-break-check)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
237 "Hook run indirectly by `post-command-hook' for typing break functions.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
238 This is not really intended to be set by the user, but it's probably
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
239 harmless to do so. Mainly it is used by various parts of the typing break
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
240 program to delay actions until after the user has completed some command.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
241 It exists because `post-command-hook' itself is inaccessible while its
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
242 functions are being run, and some type-break--related functions want to
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
243 remove themselves after running.")
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
244
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
245
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
246 ;; Mode line frobs
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
247
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
248 (defcustom type-break-mode-line-message-mode nil
100171
d42aff5ca541 * align.el:
Lute Kamstra <lute@gnu.org>
parents: 94678
diff changeset
249 "Non-nil means put type-break related messages in the mode line.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
250 Otherwise, messages typically go in the echo area.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
251
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
252 See also `type-break-mode-line-format' and its members."
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
253 :type 'boolean
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
254 :group 'type-break)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
255
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
256 (defvar type-break-mode-line-format
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
257 '(type-break-mode-line-message-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
258 (""
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
259 type-break-mode-line-break-message
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
260 type-break-mode-line-warning))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
261 "*Format of messages in the mode line concerning typing breaks.")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
262
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
263 (defvar type-break-mode-line-break-message
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
264 '(type-break-mode-line-break-message-p
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
265 type-break-mode-line-break-string))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
266
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
267 (defvar type-break-mode-line-break-message-p nil)
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
268 (defvar type-break-mode-line-break-string " *** TAKE A TYPING BREAK NOW ***")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
269
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
270 (defvar type-break-mode-line-warning
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
271 '(type-break-mode-line-break-message-p
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
272 ("")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
273 (type-break-warning-countdown-string
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
274 (" *** "
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
275 "Break in "
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
276 type-break-warning-countdown-string
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
277 " "
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
278 type-break-warning-countdown-string-type
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
279 "***"))))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
280
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
281 (defvar type-break-warning-countdown-string nil
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
282 "If non-nil, this is a countdown for the next typing break.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
283
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
284 This variable, in conjunction with `type-break-warning-countdown-string-type'
50551
f51ff6ca84ca (type-break-warning-countdown-string): Doc fix; escape open paren at col 0.
John Paul Wallington <jpw@pobox.com>
parents: 34145
diff changeset
285 \(which indicates whether this value is a number of keystrokes or seconds)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
286 is installed in `mode-line-format' to notify of imminent typing breaks.")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
287
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
288 (defvar type-break-warning-countdown-string-type nil
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
289 "Indicates the unit type of `type-break-warning-countdown-string'.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
290 It will be either \"seconds\" or \"keystrokes\".")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
291
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
292
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
293 ;; These are internal variables. Do not set them yourself.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
294
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
295 (defvar type-break-alarm-p nil)
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
296 (defvar type-break-keystroke-count 0)
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
297 (defvar type-break-time-last-break nil)
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
298 (defvar type-break-time-next-break nil)
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
299 (defvar type-break-time-last-command (current-time))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
300 (defvar type-break-current-time-warning-interval nil)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
301 (defvar type-break-current-keystroke-warning-interval nil)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
302 (defvar type-break-time-warning-count 0)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
303 (defvar type-break-keystroke-warning-count 0)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
304 (defvar type-break-interval-start nil)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
305
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
306
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
307 ;;;###autoload
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
308 (defun type-break-mode (&optional prefix)
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
309 "Enable or disable typing-break mode.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
310 This is a minor mode, but it is global to all buffers by default.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
311
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
312 When this mode is enabled, the user is encouraged to take typing breaks at
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
313 appropriate intervals; either after a specified amount of time or when the
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
314 user has exceeded a keystroke threshold. When the time arrives, the user
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
315 is asked to take a break. If the user refuses at that time, Emacs will ask
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
316 again in a short period of time. The idea is to give the user enough time
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
317 to find a good breaking point in his or her work, but be sufficiently
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
318 annoying to discourage putting typing breaks off indefinitely.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
319
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
320 A negative prefix argument disables this mode.
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
321 No argument or any non-negative argument enables it.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
322
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
323 The user may enable or disable this mode by setting the variable of the
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
324 same name, though setting it in that way doesn't reschedule a break or
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
325 reset the keystroke counter.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
326
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
327 If the mode was previously disabled and is enabled as a consequence of
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
328 calling this function, it schedules a break with `type-break-schedule' to
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
329 make sure one occurs (the user can call that command to reschedule the
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
330 break at any time). It also initializes the keystroke counter.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
331
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
332 The variable `type-break-interval' specifies the number of seconds to
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
333 schedule between regular typing breaks. This variable doesn't directly
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
334 affect the time schedule; it simply provides a default for the
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
335 `type-break-schedule' command.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
336
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
337 If set, the variable `type-break-good-rest-interval' specifies the minimum
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
338 amount of time which is considered a reasonable typing break. Whenever
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
339 that time has elapsed, typing breaks are automatically rescheduled for
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
340 later even if Emacs didn't prompt you to take one first. Also, if a break
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
341 is ended before this much time has elapsed, the user will be asked whether
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
342 or not to continue. A nil value for this variable prevents automatic
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
343 break rescheduling, making `type-break-interval' an upper bound on the time
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
344 between breaks. In this case breaks will be prompted for as usual before
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
345 the upper bound if the keystroke threshold is reached.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
346
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
347 If `type-break-good-rest-interval' is nil and
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
348 `type-break-good-break-interval' is set, then confirmation is required to
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
349 interrupt a break before `type-break-good-break-interval' seconds
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
350 have passed. This provides for an upper bound on the time between breaks
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
351 together with confirmation of interruptions to these breaks.
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
352
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
353 The variable `type-break-keystroke-threshold' is used to determine the
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
354 thresholds at which typing breaks should be considered. You can use
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
355 the command `type-break-guesstimate-keystroke-threshold' to try to
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
356 approximate good values for this.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
357
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
358 There are several variables that affect how or when warning messages about
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
359 imminent typing breaks are displayed. They include:
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
360
22049
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
361 `type-break-mode-line-message-mode'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
362 `type-break-time-warning-intervals'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
363 `type-break-keystroke-warning-intervals'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
364 `type-break-warning-repeat'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
365 `type-break-warning-countdown-string'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
366 `type-break-warning-countdown-string-type'
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
367
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
368 There are several variables that affect if, how, and when queries to begin
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
369 a typing break occur. They include:
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
370
22049
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
371 `type-break-query-mode'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
372 `type-break-query-function'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
373 `type-break-query-interval'
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
374
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
375 The command `type-break-statistics' prints interesting things.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
376
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
377 Finally, a file (named `type-break-file-name') is used to store information
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
378 across Emacs sessions. This provides recovery of the break status between
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
379 sessions and after a crash. Manual changes to the file may result in
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
380 problems."
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
381 (interactive "P")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
382 (type-break-check-post-command-hook)
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
383
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
384 (let ((already-enabled type-break-mode))
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
385 (setq type-break-mode (>= (prefix-numeric-value prefix) 0))
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
386
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
387 (cond
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
388 ((and already-enabled type-break-mode)
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
389 (and (interactive-p)
22049
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
390 (message "Type Break mode is already enabled")))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
391 (type-break-mode
59684
bc6858294dbb (type-break-mode): Add a test for type-break-file-name being non-nil.
Eli Zaretskii <eliz@gnu.org>
parents: 59554
diff changeset
392 (when type-break-file-name
bc6858294dbb (type-break-mode): Add a test for type-break-file-name being non-nil.
Eli Zaretskii <eliz@gnu.org>
parents: 59554
diff changeset
393 (with-current-buffer (find-file-noselect type-break-file-name 'nowarn)
bc6858294dbb (type-break-mode): Add a test for type-break-file-name being non-nil.
Eli Zaretskii <eliz@gnu.org>
parents: 59554
diff changeset
394 (setq buffer-save-without-query t)))
59489
a72af674f3d8 (type-break-mode): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 59129
diff changeset
395
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
396 (or global-mode-string
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
397 (setq global-mode-string '("")))
22069
3df130425e5e (type-break-mode): Don't alter global-mode-string.
Richard M. Stallman <rms@gnu.org>
parents: 22049
diff changeset
398 (or (assq 'type-break-mode-line-message-mode
3df130425e5e (type-break-mode): Don't alter global-mode-string.
Richard M. Stallman <rms@gnu.org>
parents: 22049
diff changeset
399 minor-mode-alist)
3df130425e5e (type-break-mode): Don't alter global-mode-string.
Richard M. Stallman <rms@gnu.org>
parents: 22049
diff changeset
400 (setq minor-mode-alist
3df130425e5e (type-break-mode): Don't alter global-mode-string.
Richard M. Stallman <rms@gnu.org>
parents: 22049
diff changeset
401 (cons type-break-mode-line-format
3df130425e5e (type-break-mode): Don't alter global-mode-string.
Richard M. Stallman <rms@gnu.org>
parents: 22049
diff changeset
402 minor-mode-alist)))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
403 (type-break-keystroke-reset)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
404 (type-break-mode-line-countdown-or-break nil)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
405
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
406 (setq type-break-time-last-break
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
407 (or (type-break-get-previous-time)
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
408 (current-time)))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
409
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
410 ;; schedule according to break time from session file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
411 (type-break-schedule
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
412 (let (diff)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
413 (if (and type-break-time-last-break
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
414 (< (setq diff (type-break-time-difference
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
415 type-break-time-last-break
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
416 (current-time)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
417 type-break-interval))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
418 ;; use the file's value
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
419 (progn
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
420 (setq type-break-keystroke-count
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
421 (type-break-get-previous-count))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
422 ;; file the time, in case it was read from the auto-save file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
423 (type-break-file-time type-break-interval-start)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
424 (setq type-break-interval-start type-break-time-last-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
425 (- type-break-interval diff))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
426 ;; schedule from now
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
427 (setq type-break-interval-start (current-time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
428 (type-break-file-time type-break-interval-start)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
429 type-break-interval))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
430 type-break-interval-start
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
431 type-break-interval)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
432
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
433 (and (interactive-p)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
434 (message "Type Break mode is enabled and set")))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
435 (t
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
436 (type-break-keystroke-reset)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
437 (type-break-mode-line-countdown-or-break nil)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
438 (type-break-cancel-schedule)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
439 (do-auto-save)
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
440 (when type-break-file-name
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
441 (with-current-buffer (find-file-noselect type-break-file-name
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
442 'nowarn)
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
443 (set-buffer-modified-p nil)
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
444 (unlock-buffer)
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
445 (kill-this-buffer)))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
446 (and (interactive-p)
22049
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
447 (message "Type Break mode is disabled")))))
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
448 type-break-mode)
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
449
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
450 (defun type-break-mode-line-message-mode (&optional prefix)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
451 "Enable or disable warnings in the mode line about typing breaks.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
452
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
453 A negative PREFIX argument disables this mode.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
454 No argument or any non-negative argument enables it.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
455
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
456 The user may also enable or disable this mode simply by setting the
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
457 variable of the same name.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
458
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
459 Variables controlling the display of messages in the mode line include:
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
460
22049
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
461 `mode-line-format'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
462 `global-mode-string'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
463 `type-break-mode-line-break-message'
247682b1da6b (type-break-mode-line-message-mode): Doc fix. Fix some messages.
Richard M. Stallman <rms@gnu.org>
parents: 21670
diff changeset
464 `type-break-mode-line-warning'"
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
465 (interactive "P")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
466 (setq type-break-mode-line-message-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
467 (>= (prefix-numeric-value prefix) 0))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
468 (and (interactive-p)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
469 (if type-break-mode-line-message-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
470 (message "type-break-mode-line-message-mode is enabled")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
471 (message "type-break-mode-line-message-mode is disabled")))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
472 type-break-mode-line-message-mode)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
473
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
474 (defun type-break-query-mode (&optional prefix)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
475 "Enable or disable warnings in the mode line about typing breaks.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
476
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
477 When enabled, the user is periodically queried about whether to take a
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
478 typing break at that moment. The function which does this query is
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
479 specified by the variable `type-break-query-function'.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
480
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
481 A negative PREFIX argument disables this mode.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
482 No argument or any non-negative argument enables it.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
483
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
484 The user may also enable or disable this mode simply by setting the
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
485 variable of the same name."
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
486 (interactive "P")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
487 (setq type-break-query-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
488 (>= (prefix-numeric-value prefix) 0))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
489 (and (interactive-p)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
490 (if type-break-query-mode
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
491 (message "type-break-query-mode is enabled")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
492 (message "type-break-query-mode is disabled")))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
493 type-break-query-mode)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
494
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
495
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
496 ;;; session file functions
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
497
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
498 (defvar type-break-auto-save-file-name
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
499 (let ((buffer-file-name type-break-file-name))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
500 (make-auto-save-file-name))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
501 "Auto-save name of `type-break-file-name'.")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
502
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
503 (defun type-break-file-time (&optional time)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
504 "File break time in `type-break-file-name', unless the file is locked."
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
505 (if (and type-break-file-name
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
506 (not (stringp (file-locked-p type-break-file-name))))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
507 (with-current-buffer (find-file-noselect type-break-file-name
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
508 'nowarn)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
509 (let ((inhibit-read-only t))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
510 (erase-buffer)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
511 (insert (format "%s\n\n" (or time type-break-interval-start)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
512 ;; file saving is left to auto-save
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
513 ))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
514
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
515 (defun type-break-file-keystroke-count ()
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
516 "File keystroke count in `type-break-file-name', unless the file is locked."
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
517 (if (and type-break-file-name
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
518 (not (stringp (file-locked-p type-break-file-name))))
59129
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
519 ;; Prevent deactivation of the mark in some other buffer.
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
520 (let (deactivate-mark)
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
521 (with-current-buffer (find-file-noselect type-break-file-name
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
522 'nowarn)
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
523 (save-excursion
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
524 (let ((inhibit-read-only t))
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
525 (goto-char (point-min))
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
526 (forward-line)
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
527 (delete-region (point) (save-excursion (end-of-line) (point)))
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
528 (insert (format "%s" type-break-keystroke-count))
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
529 ;; file saving is left to auto-save
c5ec711f16c8 (type-break-mode): Set buffer-save-without-query.
Richard M. Stallman <rms@gnu.org>
parents: 57744
diff changeset
530 ))))))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
531
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
532 (defun timep (time)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
533 "If TIME is in the format returned by `current-time' then
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
534 return TIME, else return nil."
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
535 (and (listp time)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
536 (eq (length time) 3)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
537 (integerp (car time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
538 (integerp (nth 1 time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
539 (integerp (nth 2 time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
540 time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
541
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
542 (defun type-break-choose-file ()
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
543 "Return file to read from."
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
544 (cond
59554
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
545 ((not type-break-file-name)
73d669603319 (type-break-file-name): Doc update as per the above.
Eli Zaretskii <eliz@gnu.org>
parents: 59489
diff changeset
546 nil)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
547 ((and (file-exists-p type-break-auto-save-file-name)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
548 (file-readable-p type-break-auto-save-file-name))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
549 type-break-auto-save-file-name)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
550 ((and (file-exists-p type-break-file-name)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
551 (file-readable-p type-break-file-name))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
552 type-break-file-name)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
553 (t nil)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
554
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
555 (defun type-break-get-previous-time ()
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
556 "Get previous break time from `type-break-file-name'.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
557 Returns nil if the file is missing or if the time breaks with the
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
558 `current-time' format."
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
559 (let ((file (type-break-choose-file)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
560 (if file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
561 (timep ;; returns expected format, else nil
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
562 (with-current-buffer (find-file-noselect file 'nowarn)
76297
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
563 (condition-case nil
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
564 (save-excursion
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
565 (goto-char (point-min))
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
566 (read (current-buffer)))
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
567 (end-of-file
35a8988b02f7 (type-break-get-previous-time): Handle end-of-file errors specially
Richard M. Stallman <rms@gnu.org>
parents: 75551
diff changeset
568 (error "End of file in `%s'" file))))))))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
569
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
570 (defun type-break-get-previous-count ()
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
571 "Get previous keystroke count from `type-break-file-name'.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
572 Return 0 if the file is missing or if the form read is not an
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
573 integer."
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
574 (let ((file (type-break-choose-file)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
575 (if (and file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
576 (integerp
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
577 (setq file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
578 (with-current-buffer
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
579 (find-file-noselect file 'nowarn)
76464
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
580 (condition-case nil
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
581 (save-excursion
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
582 (goto-char (point-min))
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
583 (forward-line 1)
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
584 (read (current-buffer)))
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
585 (end-of-file
f4a10797c3ce (type-break-get-previous-count): Repeat previous change here.
Richard M. Stallman <rms@gnu.org>
parents: 76297
diff changeset
586 (error "End of file in `%s'" file)))))))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
587 file
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
588 0)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
589
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
590
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
591 ;;;###autoload
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
592 (defun type-break ()
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
593 "Take a typing break.
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
594
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
595 During the break, a demo selected from the functions listed in
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
596 `type-break-demo-functions' is run.
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
597
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
598 After the typing break is finished, the next break is scheduled
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
599 as per the function `type-break-schedule'."
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
600 (interactive)
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
601 (do-auto-save)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
602 (type-break-cancel-schedule)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
603 ;; remove any query scheduled during interactive invocation
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
604 (remove-hook 'type-break-post-command-hook 'type-break-do-query)
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
605 (let ((continue t)
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
606 (start-time (current-time)))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
607 (setq type-break-time-last-break start-time)
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
608 (while continue
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
609 (save-window-excursion
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
610 ;; Eat the screen.
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
611 (and (eq (selected-window) (minibuffer-window))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
612 (other-window 1))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
613 (delete-other-windows)
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
614 (scroll-right (window-width))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
615 (unless type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
616 (message "Press any key to resume from typing break."))
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
617
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
618 (random t)
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
619 (let* ((len (length type-break-demo-functions))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
620 (idx (random len))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
621 (fn (nth idx type-break-demo-functions)))
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
622 (condition-case ()
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
623 (funcall fn)
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
624 (error nil))))
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
625
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
626 (let ((good-interval (or type-break-good-rest-interval
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
627 type-break-good-break-interval)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
628 (cond
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
629 (good-interval
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
630 (let ((break-secs (type-break-time-difference
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
631 start-time (current-time))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
632 (cond
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
633 ((>= break-secs good-interval)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
634 (setq continue nil))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
635 ;; 60 seconds may be too much leeway if the break is only 3
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
636 ;; minutes to begin with. You can just say "no" to the query
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
637 ;; below if you're in that much of a hurry.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
638 ;;((> 60 (abs (- break-secs good-interval)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
639 ;; (setq continue nil))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
640 ((funcall
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
641 type-break-query-function
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
642 (format
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
643 (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
644 "%s%s remaining. Continue break? "
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
645 "%sYou really ought to rest %s more. Continue break? ")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
646 (type-break-time-stamp)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
647 (type-break-format-time (- good-interval
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
648 break-secs)))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
649 (t
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
650 (setq continue nil)))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
651 (t (setq continue nil))))))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
652
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
653 (type-break-keystroke-reset)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
654 (type-break-file-time)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
655 (type-break-mode-line-countdown-or-break nil)
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
656 (type-break-schedule))
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
657
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
658
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
659 (defun type-break-schedule (&optional time start interval)
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
660 "Schedule a typing break for TIME seconds from now.
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
661 If time is not specified it defaults to `type-break-interval'.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
662 START and INTERVAL are used when recovering a break.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
663 START is the start of the break (defaults to now).
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
664 INTERVAL is the full length of an interval (defaults to TIME)."
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
665 (interactive (list (and current-prefix-arg
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
666 (prefix-numeric-value current-prefix-arg))))
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
667 (or time (setq time type-break-interval))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
668 (type-break-check-post-command-hook)
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
669 (type-break-cancel-schedule)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
670 (type-break-time-warning-schedule time 'reset)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
671 (type-break-run-at-time (max 1 time) nil 'type-break-alarm)
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
672 (setq type-break-time-next-break
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
673 (type-break-time-sum (or start (current-time))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
674 (or interval time))))
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
675
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
676 (defun type-break-cancel-schedule ()
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
677 (type-break-cancel-time-warning-schedule)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
678 (type-break-cancel-function-timers 'type-break-alarm)
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
679 (setq type-break-alarm-p nil)
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
680 (setq type-break-time-next-break nil))
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
681
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
682 (defun type-break-time-warning-schedule (&optional time resetp)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
683 (let ((type-break-current-time-warning-interval nil))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
684 (type-break-cancel-time-warning-schedule))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
685 (add-hook 'type-break-post-command-hook 'type-break-time-warning 'append)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
686 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
687 (type-break-time-warning-intervals
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
688 (and resetp
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
689 (setq type-break-current-time-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
690 type-break-time-warning-intervals))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
691
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
692 (or time
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
693 (setq time (type-break-time-difference (current-time)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
694 type-break-time-next-break)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
695
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
696 (while (and type-break-current-time-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
697 (> (car type-break-current-time-warning-interval) time))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
698 (setq type-break-current-time-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
699 (cdr type-break-current-time-warning-interval)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
700
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
701 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
702 (type-break-current-time-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
703 (setq time (- time (car type-break-current-time-warning-interval)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
704 (setq type-break-current-time-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
705 (cdr type-break-current-time-warning-interval))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
706
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
707 ;(let (type-break-current-time-warning-interval)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
708 ; (type-break-cancel-time-warning-schedule))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
709 (type-break-run-at-time (max 1 time) nil 'type-break-time-warning-alarm)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
710
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
711 (cond
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
712 (resetp
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
713 (setq type-break-warning-countdown-string nil))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
714 (t
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
715 (setq type-break-warning-countdown-string (number-to-string time))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
716 (setq type-break-warning-countdown-string-type "seconds"))))))))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
717
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
718 (defun type-break-cancel-time-warning-schedule ()
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
719 (type-break-cancel-function-timers 'type-break-time-warning-alarm)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
720 (remove-hook 'type-break-post-command-hook 'type-break-time-warning)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
721 (setq type-break-current-time-warning-interval
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
722 type-break-time-warning-intervals)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
723 (setq type-break-time-warning-count 0) ; avoid warnings after break
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
724 (setq type-break-warning-countdown-string nil))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
725
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
726 (defun type-break-alarm ()
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
727 (type-break-check-post-command-hook)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
728 (setq type-break-alarm-p t)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
729 (type-break-mode-line-countdown-or-break 'break))
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
730
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
731 (defun type-break-time-warning-alarm ()
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
732 (type-break-check-post-command-hook)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
733 (type-break-time-warning-schedule)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
734 (setq type-break-time-warning-count type-break-warning-repeat)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
735 (type-break-time-warning)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
736 (type-break-mode-line-countdown-or-break 'countdown))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
737
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
738
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
739 (defun type-break-run-tb-post-command-hook ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
740 (and type-break-mode
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
741 (run-hooks 'type-break-post-command-hook)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
742
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
743 (defun type-break-check ()
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
744 "Ask to take a typing break if appropriate.
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
745 This may be the case either because the scheduled time has come \(and the
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
746 minimum keystroke threshold has been reached\) or because the maximum
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
747 keystroke threshold has been exceeded."
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
748 (type-break-file-keystroke-count)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
749 (let* ((min-threshold (car type-break-keystroke-threshold))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
750 (max-threshold (cdr type-break-keystroke-threshold)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
751 (and type-break-good-rest-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
752 (progn
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
753 (and (> (type-break-time-difference
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
754 type-break-time-last-command (current-time))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
755 type-break-good-rest-interval)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
756 (progn
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
757 (type-break-keystroke-reset)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
758 (type-break-mode-line-countdown-or-break nil)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
759 (setq type-break-time-last-break (current-time))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
760 (type-break-schedule)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
761 (setq type-break-time-last-command (current-time))))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
762
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
763 (and type-break-keystroke-threshold
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
764 (let ((keys (this-command-keys)))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
765 (cond
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
766 ;; Ignore mouse motion
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
767 ((and (vectorp keys)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
768 (consp (aref keys 0))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
769 (memq (car (aref keys 0)) '(mouse-movement))))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
770 (t
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
771 (setq type-break-keystroke-count
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
772 (+ type-break-keystroke-count (length keys)))))))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
773
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
774 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
775 (type-break-alarm-p
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
776 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
777 ((input-pending-p))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
778 ((eq (selected-window) (minibuffer-window)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
779 ((and min-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
780 (< type-break-keystroke-count min-threshold))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
781 (type-break-schedule))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
782 (t
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
783 ;; If keystroke count is within min-threshold of
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
784 ;; max-threshold, lower it to reduce the likelihood of an
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
785 ;; immediate subsequent query.
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
786 (and max-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
787 min-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
788 (< (- max-threshold type-break-keystroke-count) min-threshold)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
789 (progn
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
790 (type-break-keystroke-reset)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
791 (setq type-break-keystroke-count min-threshold)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
792 (type-break-query))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
793 ((and type-break-keystroke-warning-intervals
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
794 max-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
795 (= type-break-keystroke-warning-count 0)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
796 (type-break-check-keystroke-warning)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
797 ((and max-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
798 (> type-break-keystroke-count max-threshold)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
799 (not (input-pending-p))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
800 (not (eq (selected-window) (minibuffer-window))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
801 (type-break-keystroke-reset)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
802 (setq type-break-keystroke-count (or min-threshold 0))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
803 (type-break-query)))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
804
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
805 ;; This should return t if warnings were enabled, nil otherwise.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
806 (defun type-break-check-keystroke-warning ()
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
807 ;; This is safe because the caller should have checked that the cdr was
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
808 ;; non-nil already.
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
809 (let ((left (- (cdr type-break-keystroke-threshold)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
810 type-break-keystroke-count)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
811 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
812 ((null (car type-break-current-keystroke-warning-interval))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
813 nil)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
814 ((> left (car type-break-current-keystroke-warning-interval))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
815 nil)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
816 (t
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
817 (while (and (car type-break-current-keystroke-warning-interval)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
818 (< left (car type-break-current-keystroke-warning-interval)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
819 (setq type-break-current-keystroke-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
820 (cdr type-break-current-keystroke-warning-interval)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
821 (setq type-break-keystroke-warning-count type-break-warning-repeat)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
822 (add-hook 'type-break-post-command-hook 'type-break-keystroke-warning)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
823 (setq type-break-warning-countdown-string (number-to-string left))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
824 (setq type-break-warning-countdown-string-type "keystrokes")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
825 (type-break-mode-line-countdown-or-break 'countdown)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
826 t))))
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
827
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
828 ;; Arrange for a break query to be made, when the user stops typing furiously.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
829 (defun type-break-query ()
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
830 (add-hook 'type-break-post-command-hook 'type-break-do-query))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
831
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
832 (defun type-break-do-query ()
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
833 (cond
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
834 ((not type-break-query-mode)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
835 (type-break-noninteractive-query)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
836 (type-break-schedule type-break-query-interval)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
837 (remove-hook 'type-break-post-command-hook 'type-break-do-query))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
838 ((sit-for 2)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
839 (condition-case ()
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
840 (cond
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
841 ((let ((type-break-mode nil)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
842 ;; yes-or-no-p sets this-command to exit-minibuffer,
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
843 ;; which hoses undo or yank-pop (if you happened to be
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
844 ;; yanking just when the query occurred).
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
845 (this-command this-command))
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
846 ;; Cancel schedule to prevent possibility of a second query
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
847 ;; from taking place before this one has even returned.
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
848 ;; The condition-case wrapper will reschedule on quit.
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
849 (type-break-cancel-schedule)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
850 ;; Also prevent a second query when the break is interrupted.
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
851 (remove-hook 'type-break-post-command-hook 'type-break-do-query)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
852 (funcall type-break-query-function
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
853 (format "%s%s"
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
854 (type-break-time-stamp)
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
855 (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
856 "Break now? "
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
857 "Take a break from typing now? "))))
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
858 (type-break))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
859 (t
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
860 (type-break-schedule type-break-query-interval)))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
861 (quit
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
862 (type-break-schedule type-break-query-interval))))))
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
863
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
864 (defun type-break-noninteractive-query (&optional ignored-args)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
865 "Null query function which doesn't interrupt user and assumes `no'.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
866 It prints a reminder in the echo area to take a break, but doesn't enforce
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
867 this or ask the user to start one right now."
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
868 (cond
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
869 (type-break-mode-line-message-mode)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
870 (t
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
871 (beep t)
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
872 (message "%sYou should take a typing break now. Do `M-x type-break'."
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
873 (type-break-time-stamp))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
874 (sit-for 1)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
875 (beep t)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
876 ;; return nil so query caller knows to reset reminder, as if user
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
877 ;; said "no" in response to yes-or-no-p.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
878 nil)))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
879
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
880 (defun type-break-time-warning ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
881 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
882 ((and (car type-break-keystroke-threshold)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
883 (< type-break-keystroke-count (car type-break-keystroke-threshold))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
884 ((> type-break-time-warning-count 0)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
885 (let ((timeleft (type-break-time-difference (current-time)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
886 type-break-time-next-break)))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
887 (setq type-break-warning-countdown-string (number-to-string timeleft))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
888 (cond
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
889 ((eq (selected-window) (minibuffer-window)))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
890 ;; Do nothing if the command was just a prefix arg, since that will
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
891 ;; immediately be followed by some other interactive command.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
892 ;; Otherwise, it is particularly annoying for the sit-for below to
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
893 ;; delay redisplay when one types sequences like `C-u -1 C-l'.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
894 ((memq this-command '(digit-argument universal-argument)))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
895 ((not type-break-mode-line-message-mode)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
896 ;; Pause for a moment so any previous message can be seen.
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
897 (sit-for 2)
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
898 (message "%sWarning: typing break due in %s."
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
899 (type-break-time-stamp)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
900 (type-break-format-time timeleft))
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
901 (setq type-break-time-warning-count
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
902 (1- type-break-time-warning-count))))))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
903 (t
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
904 (remove-hook 'type-break-post-command-hook 'type-break-time-warning)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
905 (setq type-break-warning-countdown-string nil))))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
906
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
907 (defun type-break-keystroke-warning ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
908 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
909 ((> type-break-keystroke-warning-count 0)
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
910 (setq type-break-warning-countdown-string
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
911 (number-to-string (- (cdr type-break-keystroke-threshold)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
912 type-break-keystroke-count)))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
913 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
914 ((eq (selected-window) (minibuffer-window)))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
915 ;; Do nothing if the command was just a prefix arg, since that will
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
916 ;; immediately be followed by some other interactive command.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
917 ;; Otherwise, it is particularly annoying for the sit-for below to
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
918 ;; delay redisplay when one types sequences like `C-u -1 C-l'.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
919 ((memq this-command '(digit-argument universal-argument)))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
920 ((not type-break-mode-line-message-mode)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
921 (sit-for 2)
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
922 (message "%sWarning: typing break due in %s keystrokes."
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
923 (type-break-time-stamp)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
924 (- (cdr type-break-keystroke-threshold)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
925 type-break-keystroke-count))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
926 (setq type-break-keystroke-warning-count
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
927 (1- type-break-keystroke-warning-count)))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
928 (t
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
929 (remove-hook 'type-break-post-command-hook
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
930 'type-break-keystroke-warning)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
931 (setq type-break-warning-countdown-string nil))))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
932
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
933 (defun type-break-mode-line-countdown-or-break (&optional type)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
934 (cond
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
935 ((not type-break-mode-line-message-mode))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
936 ((eq type 'countdown)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
937 ;(setq type-break-mode-line-break-message-p nil)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
938 (add-hook 'type-break-post-command-hook
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
939 'type-break-force-mode-line-update 'append))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
940 ((eq type 'break)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
941 ;; Alternate
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
942 (setq type-break-mode-line-break-message-p
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
943 (not type-break-mode-line-break-message-p))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
944 (remove-hook 'type-break-post-command-hook
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
945 'type-break-force-mode-line-update))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
946 (t
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
947 (setq type-break-mode-line-break-message-p nil)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
948 (setq type-break-warning-countdown-string nil)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
949 (remove-hook 'type-break-post-command-hook
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
950 'type-break-force-mode-line-update)))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
951 (type-break-force-mode-line-update))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
952
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
953
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
954 ;;;###autoload
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
955 (defun type-break-statistics ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
956 "Print statistics about typing breaks in a temporary buffer.
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
957 This includes the last time a typing break was taken, when the next one is
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
958 scheduled, the keystroke thresholds and the current keystroke count, etc."
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
959 (interactive)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
960 (with-output-to-temp-buffer "*Typing Break Statistics*"
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
961 (princ (format "Typing break statistics\n-----------------------\n
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
962 Typing break mode is currently %s.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
963 Interactive query for breaks is %s.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
964 Warnings of imminent typing breaks in mode line is %s.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
965
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
966 Last typing break ended : %s
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
967 Next scheduled typing break : %s\n
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
968 Minimum keystroke threshold : %s
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
969 Maximum keystroke threshold : %s
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
970 Current keystroke count : %s"
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
971 (if type-break-mode "enabled" "disabled")
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
972 (if type-break-query-mode "enabled" "disabled")
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
973 (if type-break-mode-line-message-mode "enabled" "disabled")
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
974 (if type-break-time-last-break
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
975 (current-time-string type-break-time-last-break)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
976 "never")
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
977 (if (and type-break-mode type-break-time-next-break)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
978 (format "%s\t(%s from now)"
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
979 (current-time-string type-break-time-next-break)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
980 (type-break-format-time
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
981 (type-break-time-difference
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
982 (current-time)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
983 type-break-time-next-break)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
984 "none scheduled")
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
985 (or (car type-break-keystroke-threshold) "none")
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
986 (or (cdr type-break-keystroke-threshold) "none")
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
987 type-break-keystroke-count))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
988
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
989 ;;;###autoload
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
990 (defun type-break-guesstimate-keystroke-threshold (wpm &optional wordlen frac)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
991 "Guess values for the minimum/maximum keystroke threshold for typing breaks.
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
992
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
993 If called interactively, the user is prompted for their guess as to how
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
994 many words per minute they usually type. This value should not be your
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
995 maximum WPM, but your average. Of course, this is harder to gauge since it
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
996 can vary considerably depending on what you are doing. For example, one
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
997 tends to type less when debugging a program as opposed to writing
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
998 documentation. (Perhaps a separate program should be written to estimate
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
999 average typing speed.)
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1000
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1001 From that, this command sets the values in `type-break-keystroke-threshold'
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1002 based on a fairly simple algorithm involving assumptions about the average
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1003 length of words (5). For the minimum threshold, it uses about a fifth of
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1004 the computed maximum threshold.
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1005
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1006 When called from Lisp programs, the optional args WORDLEN and FRAC can be
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1007 used to override the default assumption about average word length and the
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1008 fraction of the maximum threshold to which to set the minimum threshold.
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1009 FRAC should be the inverse of the fractional value; for example, a value of
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1010 2 would mean to use one half, a value of 4 would mean to use one quarter, etc."
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1011 (interactive "NOn average, how many words per minute do you type? ")
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1012 (let* ((upper (* wpm (or wordlen 5) (/ type-break-interval 60)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1013 (lower (/ upper (or frac 5))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1014 (or type-break-keystroke-threshold
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1015 (setq type-break-keystroke-threshold (cons nil nil)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1016 (setcar type-break-keystroke-threshold lower)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1017 (setcdr type-break-keystroke-threshold upper)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1018 (if (interactive-p)
57744
a14f0e52fd5e (type-break-run-at-time): Always use run-at-time; forget the alternatives.
Richard M. Stallman <rms@gnu.org>
parents: 55189
diff changeset
1019 (message "min threshold: %d\tmax threshold: %d" lower upper))
a14f0e52fd5e (type-break-run-at-time): Always use run-at-time; forget the alternatives.
Richard M. Stallman <rms@gnu.org>
parents: 55189
diff changeset
1020 type-break-keystroke-threshold))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1021
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1022
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1023 ;;; misc functions
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1024
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1025 ;; Compute the difference, in seconds, between a and b, two structures
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1026 ;; similar to those returned by `current-time'.
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1027 ;; Use addition rather than logand since that is more robust; the low 16
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1028 ;; bits of the seconds might have been incremented, making it more than 16
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1029 ;; bits wide.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1030 (defun type-break-time-difference (a b)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1031 (+ (lsh (- (car b) (car a)) 16)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1032 (- (car (cdr b)) (car (cdr a)))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1033
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1034 ;; Return (in a new list the same in structure to that returned by
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1035 ;; `current-time') the sum of the arguments. Each argument may be a time
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1036 ;; list or a single integer, a number of seconds.
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1037 ;; This function keeps the high and low 16 bits of the seconds properly
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1038 ;; balanced so that the lower value never exceeds 16 bits. Otherwise, when
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1039 ;; the result is passed to `current-time-string' it will toss some of the
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1040 ;; "low" bits and format the time incorrectly.
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1041 (defun type-break-time-sum (&rest tmlist)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1042 (let ((high 0)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1043 (low 0)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1044 (micro 0)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1045 tem)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1046 (while tmlist
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1047 (setq tem (car tmlist))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1048 (setq tmlist (cdr tmlist))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1049 (cond
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1050 ((numberp tem)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1051 (setq low (+ low tem)))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1052 (t
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1053 (setq high (+ high (or (car tem) 0)))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1054 (setq low (+ low (or (car (cdr tem)) 0)))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1055 (setq micro (+ micro (or (car (cdr (cdr tem))) 0))))))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1056
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1057 (and (>= micro 1000000)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1058 (progn
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1059 (setq tem (/ micro 1000000))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1060 (setq low (+ low tem))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1061 (setq micro (- micro (* tem 1000000)))))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1062
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1063 (setq tem (lsh low -16))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1064 (and (> tem 0)
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1065 (progn
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1066 (setq low (logand low 65535))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1067 (setq high (+ high tem))))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1068
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1069 (list high low micro)))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1070
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1071 (defun type-break-time-stamp (&optional when)
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1072 (if (fboundp 'format-time-string)
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1073 (format-time-string type-break-time-stamp-format when)
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1074 ;; Emacs 19.28 and prior do not have format-time-string.
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1075 ;; In that case, result is not customizable. Upgrade today!
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1076 (format "[%s] " (substring (current-time-string when) 11 16))))
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1077
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1078 (defun type-break-format-time (secs)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1079 (let ((mins (/ secs 60)))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1080 (cond
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1081 ((= mins 1) (format "%d minute" mins))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1082 ((> mins 0) (format "%d minutes" mins))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1083 ((= secs 1) (format "%d second" secs))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1084 (t (format "%d seconds" secs)))))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1085
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1086 (defun type-break-keystroke-reset ()
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1087 (setq type-break-interval-start (current-time)) ; not a keystroke
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1088 (setq type-break-keystroke-count 0)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1089 (setq type-break-keystroke-warning-count 0)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1090 (setq type-break-current-keystroke-warning-interval
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1091 type-break-keystroke-warning-intervals)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1092 (remove-hook 'type-break-post-command-hook 'type-break-keystroke-warning))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1093
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1094 (defun type-break-force-mode-line-update (&optional all)
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1095 "Force the mode-line of the current buffer to be redisplayed.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1096 With optional non-nil ALL, force redisplay of all mode-lines."
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1097 (and all (save-excursion (set-buffer (other-buffer))))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1098 (set-buffer-modified-p (buffer-modified-p)))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1099
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1100 ;; If an exception occurs in Emacs while running the post command hook, the
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1101 ;; value of that hook is clobbered. This is because the value of the
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1102 ;; variable is temporarily set to nil while it's running to prevent
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1103 ;; recursive application, but it also means an exception aborts the routine
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1104 ;; of restoring it. This function is called from the timers to restore it,
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1105 ;; just in case.
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1106 (defun type-break-check-post-command-hook ()
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1107 (add-hook 'post-command-hook 'type-break-run-tb-post-command-hook 'append))
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1108
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1109
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1110 ;;; Timer wrapper functions
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1111 ;;;
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1112 ;;; These shield type-break from variations in the interval timer packages
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1113 ;;; for different versions of Emacs.
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1114
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1115 (defun type-break-run-at-time (time repeat function)
54322
4712727ef275 (type-break-emacs-variant): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1116 (condition-case nil (or (require 'timer) (require 'itimer)) (error nil))
57744
a14f0e52fd5e (type-break-run-at-time): Always use run-at-time; forget the alternatives.
Richard M. Stallman <rms@gnu.org>
parents: 55189
diff changeset
1117 (run-at-time time repeat function))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1118
54322
4712727ef275 (type-break-emacs-variant): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
1119 (defvar timer-dont-exit)
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1120 (defun type-break-cancel-function-timers (function)
57744
a14f0e52fd5e (type-break-run-at-time): Always use run-at-time; forget the alternatives.
Richard M. Stallman <rms@gnu.org>
parents: 55189
diff changeset
1121 (let ((timer-dont-exit t))
a14f0e52fd5e (type-break-run-at-time): Always use run-at-time; forget the alternatives.
Richard M. Stallman <rms@gnu.org>
parents: 55189
diff changeset
1122 (cancel-function-timers function)))
18416
2ec71bb15f86 Don't require timer; use autoloaded functions from Emacs or XEmacs,
Noah Friedman <friedman@splode.com>
parents: 18414
diff changeset
1123
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1124
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1125 ;;; Demo wrappers
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1126
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1127 (defun type-break-catch-up-event ()
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1128 ;; If the last input event is a down-event, read and discard the
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1129 ;; corresponding up-event too, to avoid triggering another prompt.
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1130 (and (eventp last-input-event)
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1131 (memq 'down (event-modifiers last-input-event))
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1132 (read-event)))
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1133
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1134 ;; This is a wrapper around hanoi that calls it with an arg large enough to
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1135 ;; make the largest discs possible that will fit in the window.
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1136 ;; Also, clean up the *Hanoi* buffer after we're done.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
1137 (defun type-break-demo-hanoi ()
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1138 "Take a hanoiing typing break."
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1139 (and (get-buffer "*Hanoi*")
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1140 (kill-buffer "*Hanoi*"))
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1141 (condition-case ()
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1142 (progn
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1143 (hanoi (/ (window-width) 8))
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1144 ;; Wait for user to come back.
75296
72790464e9ea (type-break-demo-hanoi, type-break-demo-life)
Chong Yidong <cyd@stupidchicken.com>
parents: 74442
diff changeset
1145 (read-event)
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1146 (type-break-catch-up-event)
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1147 (kill-buffer "*Hanoi*"))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
1148 (quit
75296
72790464e9ea (type-break-demo-hanoi, type-break-demo-life)
Chong Yidong <cyd@stupidchicken.com>
parents: 74442
diff changeset
1149 (read-event)
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1150 (type-break-catch-up-event)
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1151 (and (get-buffer "*Hanoi*")
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1152 (kill-buffer "*Hanoi*")))))
5939
454dc146502d Initial revision
Roland McGrath <roland@gnu.org>
parents:
diff changeset
1153
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1154 ;; This is a wrapper around life that calls it with a `sleep' arg to make
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1155 ;; it run a little more leisurely.
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1156 ;; Also, clean up the *Life* buffer after we're done.
8275
4fdf77f4e45c type-break-mode: New variable and function.
Noah Friedman <friedman@splode.com>
parents: 8248
diff changeset
1157 (defun type-break-demo-life ()
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1158 "Take a typing break and get a life."
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1159 (let ((continue t))
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1160 (while continue
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1161 (setq continue nil)
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1162 (and (get-buffer "*Life*")
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1163 (kill-buffer "*Life*"))
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1164 (condition-case ()
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1165 (progn
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1166 (life 3)
8304
6c34e249d217 type-break-good-rest-interval: Doc fix.
Noah Friedman <friedman@splode.com>
parents: 8282
diff changeset
1167 ;; wait for user to return
75296
72790464e9ea (type-break-demo-hanoi, type-break-demo-life)
Chong Yidong <cyd@stupidchicken.com>
parents: 74442
diff changeset
1168 (read-event)
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1169 (type-break-catch-up-event)
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1170 (kill-buffer "*Life*"))
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1171 (life-extinct
18414
8d2051b79879 Changes which are not mine:
Noah Friedman <friedman@splode.com>
parents: 9355
diff changeset
1172 (message "%s" (get 'life-extinct 'error-message))
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1173 ;; restart demo
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1174 (setq continue t))
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1175 (quit
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1176 (type-break-catch-up-event)
8282
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1177 (and (get-buffer "*Life*")
206451cdd48a type-break-keystroke-threshold: Change default wpm to 30 and lower
Noah Friedman <friedman@splode.com>
parents: 8281
diff changeset
1178 (kill-buffer "*Life*")))))))
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1179
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1180 ;; Boring demo, but doesn't use many cycles
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1181 (defun type-break-demo-boring ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1182 "Boring typing break demo."
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1183 (let ((rmsg (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1184 ""
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1185 "Press any key to resume from typing break"))
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1186 (buffer-name "*Typing Break Buffer*")
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1187 lines elapsed timeleft tmsg)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1188 (condition-case ()
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1189 (progn
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1190 (switch-to-buffer (get-buffer-create buffer-name))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1191 (buffer-disable-undo (current-buffer))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1192 (setq lines (/ (window-body-height) 2))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1193 (unless type-break-terse-messages (setq lines (1- lines)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1194 (if type-break-demo-boring-stats
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1195 (setq lines (- lines 2)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1196 (setq lines (make-string lines ?\C-j))
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1197 (while (not (input-pending-p))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1198 (erase-buffer)
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1199 (setq elapsed (type-break-time-difference
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1200 type-break-time-last-break
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1201 (current-time)))
55189
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1202 (let ((good-interval (or type-break-good-rest-interval
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1203 type-break-good-break-interval)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1204 (cond
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1205 (good-interval
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1206 (setq timeleft (- good-interval elapsed))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1207 (if (> timeleft 0)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1208 (setq tmsg
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1209 (format (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1210 "Break remaining: %s"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1211 "You should rest for %s more")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1212 (type-break-format-time timeleft)))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1213 (setq tmsg
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1214 (format (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1215 "Break complete (%s elapsed in total)"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1216 "Typing break has lasted %s")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1217 (type-break-format-time elapsed)))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1218 (t
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1219 (setq tmsg
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1220 (format (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1221 "Break has lasted %s"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1222 "Typing break has lasted %s")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1223 (type-break-format-time elapsed))))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1224 (insert lines
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1225 (make-string (/ (- (window-width) (length tmsg)) 2) ?\ )
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1226 tmsg)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1227 (if (> (length rmsg) 0)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1228 (insert "\n"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1229 (make-string (/ (- (window-width) (length rmsg)) 2)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1230 ?\ )
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1231 rmsg))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1232 (if type-break-demo-boring-stats
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1233 (let*
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1234 ((message
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1235 (format
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1236 (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1237 "Since last break: %s keystrokes\n"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1238 "Since your last break you've typed %s keystrokes\n")
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1239 type-break-keystroke-count))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1240 (column-spaces
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1241 (make-string (/ (- (window-width) (length message)) 2)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1242 ?\ ))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1243 (wpm (/ (/ (float type-break-keystroke-count) 5)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1244 (/ (type-break-time-difference
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1245 type-break-interval-start
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1246 type-break-time-last-break)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1247 60.0))))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1248 (insert "\n\n" column-spaces message)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1249 (if type-break-terse-messages
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1250 (insert (format " %s%.2f wpm"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1251 column-spaces
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1252 wpm))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1253 (setq message
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1254 (format "at an average of %.2f words per minute"
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1255 wpm))
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1256 (insert
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1257 (make-string (/ (- (window-width) (length message)) 2)
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1258 ?\ )
51108148b11d Capitalise Emacs and Lisp.
Eli Zaretskii <eliz@gnu.org>
parents: 54770
diff changeset
1259 message))))
8497
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1260 (goto-char (point-min))
3d566eab9870 type-break-time-sum: New function.
Noah Friedman <friedman@splode.com>
parents: 8370
diff changeset
1261 (sit-for 60))
75551
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1262 (read-event)
acad3d4a5f18 (type-break-catch-up-event): New function.
Chong Yidong <cyd@stupidchicken.com>
parents: 75347
diff changeset
1263 (type-break-catch-up-event)
8370
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1264 (kill-buffer buffer-name))
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1265 (quit
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1266 (and (get-buffer buffer-name)
97cacab659d3 type-break-time-warning-intervals, type-break-keystroke-warning-intervals,
Noah Friedman <friedman@splode.com>
parents: 8305
diff changeset
1267 (kill-buffer buffer-name))))))
8276
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
1268
73b85998c868 type-break-mode: Make variable `nil' by default.
Noah Friedman <friedman@splode.com>
parents: 8275
diff changeset
1269
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1270 (provide 'type-break)
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1271
20800
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
1272 (if type-break-mode
43c77517a76c (type-break-mode): New customize variable to automatically load the package.
Stephen Eglen <stephen@gnu.org>
parents: 18416
diff changeset
1273 (type-break-mode 1))
30391
246b2f521192 (type-break): perform autosave.
Noah Friedman <friedman@splode.com>
parents: 25278
diff changeset
1274
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 79721
diff changeset
1275 ;; arch-tag: 943a2eb3-07e6-420b-993f-96e4796f5fd0
8248
5ecef3b02f2d Real initial revision. (rewrite from hanoi-break.)
Noah Friedman <friedman@splode.com>
parents: 5939
diff changeset
1276 ;;; type-break.el ends here