replace-regexp from A to B?

replace-regexp from A to B?

[Rodolfo Medina]

Hi all...

Is it possible, and how?, to perform a replace-regexp from a certain point,
e.g. the current one, or from a certain word/expression, up to the next
occurrence of a certain other word/expression...?  In my case, with MusiXTeX
documents, the starting point should be the TeX command `\startpiece' and the
final one `\Endpiece'.  So I could replace strings/expressions within a single
musical piece without going out of it.

Thanks for any help,

Rodolfo

Re: replace-regexp from A to B?

[Yuri Khan]

On Sun, Aug 26, 2018 at 9:40 PM Rodolfo Medina <rodolfo.medina@gmail.com> wrote:

> Is it possible, and how?, to perform a replace-regexp from a certain point,
> e.g. the current one, or from a certain word/expression, up to the next
> occurrence of a certain other word/expression...?  In my case, with MusiXTeX
> documents, the starting point should be the TeX command `\startpiece' and the
> final one `\Endpiece'.  So I could replace strings/expressions within a single
> musical piece without going out of it.

I’d decompose the problem into two.

1. Mark the piece enclosing the point as a region.
2. Do an ordinary ‘replace-regexp’ or ‘query-replace-regexp’ in the region.

To solve (1), I’d first look if the major mode recognizes pieces as a
construct analogous to a function in a programming language, by
invoking ‘mark-defun’ and looking if it marks the whole piece. If it
does, problem solved; you can query-and-replace in current piece by
doing ‘C-M-h M-%’ or ‘C-M-h C-M-%’; or, if you want to do multiple
replacements in a piece, first narrow to it with ‘C-x n d’, then do
all your replacements, then widen back with ‘C-x n w’.

