iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
11623f4
)
added function to display current position and remaining time
author
蛇崩乃音
<shin@posteo.jp>
Thu, 3 Mar 2016 13:58:27 +0000
(14:58 +0100)
committer
蛇崩乃音
<shin@posteo.jp>
Thu, 3 Mar 2016 13:58:27 +0000
(14:58 +0100)
spray.el
patch
|
blob
|
history
diff --git
a/spray.el
b/spray.el
index c0d78085f2b36b214ec45e92481e1e3eda92189f..e54de5487354d45eb405c0f57ebfdb2303f9d3f4 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-161,6
+161,7
@@
decreasing by one for each subsequent word."
(define-key km (kbd "<right>") 'spray-forward-word)
(define-key km (kbd "f") 'spray-faster)
(define-key km (kbd "s") 'spray-slower)
(define-key km (kbd "<right>") 'spray-forward-word)
(define-key km (kbd "f") 'spray-faster)
(define-key km (kbd "s") 'spray-slower)
+ (define-key km (kbd "t") 'spray-time)
(define-key km (kbd "q") 'spray-quit)
(define-key km (kbd "<return>") 'spray-quit)
(define-key km [remap forward-char] 'spray-forward-word)
(define-key km (kbd "q") 'spray-quit)
(define-key km (kbd "<return>") 'spray-quit)
(define-key km [remap forward-char] 'spray-forward-word)
@@
-349,6
+350,16
@@
Decreases the wpm (words per minute) parameter. See the variable
(when was-running
(spray-start))))
(when was-running
(spray-start))))
+(defun spray-time ()
+ (interactive)
+ (widen)
+ (let ((position (progn (skip-chars-backward "^\s\t\n—") (point))))
+ (message
+ "%d per cent done; ~%d minute(s) remaining"
+ (* 100 (/ position (+ 0.0 (point-max))))
+ (fround (/ (count-words-region position (point-max)) (+ 0.0 spray-wpm)))))
+ (spray--word-at-point))
+
;; * provide
(provide 'spray)
;; * provide
(provide 'spray)