Shortening words in region

Shortening words in region

[uzibalqa via Users list for the GNU Emacs text editor]

Have been working on shortening words. But doing so on a word by word basis is quite slow. Thusly I am writing
a version that accepts a selected region.

This function uses a selected region, then changes initial parts oy words (replacing matching cog, col, com, con, cor, coun, and cum
with the letter "k".

What improvements can I do to it?

(defun shorten-region (beg end)
"TODO"
(interactive "r")
(narrow-to-region beg end)
(goto-char (point-min))

(insert (replace-regexp "\\<\\(co[glmnr]\\|coun\\|cum\\)" "k" nil beg end)) )

Re: Shortening words in region

[Jean Louis]

* uzibalqa via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org> [2022-08-13 19:34]:
> Have been working on shortening words. But doing so on a word by
> word basis is quite slow. Thusly I am writing a version that accepts
> a selected region.
> 
> This function uses a selected region, then changes initial parts oy
> words (replacing matching cog, col, com, con, cor, coun, and cum
> with the letter "k".

(rx (zero-or-more (or "col" "cog" "com" "con" "cor" "coun" "cum"))) ⇒ "\\(?:c\\(?:o\\(?:un\\|[glmnr]\\)\\|um\\)\\)*"

{C-h f rx RET}

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Shortening words in region

[uzibalqa]

Sent with Proton Mail secure email.

------- Original Message -------
On Saturday, August 13th, 2022 at 5:42 PM, Jean Louis <bugs@gnu.support> wrote:


> * uzibalqa via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-08-13 19:34]:
>
> > Have been working on shortening words. But doing so on a word by
> > word basis is quite slow. Thusly I am writing a version that accepts
> > a selected region.
> >
> > This function uses a selected region, then changes initial parts oy
> > words (replacing matching cog, col, com, con, cor, coun, and cum
> > with the letter "k".
>
>
> (rx (zero-or-more (or "col" "cog" "com" "con" "cor" "coun" "cum"))) ⇒ "\\(?:c\\(?:o\\(?:un\\|[glmnr]\\)\\|um\\)\\)*"
>
> {C-h f rx RET}
>
> --
> Jean

Like below?

(insert (replace-regexp-in-string
   (rx (zero-or-more (or "col" "cog" "com" "con" "cor" "coun" "cum")))
   "k" word))

Re: Shortening words in region

[uzibalqa]

Sent with Proton Mail secure email.

------- Original Message -------
On Saturday, August 13th, 2022 at 6:19 PM, uzibalqa <uzibalqa@proton.me> wrote:


>
>
>
>
>
> Sent with Proton Mail secure email.
>
>
> ------- Original Message -------
> On Saturday, August 13th, 2022 at 5:42 PM, Jean Louis bugs@gnu.support wrote:
>
>
>
> > * uzibalqa via Users list for the GNU Emacs text editor help-gnu-emacs@gnu.org [2022-08-13 19:34]:
> >
> > > Have been working on shortening words. But doing so on a word by
> > > word basis is quite slow. Thusly I am writing a version that accepts
> > > a selected region.
> > >
> > > This function uses a selected region, then changes initial parts oy
> > > words (replacing matching cog, col, com, con, cor, coun, and cum
> > > with the letter "k".
> >
> > (rx (zero-or-more (or "col" "cog" "com" "con" "cor" "coun" "cum"))) ⇒ "\\(?:c\\(?:o\\(?:un\\|[glmnr]\\)\\|um\\)\\)*"
> >
> > {C-h f rx RET}
> >
> > --
> > Jean

Would you know how to apply rx to the following?

"\\(ly\\|ily\\|ley\\)\\>"

Re: Shortening words in region

[Jean Louis]

* uzibalqa <uzibalqa@proton.me> [2022-08-13 21:23]:
> Would you know how to apply rx to the following?
> 
> "\\(ly\\|ily\\|ley\\)\\>"

As with missing pieces of information it is impossible to know what you think.

You first define your own endeavours. I suggest you write a note for yourself.

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: Shortening words in region

[uzibalqa]

------- Original Message -------
On Saturday, August 13th, 2022 at 6:32 PM, Jean Louis <bugs@gnu.support> wrote:


> * uzibalqa uzibalqa@proton.me [2022-08-13 21:23]:
>
> > Would you know how to apply rx to the following?
> >
> > "\\(ly\\|ily\\|ley\\)\\>"
>
>
> As with missing pieces of information it is impossible to know what you think.
>
> You first define your own endeavours. I suggest you write a note for yourself.
>
> --
> Jean

Want to replace the end part of words watching `ly', `ily', and `ley' with the letter `l'.
So that "family" becomes "faml".