Re: Help using org-entities or arternatives.

[Ypo]

Thanks, Ruijie. I think it is not what I was asking for, but it's nice to read your code.

Best regards.

El 09/05/2023 a las 13:48, Ruijie Yu escribió:

Ypo <ypuntot@gmail.com> writes:

Hi

Is it possible to, each time I write "...." to be subsituted by "[...]" ?

I can't do it using abbrev, and I don't know how to do it using org-entities.

I use it to yank quotes, for example, I write:

 "Like other editors, Emacs has commands to search for occurrences of a string. ....There are also commands that do the same thing, but
 search for patterns instead of fixed strings."

And I would like to get, automatically:

 "Like other editors, Emacs has commands to search for occurrences of a string. [...] There are also commands that do the same thing, but
 search for patterns instead of fixed strings."

Best regards

Not necessarily Org-specific, but here's my idea, untested:

```emacs-lisp
(defun my/yank-subst-ellipses ()
  (interactive)
  (let* ((start (point-marker))
         (_ (insert (current-kill 0)))
         (end (point-marker)))
    (save-match-data
      ;; Play around with this regexp
      (while (re-search-forward (rx "...") end t)
        ;; And this replacement text
        (replace-match "[...]")))))
```

Then, since Org sets C-y as `org-yank', make an advice with it.  I am
not confident in this portion at all, but here goes nothing ;)

```emacs-lisp
(require 'cl-lib)
(advice-add
 #'org-yank :around
 (lambda (org-yank &optional arg)
   (cl-letf (((symbol-function 'yank)
              (symbol-function 'my/yank-subst/ellipses)))
     (funcall org-yank arg))))
```