Re: power-reader-mode

[Fabian Braennstroem]

Hello!

Marco Parrone <marc0@autistici.org> writes:

> 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."))

Thanks to you two! I will use Marco's function. Now I try to modify it a little
bit, so that I get large letter like in the 'info'-headers and that the words
flash in the middle of the buffer by deleting the old one.

Greetings!
Fabian