how to set local key in dired to use vm on file

how to set local key in dired to use vm on file

[Gilbert Harman]

Could anyone advise me how to use (set-local-key) or something else so that
when I am in dired and the cursor is over a file, I get vm-visit-folder to
visit that file?

I can get as far as:

(setq dired-mode-hook
      '(lambda ()
     (local-set-key "V" 'vm-visit-folder)))

But that still prompts me for the name of the file to visit.

Thanks in advance.

 Gil

Re: how to set local key in dired to use vm on file

[Pascal Bourguignon]

Gilbert Harman <harman@Princeton.EDU> writes:

> Could anyone advise me how to use (set-local-key) or something else so that
> when I am in dired and the cursor is over a file, I get vm-visit-folder to
> visit that file?
> 
> I can get as far as:
> 
> (setq dired-mode-hook
>       '(lambda ()
>      (local-set-key "V" 'vm-visit-folder)))
> 
> But that still prompts me for the name of the file to visit.

Type: C-h f vm-visit-folder RET
Read the documentation. 
See that vm-visit-folder is a function that takes a "folder" argument.
Replace you hook with:


(setq dired-mode-hook
      '(lambda ()
         (local-set-key "V" (lambda () (interactive)
                                (vm-visit-folder some-folder)))))

Substitute some-folder by the expression that returns the file
selected in dired.

If you're like me and don't know anything about dired, open a
directory with dired: M-x dired RET
move to some file, and see what is done when typing RET with:
C-h k RET
Move over the file name "dired" and type RET
read the source of dired-find-file and see that the file name is found with:
    (file-name-sans-versions (dired-get-filename) t)
substitute this for some-folder above.


Lesson learned: 
use: C-h f
     C-h k
     Click on a file name in a Help window,
     Read the source: it's OPEN software, and you're FREE to read it!

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
The world will now reboot; don't bother saving your artefacts.

Re: how to set local key in dired to use vm on file

[Henrik Enberg]

Gilbert Harman <harman@Princeton.EDU> writes:

> Could anyone advise me how to use (set-local-key) or something else so that
> when I am in dired and the cursor is over a file, I get vm-visit-folder to
> visit that file?
>
> I can get as far as:
>
> (setq dired-mode-hook
>       '(lambda ()
>      (local-set-key "V" 'vm-visit-folder)))

Emacs already have support for this in dired-x.el.  Putting Something
like the following in your .emacs should bind "V" to the function you
want.

(add-hook 'dired-load-hook
	  (lambda ()
	    (require 'dired-x)
	    (setq dired-bind-vm t)))

As an aside, `add-hook' is the prefered way to add stuff to a hook.
`setq' will overwrite any other stuff that may be in the hook.

Re: how to set local key in dired to use vm on file

[V. L. Simpson]

>>>>> "Gilbert" == Gilbert Harman <harman@Princeton.EDU> writes:

    > Could anyone advise me how to use (set-local-key) or
    > something else so that when I am in dired and the cursor is
    > over a file, I get vm-visit-folder to visit that file?

    > I can get as far as:

    > (setq dired-mode-hook '(lambda () (local-set-key "V"
    > 'vm-visit-folder)))

You shouldn't use setq on mode-hooks.  Use add-hook instead.

The dired-ex package has 'dired-bind-vm' for doing exactly what you want.

example

(add-hook 'dired-load-hook  
             (lambda ()
                (load "dired-x")
                (setq dired-bind-vm t)))

dired-load-hook is better than dired-mode-hook as it's only run
the first time you use dired.  Trust me, it's what you want. 8-]

Have fun,
vls