Re: power-reader-mode

[Marco Parrone]

I wrote:

> This should work.

(setq flash-training-sit-for-seconds 0)
(setq flash-training-sit-for-milliseconds 15)

(defun flash-training (begin end)
  "Reading exercise."
  (interactive "r")
  (get-buffer-create "*flash-training-temp*")
  (get-buffer-create "*flash-training*")
  (let ((string (buffer-substring begin end)))
    (with-current-buffer "*flash-training-temp*"
      (kill-region (point-min) (point-max))
      (insert string)
      (beginning-of-buffer)
      (set-mark (point))))
  (with-current-buffer "*flash-training*"
    (kill-region (point-min) (point-max))
    (switch-to-buffer "*flash-training*")
    (while (with-current-buffer "*flash-training-temp*"
             (forward-word 1))
      (with-current-buffer "*flash-training-temp*"
        (kill-region (region-beginning) (region-end)))
      (yank)
      (sit-for flash-training-sit-for-seconds
               flash-training-sit-for-milliseconds)))
  (kill-buffer "*flash-training-temp*")
  (message "Type C-x b RET to restore this window."))

-- 
Marco Parrone - marc0@autistici.org - 0x45070AD6