what can I do with regexp match?

what can I do with regexp match?

[Seweryn Kokot]

Hello,

I would like to have a function that visits all the tex files included
in main.tex file. I wrote the following function:
(defun my-document-files ()
  "Open all document files"
  (interactive)
  (while (re-search-forward "\\\\include{\\(.*\\)}")
	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))

But it doesn't work since \\1 is not replaced by regexp match. The
result is that the function visits \1.tex file. The question is how to
process the regexp match to make it argument for find-file or more
general question how to save the match in a variable or list?

regards,
Seweryn Kokot

Re: what can I do with regexp match?

[Lennart Borgman (gmail)]

Seweryn Kokot wrote:
> Hello,
> 
> I would like to have a function that visits all the tex files included
> in main.tex file. I wrote the following function:
> (defun my-document-files ()
>   "Open all document files"
>   (interactive)
>   (while (re-search-forward "\\\\include{\\(.*\\)}")
> 	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))
> 
> But it doesn't work since \\1 is not replaced by regexp match. The
> result is that the function visits \1.tex file. The question is how to
> process the regexp match to make it argument for find-file or more
> general question how to save the match in a variable or list?


(match-string 1) ;; At least in Emacs 22

Re: what can I do with regexp match?

[Seweryn Kokot]

"Lennart Borgman (gmail)" <lennart.borgman@gmail.com> writes:

> Seweryn Kokot wrote:
>> Hello,
>>
>> I would like to have a function that visits all the tex files included
>> in main.tex file. I wrote the following function:
>> (defun my-document-files ()
>>   "Open all document files"
>>   (interactive)
>>   (while (re-search-forward "\\\\include{\\(.*\\)}")
>> 	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))
>>
>> But it doesn't work since \\1 is not replaced by regexp match. The
>> result is that the function visits \1.tex file. The question is how to
>> process the regexp match to make it argument for find-file or more
>> general question how to save the match in a variable or list?
>
>
> (match-string 1) ;; At least in Emacs 22
Thanks, the prolbem with \1 is solved but then the function only finds
first occurrence of \include{filename} and then I get in the echo buffer: 
while: Search failed: "\\\\include{\\(.*\\)}"

Now my function is:
(defun my-document-files ()
  "Open all document files"
  (interactive)
  (while (re-search-forward "\\\\include{\\(.*\\)}")
	 (find-file (concat "~/nauka/doktorat/thesis/" (match-string 1) ".tex"))))

why it failed although I have much more occurences of \include{...} in
the main.tex file? Any idea?

Re: what can I do with regexp match?

[Lennart Borgman (gmail)]

Seweryn Kokot wrote:
> "Lennart Borgman (gmail)" <lennart.borgman@gmail.com> writes:
> 
>> Seweryn Kokot wrote:
>>> Hello,
>>>
>>> I would like to have a function that visits all the tex files included
>>> in main.tex file. I wrote the following function:
>>> (defun my-document-files ()
>>>   "Open all document files"
>>>   (interactive)
>>>   (while (re-search-forward "\\\\include{\\(.*\\)}")
>>> 	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))
>>>
>>> But it doesn't work since \\1 is not replaced by regexp match. The
>>> result is that the function visits \1.tex file. The question is how to
>>> process the regexp match to make it argument for find-file or more
>>> general question how to save the match in a variable or list?
>>
>> (match-string 1) ;; At least in Emacs 22
> Thanks, the prolbem with \1 is solved but then the function only finds
> first occurrence of \include{filename} and then I get in the echo buffer: 
> while: Search failed: "\\\\include{\\(.*\\)}"
> 
> Now my function is:
> (defun my-document-files ()
>   "Open all document files"
>   (interactive)
>   (while (re-search-forward "\\\\include{\\(.*\\)}")
> 	 (find-file (concat "~/nauka/doktorat/thesis/" (match-string 1) ".tex"))))
> 
> why it failed although I have much more occurences of \include{...} in
> the main.tex file? Any idea?

Read the documentation for find-file.

Re: what can I do with regexp match?

[Seweryn Kokot]

"Lennart Borgman (gmail)" <lennart.borgman@gmail.com> writes:

>> Now my function is:
>> (defun my-document-files ()
>>   "Open all document files"
>>   (interactive)
>>   (while (re-search-forward "\\\\include{\\(.*\\)}")
>> 	 (find-file (concat "~/" (match-string 1) ".tex"))))
>>
>> why it failed although I have much more occurences of \include{...} in
>> the main.tex file? Any idea?
>
> Read the documentation for find-file.
Ok I see the problem I wonder if it would be better first to read a
buffer to a variable, then to search regexp, then assign matches to a
list and finally visit files from the list using dolist? But the problem
is how to create a list from regexp matches?

(defun my-document-files ()
  ""
  (interactive)
  (save-excursion
	 (let ((bufor (buffer-substring-no-properties (point-min) (point-max)))
			 pliki wartosc)
		(string-match "\\\\include{\\(.*?\\)}" bufor)
		(setq (match-string 0) pliki)
		(dolist (plik pliki wartosc)
		  (find-file (concat "~/foo/" plik ".tex"))))))

Re: what can I do with regexp match?

[Lennart Borgman (gmail)]

