auto correction propagation mode

auto correction propagation mode

[Plamen Tanovski]

Hi,

I need a mode, where emacs "whatches" my typing, and if I correct a word,
emacs does the same correction on all remaining text in the buffer, after I
leave the word. For example, if I correct the _first_ "foo" to "fip" in

      The foo is not always foo, not even really foo.

emacs changes automatically the sentence (in the background) to

      The fip is not always fip, not even really fip. 

I searched the net but didn't find smth. apropriate.


Best regards

Re: auto correction propagation mode

[Joel J. Adamson]

Plamen Tanovski <pgt@arcor.de> writes:

> Hi,
>
> I need a mode, where emacs "whatches" my typing, and if I correct a word,
> emacs does the same correction on all remaining text in the buffer, after I
> leave the word. For example, if I correct the _first_ "foo" to "fip" in
>
>       The foo is not always foo, not even really foo.
>
> emacs changes automatically the sentence (in the background) to
>
>       The fip is not always fip, not even really fip. 
>
> I searched the net but didn't find smth. apropriate.

Take a look at flyspell and abbrevs.

Joel

-- 
Joel J. Adamson
(303) 880-3109
Public key: http://pgp.mit.edu
Homepage: http://www.unc.edu/~adamsonj
Please read http://www.unc.edu/~adamsonj/roe.html

Re: auto correction propagation mode

[Andreas Röhler]

Am Samstag, 7. Juni 2008 schrieb Plamen Tanovski:
> Hi,
> 
> I need a mode, where emacs "whatches" my typing, and if I correct a word,
> emacs does the same correction on all remaining text in the buffer, after I
> leave the word. For example, if I correct the _first_ "foo" to "fip" in
> 
>       The foo is not always foo, not even really foo.
> 
> emacs changes automatically the sentence (in the background) to
> 
>       The fip is not always fip, not even really fip. 
> 
> I searched the net but didn't find smth. apropriate.
> 
> 
> Best regards
> 


Just to indicate a direction how this could be done IMHO:

(defun allkorr () 
  (interactive "*")
  (let* ((wap (word-at-point))
        (replmt (read-from-minibuffer "Correction: " wap)))
    (define-abbrev text-mode-abbrev-table wap replmt)
    (expand-region-abbrevs (point-min) (point-max))))


It uses the abbrev facility, prompts for the correct
word, which will be registered as an expansion for the
then wrong word, conceived as an abbrev in the text.

`expand-region-abbrevs' will query you then for every
replacement. This might be abolished still, bound to an
argument etc.

HTH

Andreas Röhler

Re: auto correction propagation mode

[Plamen Tanovski]

Andreas Röhler <andreas.roehler@online.de> writes:

> Just to indicate a direction how this could be done IMHO:
>
> (defun allkorr () 
>   (interactive "*")
>   (let* ((wap (word-at-point))
>         (replmt (read-from-minibuffer "Correction: " wap)))
>     (define-abbrev text-mode-abbrev-table wap replmt)
>     (expand-region-abbrevs (point-min) (point-max))))
>
>
> It uses the abbrev facility, prompts for the correct
> word, which will be registered as an expansion for the
> then wrong word, conceived as an abbrev in the text.
>
> `expand-region-abbrevs' will query you then for every
> replacement. This might be abolished still, bound to an
> argument etc.


Thanks a lot. This is a very interessting approach. The best thing is, it
works on whole words only.

Best regards

Re: auto correction propagation mode

[Andreas Röhler]

Am Samstag, 7. Juni 2008 schrieb Plamen Tanovski:
> Andreas Röhler <andreas.roehler@online.de> writes:
> 
> > Just to indicate a direction how this could be done IMHO:
> >
> > (defun allkorr () 
> >   (interactive "*")
> >   (let* ((wap (word-at-point))
> >         (replmt (read-from-minibuffer "Correction: " wap)))
> >     (define-abbrev text-mode-abbrev-table wap replmt)
> >     (expand-region-abbrevs (point-min) (point-max))))
> >
> >
> > It uses the abbrev facility, prompts for the correct
> > word, which will be registered as an expansion for the
> > then wrong word, conceived as an abbrev in the text.
> >
> > `expand-region-abbrevs' will query you then for every
> > replacement. This might be abolished still, bound to an
> > argument etc.
> 
> 
> Thanks a lot. This is a very interessting approach. The best thing is, it
> works on whole words only.
> 

Yeah. And what's nice too: its all saved. Once corrected, it works every time 
as soon you call expand-all-abbrevs. So I will use that too now to correct 
repeating typos as Belrin for Berlin. Thanks back inspiring it. :)