Last active
April 16, 2018 09:12
-
-
Save chrisdone/cf3a045fe851210067339b51ae96ddfa to your computer and use it in GitHub Desktop.
Slow keys mode
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; slow-keys.el --- Slow keys mode to avoid RSI | |
;; Copyright (c) 2018 Chris Done. All rights reserved. | |
;; This file is free software; you can redistribute it and/or modify | |
;; it under the terms of the GNU General Public License as published by | |
;; the Free Software Foundation; either version 3, or (at your option) | |
;; any later version. | |
;; This file is distributed in the hope that it will be useful, | |
;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
;; GNU General Public License for more details. | |
;; You should have received a copy of the GNU General Public License | |
;; along with this program. If not, see <http://www.gnu.org/licenses/>. | |
;;; Code: | |
(define-minor-mode slow-keys-mode "Type slowly to avoid RSI." | |
:lighter " Slow" | |
:global t | |
(if (bound-and-true-p slow-keys-mode) | |
(add-hook 'post-command-hook 'slow-keys-do) | |
(remove-hook 'post-command-hook 'slow-keys-do))) | |
(defvar slow-keys-repeat 0) | |
(defvar slow-keys-last-press 0) | |
(defun slow-keys-do () | |
(unless (slow-keys-ignore-cmd this-command) | |
(setq slow-keys-repeat | |
(if (eq last-command this-command) | |
(1+ slow-keys-repeat) | |
0)) | |
(when (and (> slow-keys-repeat 3) | |
(not (slow-keys-typing-cmd this-command))) | |
(slow-keys-slow-down | |
"Use repetition numbers or more high-level commands!")) | |
(let ((now (float-time))) | |
(cond | |
((and (slow-keys-typing-cmd this-command) | |
(slow-keys-typing-cmd last-command) | |
(< (- now slow-keys-last-press) 0.1)) | |
(slow-keys-slow-down "Slow down typing!")) | |
((and (not (slow-keys-typing-cmd this-command)) | |
(not (slow-keys-typing-cmd last-command)) | |
(< (- now slow-keys-last-press) 0.3)) | |
(slow-keys-slow-down "Slow down command running!"))) | |
(setq slow-keys-last-press now)))) | |
(defun slow-keys-slow-down (msg) | |
(message "%s" (propertize msg 'face 'compilation-error)) | |
(redisplay) | |
(sleep-for 1)) | |
(defun slow-keys-typing-cmd (cmd) | |
(or (eq cmd 'self-insert-command) | |
(eq cmd 'isearch-printing-char))) | |
(defun slow-keys-ignore-cmd (cmd) | |
(or (eq cmd 'mwheel-scroll) | |
(eq cmd 'my-down-mouse))) | |
(provide 'slow-keys) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment