+(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))
+