auto-revert-mode

auto-revert-mode

[Gary]

I know I can use M-x auto-revert-mode to turn this on manually on a per
buffer basis, but is there any way to do so for all files matching the
pattern ".*\.foo" (for example)? I tried adding it to the mode hook
related to "foo" files but it didn't work for some reason.

-- 
Gary        Please do NOT send me 'courtesy' replies off-list.
GNU Emacs 23.2.1
emacsclient 23.2
1.7.7(0.230/5/3) 2010-08-31 09:58 Cygwin

Re: auto-revert-mode

[Deniz Dogan]

2010/9/14 Gary <help-gnu-emacs@garydjones.name>:
> I know I can use M-x auto-revert-mode to turn this on manually on a per
> buffer basis, but is there any way to do so for all files matching the
> pattern ".*\.foo" (for example)? I tried adding it to the mode hook
> related to "foo" files but it didn't work for some reason.
>
> --
> Gary        Please do NOT send me 'courtesy' replies off-list.
> GNU Emacs 23.2.1
> emacsclient 23.2
> 1.7.7(0.230/5/3) 2010-08-31 09:58 Cygwin
>
>
>

This seems to work for me:

(add-hook 'find-file-hook 'auto-revert-mode)

That will affect all files and file extensions. I can't see any reason
why it wouldn't work for just about any hook. Are you sure
foo-mode-hook is executed at all?

As a last resort, you can use something like this (untested):

(add-hook
 'find-file-hook
 (lambda ()
   (when (string-match "\\.foo\\'" buffer-file-name)
     (auto-revert-mode 1))))

-- 
Deniz Dogan

Re: auto-revert-mode

[Oleksandr Gavenko]

On 14.09.2010 11:24, Gary wrote:
> I know I can use M-x auto-revert-mode to turn this on manually on a per
> buffer basis, but is there any way to do so for all files matching the
> pattern ".*\.foo" (for example)? I tried adding it to the mode hook
> related to "foo" files but it didn't work for some reason.
>

(add-to-list
  'find-file-hook
  (lambda nil
    (when (equal (file-name-extension (buffer-file-name)) "log")
        (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
        )))

I don't know more efficient way to do this.

Re: auto-revert-mode

[Gary]

Deniz Dogan wrote:
> 2010/9/14 Gary :
>> I know I can use M-x auto-revert-mode to turn this on manually on a per
>> buffer basis, but is there any way to do so for all files matching the
>> pattern ".*\.foo" (for example)? I tried adding it to the mode hook
>> related to "foo" files but it didn't work for some reason.

> This seems to work for me:
>
> (add-hook 'find-file-hook 'auto-revert-mode)
>
> That will affect all files and file extensions. I can't see any reason
> why it wouldn't work for just about any hook. Are you sure
> foo-mode-hook is executed at all?

Umm... err... Look! What's that over there? *points and runs away

I, ahh, had a stale .elc :D Thanks for pointing it out :)

-- 
Gary        Please do NOT send me 'courtesy' replies off-list.
GNU Emacs 23.2.1
emacsclient 23.2
1.7.7(0.230/5/3) 2010-08-31 09:58 Cygwin

Re: auto-revert-mode

[Gary]

