[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: power-reader-mode

From: Fabian Braennstroem
Subject: Re: power-reader-mode
Date: Fri, 13 Feb 2004 12:07:57 +0100
User-agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (gnu/linux)


Marco Parrone <address@hidden> 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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]