Lines Matching defs:keystroke
38 ;; least, you will want to turn off the keystroke thresholds and rest
121 (defcustom type-break-keystroke-threshold
151 keystroke even though they really require multiple keys to generate them.
153 The command `type-break-guesstimate-keystroke-threshold' can be used to
190 (defcustom type-break-keystroke-warning-intervals '(300 200 100 50)
191 "*List of keystroke measurements for warnings about upcoming typing break.
193 keystroke threshold, print a warning in the echo area.
224 "*Show word per minute and keystroke figures in the Boring demo."
301 (defvar type-break-keystroke-count 0)
306 (defvar type-break-current-keystroke-warning-interval nil)
308 (defvar type-break-keystroke-warning-count 0)
320 user has exceeded a keystroke threshold. When the time arrives, the user
331 reset the keystroke counter.
336 break at any time). It also initializes the keystroke counter.
351 the upper bound if the keystroke threshold is reached.
359 The variable `type-break-keystroke-threshold' is used to determine the
361 the command `type-break-guesstimate-keystroke-threshold' to try to
369 `type-break-keystroke-warning-intervals'
409 (type-break-keystroke-reset)
426 (setq type-break-keystroke-count
442 (type-break-keystroke-reset)
522 (defun type-break-file-keystroke-count ()
523 "File keystroke count in `type-break-file-name', unless the file is locked."
535 (insert (format "%s" type-break-keystroke-count))
578 "Get previous keystroke count from `type-break-file-name'.
661 (type-break-keystroke-reset)
756 minimum keystroke threshold has been reached\) or because the maximum
757 keystroke threshold has been exceeded."
758 (type-break-file-keystroke-count)
759 (let* ((min-threshold (car type-break-keystroke-threshold))
760 (max-threshold (cdr type-break-keystroke-threshold)))
767 (type-break-keystroke-reset)
773 (and type-break-keystroke-threshold
781 (setq type-break-keystroke-count
782 (+ type-break-keystroke-count (length keys)))))))
790 (< type-break-keystroke-count min-threshold))
793 ;; If keystroke count is within min-threshold of
798 (< (- max-threshold type-break-keystroke-count) min-threshold)
800 (type-break-keystroke-reset)
801 (setq type-break-keystroke-count min-threshold)))
803 ((and type-break-keystroke-warning-intervals
805 (= type-break-keystroke-warning-count 0)
806 (type-break-check-keystroke-warning)))
808 (> type-break-keystroke-count max-threshold)
811 (type-break-keystroke-reset)
812 (setq type-break-keystroke-count (or min-threshold 0))
816 (defun type-break-check-keystroke-warning ()
819 (let ((left (- (cdr type-break-keystroke-threshold)
820 type-break-keystroke-count)))
822 ((null (car type-break-current-keystroke-warning-interval))
824 ((> left (car type-break-current-keystroke-warning-interval))
827 (while (and (car type-break-current-keystroke-warning-interval)
828 (< left (car type-break-current-keystroke-warning-interval)))
829 (setq type-break-current-keystroke-warning-interval
830 (cdr type-break-current-keystroke-warning-interval)))
831 (setq type-break-keystroke-warning-count type-break-warning-repeat)
832 (add-hook 'type-break-post-command-hook 'type-break-keystroke-warning)
892 ((and (car type-break-keystroke-threshold)
893 (< type-break-keystroke-count (car type-break-keystroke-threshold))))
917 (defun type-break-keystroke-warning ()
919 ((> type-break-keystroke-warning-count 0)
921 (number-to-string (- (cdr type-break-keystroke-threshold)
922 type-break-keystroke-count)))
934 (- (cdr type-break-keystroke-threshold)
935 type-break-keystroke-count))
936 (setq type-break-keystroke-warning-count
937 (1- type-break-keystroke-warning-count)))))
940 'type-break-keystroke-warning)
969 scheduled, the keystroke thresholds and the current keystroke count, etc."
979 Minimum keystroke threshold : %s
980 Maximum keystroke threshold : %s
981 Current keystroke count : %s"
996 (or (car type-break-keystroke-threshold) "none")
997 (or (cdr type-break-keystroke-threshold) "none")
998 type-break-keystroke-count))))
1001 (defun type-break-guesstimate-keystroke-threshold (wpm &optional wordlen frac)
1002 "Guess values for the minimum/maximum keystroke threshold for typing breaks.
1012 From that, this command sets the values in `type-break-keystroke-threshold'
1025 (or type-break-keystroke-threshold
1026 (setq type-break-keystroke-threshold (cons nil nil)))
1027 (setcar type-break-keystroke-threshold lower)
1028 (setcdr type-break-keystroke-threshold upper)
1031 type-break-keystroke-threshold))
1098 (defun type-break-keystroke-reset ()
1099 (setq type-break-interval-start (current-time)) ; not a keystroke
1100 (setq type-break-keystroke-count 0)
1101 (setq type-break-keystroke-warning-count 0)
1102 (setq type-break-current-keystroke-warning-interval
1103 type-break-keystroke-warning-intervals)
1104 (remove-hook 'type-break-post-command-hook 'type-break-keystroke-warning))
1253 type-break-keystroke-count))
1257 (wpm (/ (/ (float type-break-keystroke-count) 5)