-
Notifications
You must be signed in to change notification settings - Fork 0
/
typing-speed.elc
45 lines (40 loc) · 4.45 KB
/
typing-speed.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
;ELC
;;; Compiled by shant@ultraio on Sat Sep 27 19:36:34 2014
;;; from file /home/shant/.emacs.d/typing-speed.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@103 Non-nil if Typing-Speed mode is enabled.
Use the command `typing-speed-mode' to change this variable.
(defvar typing-speed-mode nil (#$ . 507))
(make-variable-buffer-local 'typing-speed-mode)
#@47 Displays your typing speed in the status bar.
(defalias 'typing-speed-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203( \312\313\314\"\210\315\316\311\f\317#\2021 \320\313\314\"\210\321!\210\322\323\n\203; \324\202< \325\"\210\326\327!\203] \306 \203P \306 \232\203] \330\331\n\203Z \332\202[ \333\"\210)\334 \210\n\207" [#1=#:last-message arg typing-speed-mode typing-speed-event-queue typing-speed-update-interval typing-speed-update-timer current-message toggle prefix-numeric-value 0 add-hook post-command-hook typing-speed-post-command-hook nil run-with-timer typing-speed-update remove-hook cancel-timer run-hooks typing-speed-mode-hook typing-speed-mode-on-hook typing-speed-mode-off-hook called-interactively-p any message "Typing-Speed mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 705) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \305\211%\210\306\307\310\311\312\313%\210\306\314\315\316\312\313%\210\306\317\320\321\312\313%\207" [typing-speed-mode-map add-minor-mode typing-speed-mode typing-speed-mode-text boundp nil custom-declare-variable typing-speed-window 5 "The window (in seconds) over which typing speed should be evaluated." :group typing-speed typing-speed-mode-text-format " [%s/%s WPM]" "A format string that controls how the typing speed is displayed in the mode line.\nMust contain at least one %s delimeter. Typing speed will be inserted at the first\ndelimiter, and peak typing speed at the second." typing-speed-update-interval 1 "How often the typing speed will update in the mode line, in seconds.\nIt will always also update after every command."] 6)
(defvar typing-speed-mode-text (byte-code "\301\302\211#\207" [typing-speed-mode-text-format format 0] 4))
(defvar typing-speed-event-queue nil)
(defvar typing-speed-update-timer nil)
(defvar typing-speed-peak-speed 0)
(defvar typing-speed-previous-mode-text "")
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local typing-speed-peak-speed typing-speed-previous-mode-text typing-speed-mode-text typing-speed-event-queue] 2)
#@153 When typing-speed-mode is enabled, fires after every command. If the
command is self-insert-command, log it as a keystroke and update the
typing speed.
(defalias 'typing-speed-post-command-hook #[nil "\303=\203 \304 \211\nB\305 )\207\306\235\205 \n\210\nA\305 \207" [this-command current-time typing-speed-event-queue self-insert-command float-time typing-speed-update (delete-backward-char backward-delete-char-untabify)] 3 (#$ . 2840)])
#@41 Calculate and display the typing speed.
(defalias 'typing-speed-update #[nil "\303 \304 Z\n\"\305 )\207" [current-time typing-speed-window typing-speed-event-queue float-time typing-speed-remove-old-events typing-speed-message-update] 3 (#$ . 3292)])
#@54 Updates the status bar with the current typing speed
(defalias 'typing-speed-message-update #[nil "G\306 !\245\211\307_\211\310\245\211 ]\311p!\203 \312\202' \313\314\f!\314!#\211\230?\2057 \315 +\207" [typing-speed-event-queue typing-speed-window chars-per-second chars-per-min words-per-min typing-speed-peak-speed float 60 5 minibufferp "" format floor force-mode-line-update typing-speed-mode-text-format typing-speed-mode-text typing-speed-previous-mode-text] 6 (#$ . 3552)])
#@84 Removes events older than than the threshold (in seconds) from the specified queue
(defalias 'typing-speed-remove-old-events #[(threshold queue) "?\206 @V?\205 @\302 A\"B\207" [queue threshold typing-speed-remove-old-events] 4 (#$ . 4056)])
#@28 Turns on typing-speed-mode
(defalias 'turn-on-typing-speed #[nil "?\205 \300 \207" [typing-speed-mode] 1 (#$ . 4310)])
#@29 Turns off typing-speed-mode
(defalias 'turn-off-typing-speed #[nil "\205 \300 \207" [typing-speed-mode] 1 (#$ . 4437)])