Seweryn Kokot wrote:
> "Lennart Borgman (gmail)" <lennart.borgman@gmail.com> writes:
> 
>>> Now my function is:
>>> (defun my-document-files ()
>>>   "Open all document files"
>>>   (interactive)
>>>   (while (re-search-forward "\\\\include{\\(.*\\)}")
>>> 	 (find-file (concat "~/" (match-string 1) ".tex"))))
>>>
>>> why it failed although I have much more occurences of \include{...} in
>>> the main.tex file? Any idea?
>> Read the documentation for find-file.
> Ok I see the problem I wonder if it would be better first to read a
> buffer to a variable, then to search regexp, then assign matches to a
> list and finally visit files from the list using dolist? But the problem
> is how to create a list from regexp matches?


It does not really matter if you use find-file-noselect or create a list 
for this particular problem. The most easy way to build a list is 
perhaps this:

   (add-to-list 'my-list (match-string 1))

Re: what can I do with regexp match?

[Seweryn Kokot]

"Lennart Borgman (gmail)" <lennart.borgman@gmail.com> writes:
> It does not really matter if you use find-file-noselect or create a
> list for this particular problem. The most easy way to build a list is
> perhaps this:
>
>   (add-to-list 'my-list (match-string 1))
In fact, both versions work.
Thanks a lot for help!

regards
Seweryn

Re: what can I do with regexp match?

[Michaël Cadilhac]

[-- Attachment #1.1: Type: text/plain, Size: 804 bytes --]

Seweryn Kokot <s.kokot@po.opole.pl> writes:

> Now my function is:
> (defun my-document-files ()
>   "Open all document files"
>   (interactive)
>   (while (re-search-forward "\\\\include{\\(.*\\)}")
> 	 (find-file (concat "~/nauka/doktorat/thesis/" (match-string 1) ".tex"))))
>
> why it failed although I have much more occurences of \include{...} in
> the main.tex file? Any idea?

See the documentation for `find-file', and maybe use
`save-window-excursion'.

-- 
 |   Michaël `Micha' Cadilhac       |  All your base are belong to us.       |
 |   http://michael.cadilhac.name   |    You have no chance to survive       |
 |   JID/MSN:                       |       make your time, hahaha.          |
 `----  michael.cadilhac@gmail.com  |       -- Zero Wings               -  --'

[-- Attachment #1.2: Type: application/pgp-signature, Size: 188 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: what can I do with regexp match?

[Stefan Monnier]

> See the documentation for `find-file', and maybe use
> `save-window-excursion'.

Please not save-window-excursion.  If you don't want to change windows, then
just don't change them: saving&restoring them is asking for trouble.

`find-file' is an interactive function.  You should basically *never* call
it from elisp.  Always use find-file-noselect instead.


        Stefan

Re: what can I do with regexp match?

[David Kastrup]

Seweryn Kokot <skokot@po.opole.pl> writes:

> Hello,
>
> I would like to have a function that visits all the tex files included
> in main.tex file. I wrote the following function:
> (defun my-document-files ()
>   "Open all document files"
>   (interactive)
>   (while (re-search-forward "\\\\include{\\(.*\\)}")
> 	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))
>
> But it doesn't work since \\1 is not replaced by regexp match. The
> result is that the function visits \1.tex file. The question is how to
> process the regexp match to make it argument for find-file or more
> general question how to save the match in a variable or list?

You know
M-x reftex-query-replace-document RET ?

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: what can I do with regexp match?

[Seweryn Kokot]

David Kastrup <dak@gnu.org> writes:

> Seweryn Kokot <skokot@po.opole.pl> writes:
>
>> Hello,
>>
>> I would like to have a function that visits all the tex files included
>> in main.tex file. I wrote the following function:
>> (defun my-document-files ()
>>   "Open all document files"
>>   (interactive)
>>   (while (re-search-forward "\\\\include{\\(.*\\)}")
>> 	 (find-file (concat "~/nauka/doktorat/thesis/" "\\1" ".tex"))))
>>
>> But it doesn't work since \\1 is not replaced by regexp match. The
>> result is that the function visits \1.tex file. The question is how to
>> process the regexp match to make it argument for find-file or more
>> general question how to save the match in a variable or list?
>
> You know
> M-x reftex-query-replace-document RET ?

I'm a newbie with emacs lisp so I cannot see how it can apply to my
case. Writing an elisp function I'm learning elisp, but it seems that
reftex-query-replace-document is only interactive or am I wrong?

Re: what can I do with regexp match?

[Lennart Borgman (gmail)]

Seweryn Kokot wrote:

> I'm a newbie with emacs lisp so I cannot see how it can apply to my
> case. Writing an elisp function I'm learning elisp, but it seems that
> reftex-query-replace-document is only interactive or am I wrong?


I do not believe there are any functions that can be called only 
interactively in Emacs. You can call interactive functions like any 
other elisp functions.

Re: what can I do with regexp match?

[Ralf Angeli]

* Seweryn Kokot (2007-05-14) writes:

> I would like to have a function that visits all the tex files included
> in main.tex file.

Why?

-- 
Ralf

Re: what can I do with regexp match?

[Seweryn Kokot]

Ralf Angeli <dev.null@caeruleus.net> writes:
> * Seweryn Kokot (2007-05-14) writes:
>
>> I would like to have a function that visits all the tex files included
>> in main.tex file.
>
> Why?
Because from time to time I need to check spelling of all document files with 
C-c C-c Spell and this requires all files visited.

Seweryn Kokot