If the major mode does not have any useful notion of defun, I’d define
my own and arrange for it to be used by the major mode:

    (defun my-musixtex-beginning-of-piece (arg)
      (if (> arg 0)
          (dotimes arg (re-search-backward "\\\\startpiece\\>"))
        (dotimes (- arg) (re-search-forward "\\\\startpiece\\>"))))

    (defun my-musixtex-end-of-piece ()
      (re-search-forward "\\\\Endpiece\\>"))

    (defun my-musixtex-init-defun ()
      (setq-local beginning-of-defun-function
                  #'my-musixtex-beginning-of-piece)
      (setq-local end-of-defun-function
                  #'my-musixtex-end-of-piece))

    ;; change the mode hook variable name to suit your major mode
    (add-hook 'musixtex-mode-hook #'my-musixtex-init-defun)


If the major mode does have a useful idea of defun, I’d then just
write a function like this:

    (defun my-musixtex-mark-piece ()
      (interactive)
      (let* ((end (re-search-forward "\\\\Endpiece\\>"))
             (begin (search-backward "\\\\startpiece\\>")))
        (push-mark end nil t)
        (goto-char begin)))

and bind it to a convenient key probably involving the letter ‘h’ and
a few modifiers and/or prefix keys (because ‘mark-paragraph’ is on
‘M-h’, ‘mark-defun’ on ‘C-M-h’ and ‘mark-whole-buffer’ on ‘C-x h’).

Re: replace-regexp from A to B?

[Rodolfo Medina]

Yuri Khan <yurivkhan@gmail.com> writes:

> On Sun, Aug 26, 2018 at 9:40 PM Rodolfo Medina <rodolfo.medina@gmail.com> wrote:
>
>> Is it possible, and how?, to perform a replace-regexp from a certain point,
>> e.g. the current one, or from a certain word/expression, up to the next
>> occurrence of a certain other word/expression...?  In my case, with MusiXTeX
>> documents, the starting point should be the TeX command `\startpiece' and
>> the final one `\Endpiece'.  So I could replace strings/expressions within a
>> single musical piece without going out of it.
>
> I’d decompose the problem into two.
>
> 1. Mark the piece enclosing the point as a region.
> 2. Do an ordinary ‘replace-regexp’ or ‘query-replace-regexp’ in the region.
>
> To solve (1), I’d first look if the major mode recognizes pieces as a
> construct analogous to a function in a programming language, by
> invoking ‘mark-defun’ and looking if it marks the whole piece. If it
> does, problem solved; you can query-and-replace in current piece by
> doing ‘C-M-h M-%’ or ‘C-M-h C-M-%’; or, if you want to do multiple
> replacements in a piece, first narrow to it with ‘C-x n d’, then do
> all your replacements, then widen back with ‘C-x n w’.
>
> If the major mode does not have any useful notion of defun, I’d define
> my own and arrange for it to be used by the major mode:
>
>     (defun my-musixtex-beginning-of-piece (arg)
>       (if (> arg 0)
>           (dotimes arg (re-search-backward "\\\\startpiece\\>"))
>         (dotimes (- arg) (re-search-forward "\\\\startpiece\\>"))))
>
>     (defun my-musixtex-end-of-piece ()
>       (re-search-forward "\\\\Endpiece\\>"))
>
>     (defun my-musixtex-init-defun ()
>       (setq-local beginning-of-defun-function
>                   #'my-musixtex-beginning-of-piece)
>       (setq-local end-of-defun-function
>                   #'my-musixtex-end-of-piece))
>
>     ;; change the mode hook variable name to suit your major mode
>     (add-hook 'musixtex-mode-hook #'my-musixtex-init-defun)
>
>
> If the major mode does have a useful idea of defun, I’d then just
> write a function like this:
>
>     (defun my-musixtex-mark-piece ()
>       (interactive)
>       (let* ((end (re-search-forward "\\\\Endpiece\\>"))
>              (begin (search-backward "\\\\startpiece\\>")))
>         (push-mark end nil t)
>         (goto-char begin)))
>
> and bind it to a convenient key probably involving the letter ‘h’ and
> a few modifiers and/or prefix keys (because ‘mark-paragraph’ is on
> ‘M-h’, ‘mark-defun’ on ‘C-M-h’ and ‘mark-whole-buffer’ on ‘C-x h’).


Thanks...  In my case, `C-M-h' does not select all the music piece but only
portions of it...  Nevertheless, your second solution:

     (defun my-musixtex-mark-piece ()
       (interactive)
       (let* ((end (re-search-forward "\\\\Endpiece\\>"))
              (begin (search-backward "\\startpiece")))
         (push-mark end nil t)
         (goto-char begin)))

(with only two backslashes, instead of 4, before `startpiece', and nothing else
after `startpiece') seems to well select my music piece...  Your first
solution, in particular

     (defun my-musixtex-beginning-of-piece (arg)
       (if (> arg 0)
           (dotimes arg (re-search-backward "\\\\startpiece\\>"))
         (dotimes (- arg) (re-search-forward "\\\\startpiece\\>"))))

gives error when evaluated with `C-x C-e'...

Rodolfo

Re: replace-regexp from A to B?

[Rodolfo Medina]

hw <hw@adminart.net> writes:

> Rodolfo Medina <rodolfo.medina@gmail.com> writes:
>
>> Is it possible, and how?, to perform a replace-regexp from a certain point,
>> e.g. the current one, or from a certain word/expression, up to the next
>> occurrence of a certain other word/expression...?  In my case, with MusiXTeX
>> documents, the starting point should be the TeX command `\startpiece' and
>> the final one `\Endpiece'.  So I could replace strings/expressions within a
>> single musical piece without going out of it.
>
> The function is (by default?) limited to the current region, i. e. you
> can mark the area of text you want to perform the replacement in and,
> with the mark active, do the replacement.  It won't replace anything
> outside of the region then.  I usually use (query-replace) like that.

Yes, clear now, thanks...

Rodolfo



> You may want to look into (transient-mark-mode) and enable it.

Re: replace-regexp from A to B?

[Emanuel Berg]

Rodolfo Medina wrote:

> Is it possible, and how?, to perform
> a replace-regexp from a certain point, e.g.
> the current one, or from a certain
> word/expression, up to the next occurrence of
> a certain other word/expression...? In my
> case, with MusiXTeX documents, the starting
> point should be the TeX command `\startpiece'
> and the final one `\Endpiece'. So I could
> replace strings/expressions within a single
> musical piece without going out of it.

You can set the region manually and then use
a function with

    (goto-char START)
    (while (re-search-forward REGEXP STOP t)
      (replace-match TO-STRING nil nil))

where START is (region-beginning) and STOP is
(region-end). First check if there is a region
with (use-region-p) !

Or if you want it fully automated make a search
for "\startpiece" and set START, then make
a search for "\Endpiece" and set STOP. Do this
in Elisp as well.

But then you'd have to supply them (the
delimitators) as arguments so it won't
necessarily be faster because you'd have to
type them each time rather than to set
the region.

If they (the delimitators) are always the same
you could hard-code them, of course. Then it'll
be very fast to invoke :)

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: replace-regexp from A to B?

[Rodolfo Medina]

Emanuel Berg <moasen@zoho.com> writes:

> Rodolfo Medina wrote:
>
>> Is it possible, and how?, to perform
>> a replace-regexp from a certain point, e.g.
>> the current one, or from a certain
>> word/expression, up to the next occurrence of
>> a certain other word/expression...? In my
>> case, with MusiXTeX documents, the starting
>> point should be the TeX command `\startpiece'
>> and the final one `\Endpiece'. So I could
>> replace strings/expressions within a single
>> musical piece without going out of it.
>
> You can set the region manually and then use
> a function with
>
>     (goto-char START)
>     (while (re-search-forward REGEXP STOP t)
>       (replace-match TO-STRING nil nil))
>
> where START is (region-beginning) and STOP is
> (region-end). First check if there is a region
> with (use-region-p) !
>
> Or if you want it fully automated make a search
> for "\startpiece" and set START, then make
> a search for "\Endpiece" and set STOP. Do this
> in Elisp as well.
>
> But then you'd have to supply them (the
> delimitators) as arguments so it won't
> necessarily be faster because you'd have to
> type them each time rather than to set
> the region.
>
> If they (the delimitators) are always the same
> you could hard-code them, of course. Then it'll
> be very fast to invoke :)


Thanks, Yuri and Emanuel...  I've seen that a single MusiXTeX piece can be
considered as a tex paragraph, because no blank line should be inserted into
it...  So I can perform my replace-regexp with the `M-h' prefix so applying it
only to the current paragraph/piece...

Rodolfo

Re: replace-regexp from A to B?

[Emanuel Berg]

Rodolfo Medina wrote:

> Thanks, Yuri and Emanuel... I've seen that
> a single MusiXTeX piece can be considered as
> a tex paragraph, because no blank line should
> be inserted into it... So I can perform my
> replace-regexp with the `M-h' prefix so
> applying it only to the current
> paragraph/piece...

So you can do this already with
`replace-regexp'! Writing my previous answer,
I had an itchy feeling it was already there
somewhere... But who would have thought to look
at replace-regexp of all places? Err, good that
you found it anyway :)

Technically speaking tho, and I think you
already know this, `M-h' isn't a prefix to the
next function but just a command to set the
region. Once there, replace-regexp acts on it,
but it doesn't matter in what manner you set it
prior to that.

Not to say there's anything wrong with using
M-h, of course.

-- 
underground experts united
http://user.it.uu.se/~embe8573