Re: Shortening words with multiple rules

[Arash Esbati <arash@gnu.org>]

uzibalqa <uzibalqa@proton.me> writes:

> It does help a lot.  How would a match at the end of word (matching
> "ley" "ily" "ly") look like, with your scheme?

Maybe something like this:

(defun shorten-word ()
  "Shortens a word according to specific rules."
  (interactive)
  (let* ((bounds (bounds-of-thing-at-point 'word))
         (s (car bounds))
         (case-fold-search nil)
         (p (point-marker)))
    (when s
      (goto-char s)
      (cond ((looking-at (regexp-opt '("cog" "col" "com" "con"
                                       "cor" "cum" "coun")
                                     "\\<\\("))
             (replace-match "k"))
            ((looking-at (concat "[[:alpha:]]*?"
                                 "\\("
                                 (regexp-opt '("ley" "ily" "ly"))
                                 "\\)\\>"))
             (replace-match "X" nil nil nil 1))
            (t nil))
      (goto-char p))
    (set-marker p nil)))

Best, Arash