Oleksandr Gavenko wrote:
> (add-to-list
>  'find-file-hook
>  (lambda nil
>    (when (equal (file-name-extension (buffer-file-name)) "log")
>        (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>        )))
>
> I don't know more efficient way to do this.

Actually I really like this. I have two types of file associated with
the mode in question, one of which is generated from the other, that is
why I want to automatically revert the generated files when I generate
them from the originals. Your solution allows me to differentiate between
the two. Thanks!

-- 
Gary        Please do NOT send me 'courtesy' replies off-list.
GNU Emacs 23.2.1
emacsclient 23.2
1.7.7(0.230/5/3) 2010-08-31 09:58 Cygwin

Re: auto-revert-mode

[Stefan Monnier]

> (add-to-list
>  'find-file-hook

Please use add-hook when adding things to hooks.
Otherwise you may be surprised when applying add-to-list to a hook that
was made buffer-local.


        Stefan

Re: auto-revert-mode

[Thamer Mahmoud]

Oleksandr Gavenko <gavenko@bifit.com.ua> writes:
>
> (add-to-list
>  'find-file-hook
>  (lambda nil
>    (when (equal (file-name-extension (buffer-file-name)) "log")
>        (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>        )))
>
> I don't know more efficient way to do this.
>

Here is another solution:

(add-to-list 'auto-mode-alist 
	     '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))

-- 
Thamer

Re: auto-revert-mode

[Andreas Politz]

Thamer Mahmoud <thamer.mahmoud@gmail.com> writes:

> Oleksandr Gavenko <gavenko@bifit.com.ua> writes:
>>
>> (add-to-list
>>  'find-file-hook
>>  (lambda nil
>>    (when (equal (file-name-extension (buffer-file-name)) "log")
>>        (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>>        )))
>>
>> I don't know more efficient way to do this.
>>
>
> Here is another solution:
>
> (add-to-list 'auto-mode-alist 
> 	     '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))

With the sideeffect of inhibiting the proper major-mode for .foo files.
Maybe this calls for another variable `auto-minor-mode-alist'.

-ap

Re: auto-revert-mode

[Oleksandr Gavenko]

Thamer Mahmoud wrote:
> Oleksandr Gavenko <gavenko@bifit.com.ua> writes:
>> (add-to-list
>>  'find-file-hook
>>  (lambda nil
>>    (when (equal (file-name-extension (buffer-file-name)) "log")
>>        (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>>        )))
>>
>> I don't know more efficient way to do this.
>>
> 
> Here is another solution:
> 
> (add-to-list 'auto-mode-alist 
> 	     '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))
> 

auto-mode-alist is a variable defined in `files.el'.
Documentation:
Alist of filename patterns vs corresponding major mode functions.
...
If the element has the form (REGEXP FUNCTION NON-NIL), then after
calling FUNCTION (if it's not nil), we delete the suffix that matched
REGEXP and search the list again for another match.


So if my file has name my.c.foo and I open it I got
file in major c-mode and minor auto-revert-mode!


Beside side effect of this hack for me interesting
how 'auto-mode-alist' processed - invoke major mode once for first
regex match on for all matches?

So if for your .foo extension desired some major mode
you may hid it by minor mode!

-- 
Best regards!

Re: auto-revert-mode

[Thamer Mahmoud]

Oleksandr Gavenko <gavenkoa@gmail.com> writes:

> Thamer Mahmoud wrote:
>> Here is another solution:
>>
>> (add-to-list 'auto-mode-alist 	     '("\\.foo\\'" (lambda ()
>> (auto-revert-mode 1)) t))
[...]
>
> So if for your .foo extension desired some major mode
> you may hid it by minor mode!

Yes, you're right. I used the code above for an extension that Emacs
doesn't yet know about (with no major-mode, and no major-mode
hook). However, it's possible to set both the major and minor mode for
one extension using the following:

(add-to-list 'auto-mode-alist 
	     '("\\.foo\\'" . (lambda () (c-mode) (auto-revert-mode 1))))

Perhaps it would be useful if Emacs had an `auto-minor-mode-alist'
variable, i.e., a list of minor modes that are enabled based on file
name without bothering with major modes.

-- 
Thamer

Re: auto-revert-mode

[Deniz Dogan]

2010/9/15 Thamer Mahmoud <thamer.mahmoud@gmail.com>:
> Oleksandr Gavenko <gavenkoa@gmail.com> writes:
>
>> Thamer Mahmoud wrote:
>>> Here is another solution:
>>>
>>> (add-to-list 'auto-mode-alist             '("\\.foo\\'" (lambda ()
>>> (auto-revert-mode 1)) t))
> [...]
>>
>> So if for your .foo extension desired some major mode
>> you may hid it by minor mode!
>
> Yes, you're right. I used the code above for an extension that Emacs
> doesn't yet know about (with no major-mode, and no major-mode
> hook). However, it's possible to set both the major and minor mode for
> one extension using the following:
>
> (add-to-list 'auto-mode-alist
>             '("\\.foo\\'" . (lambda () (c-mode) (auto-revert-mode 1))))
>
> Perhaps it would be useful if Emacs had an `auto-minor-mode-alist'
> variable, i.e., a list of minor modes that are enabled based on file
> name without bothering with major modes.
>

I think that any respectable major mode should provide an appropriable
foo-mode-hook instead.

-- 
Deniz Dogan

Re: auto-revert-mode

[Stefan Monnier]

>>> (add-to-list
>>> 'find-file-hook
>>> (lambda nil
>>> (when (equal (file-name-extension (buffer-file-name)) "log")
>>> (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>>> )))
>>> 
>>> I don't know more efficient way to do this.
>>> 
>> 
>> Here is another solution:
>> 
>> (add-to-list 'auto-mode-alist 
>> '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))

In Emacs-24 you'll be able to just say

   (add-to-list 'auto-mode-alist '("\\.foo\\'" auto-revert-mode t))

> With the sideeffect of inhibiting the proper major-mode for .foo files.
> Maybe this calls for another variable `auto-minor-mode-alist'.

No, the t he put at the end tells Emacs to keep looking for a major mode
(but I'm not sure if his incantation will work because the subsequent
call to the major mode may end up turning off auto-revert-mode, I'm
afraid).


        Stefan

Re: auto-revert-mode

[Andreas Politz]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>>> (add-to-list
>>>> 'find-file-hook
>>>> (lambda nil
>>>> (when (equal (file-name-extension (buffer-file-name)) "log")
>>>> (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>>>> )))
>>>> 
>>>> I don't know more efficient way to do this.
>>>> 
>>> 
>>> Here is another solution:
>>> 
>>> (add-to-list 'auto-mode-alist 
>>> '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))
>
> In Emacs-24 you'll be able to just say
>
>    (add-to-list 'auto-mode-alist '("\\.foo\\'" auto-revert-mode t))
>
>> With the sideeffect of inhibiting the proper major-mode for .foo files.
>> Maybe this calls for another variable `auto-minor-mode-alist'.
>
> No, the t he put at the end tells Emacs to keep looking for a major mode

But with the extension removed.  At least that's how the 3rd value is
explained in the documentation.

-ap

Re: auto-revert-mode

[Andreas Politz]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>>> (add-to-list
>>>> 'find-file-hook
>>>> (lambda nil
>>>> (when (equal (file-name-extension (buffer-file-name)) "log")
>>>> (auto-revert-mode 1) ;; or (auto-revert-tail-mode 1) !!
>>>> )))
>>>>
>>>> I don't know more efficient way to do this.
>>>>
>>>
>>> Here is another solution:
>>>
>>> (add-to-list 'auto-mode-alist
>>> '("\\.foo\\'" (lambda () (auto-revert-mode 1)) t))
>
> In Emacs-24 you'll be able to just say
>
>    (add-to-list 'auto-mode-alist '("\\.foo\\'" auto-revert-mode t))
>
>> With the sideeffect of inhibiting the proper major-mode for .foo files.
>> Maybe this calls for another variable `auto-minor-mode-alist'.
>
> No, the t he put at the end tells Emacs to keep looking for a major mode

But with the extension removed.  At least that's how the 3rd value is
explained in the documentation.

-ap