Create shell from ido

Create shell from ido

[Nathaniel Flath]

[-- Attachment #1: Type: text/plain, Size: 196 bytes --]

Hello,
I have ido activated.  If I do C-x C-f and navigate to a directory, C-d will
open a dired buffer in that directory.  Is there a way to open a shell
buffer instead?

Thanks,
Nathaniel Flath

[-- Attachment #2: Type: text/html, Size: 213 bytes --]

Re: Create shell from ido

[Kevin Rodgers]

Nathaniel Flath wrote:
> Hello,
> I have ido activated.  If I do C-x C-f and navigate to a directory, C-d 
> will open a dired buffer in that directory.  Is there a way to open a 
> shell buffer instead?

I don't use ido, so I don't even know how to test this.  But here's what I came
up with from looking at ido.el.  I didn't understand how to properly implement
ido-magic-control-s, so you have to type `C-x C-f C-x C-s' (by analogy with
`C-x C-f C-x C-d', which runs ido-enter-dired):

(defun ido-enter-shell ()
   "Drop into `shell' from file switching."
   (interactive)
   (setq ido-exit 'shell)
   (exit-minibuffer))

(define-key ido-file-dir-completion-map "\C-x\C-s" 'ido-enter-shell)

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Create shell from ido

[Nathaniel Flath]

[-- Attachment #1: Type: text/plain, Size: 1276 bytes --]

That doesn't work, unfortunately - I tried it., as well as emulating the
other dired stuff.  I'm not sure why that doesn't work, but I managed to
write a function that does:

(defun ido-shell ()
  (interactive)
  (let ((dirname (expand-file-name (ido-read-directory-name "Shell in
directory: "))))
    (shell dirname)
    (comint-send-string (current-buffer) (concat "cd " dirname "\n"))))

Thanks,
Nathaniel Flath

On Fri, Jan 29, 2010 at 12:00 AM, Kevin Rodgers
<kevin.d.rodgers@gmail.com>wrote:

> Nathaniel Flath wrote:
>
>> Hello,
>> I have ido activated.  If I do C-x C-f and navigate to a directory, C-d
>> will open a dired buffer in that directory.  Is there a way to open a shell
>> buffer instead?
>>
>
> I don't use ido, so I don't even know how to test this.  But here's what I
> came
> up with from looking at ido.el.  I didn't understand how to properly
> implement
> ido-magic-control-s, so you have to type `C-x C-f C-x C-s' (by analogy with
> `C-x C-f C-x C-d', which runs ido-enter-dired):
>
> (defun ido-enter-shell ()
>  "Drop into `shell' from file switching."
>  (interactive)
>  (setq ido-exit 'shell)
>  (exit-minibuffer))
>
> (define-key ido-file-dir-completion-map "\C-x\C-s" 'ido-enter-shell)
>
> --
> Kevin Rodgers
> Denver, Colorado, USA
>
>
>
>

[-- Attachment #2: Type: text/html, Size: 1930 bytes --]

Re: Create shell from ido

[José A. Romero L.]

On 28 Sty, 02:54, Nathaniel Flath <flat0...@gmail.com> wrote:
> Hello,
> I have ido activated.  If I do C-x C-f and navigate to a directory, C-d will
> open a dired buffer in that directory.  Is there a way to open a shell
> buffer instead?
>
> Thanks,
> Nathaniel Flath

Depends on the shell you want to use. For regular shell you could use
something like this:

(defun nf/openshell (&optional dir)
  (interactive "DDirectory to open shell into: ")
  (shell)
  (if dir
      (comint-send-string
       (current-buffer)
       (concat "cd " (shell-quote-wildcard-pattern dir) "

"))))

in any case, it doesn't seem  to be possible to open a shell directly
in any  arbitrary directory other than  default-directory. You always
have to send a "cd something" to move to where you want to be (though
I'd be glad to find out I'm wrong). In any case, that's the same I do
in  SrC (http://www.emacswiki.org/emacs/Sunrise_Commander)  and works
quite well for me.

Cheers,
--
José A. Romero L.
escherdragon at gmail.com
"We who cut mere stones must always be envisioning cathedrals."
(Quarry worker's creed)

Re: Create shell from ido

[Andreas Röhler]

José A. Romero L. wrote:
> On 28 Sty, 02:54, Nathaniel Flath <flat0...@gmail.com> wrote:
>   
>> Hello,
>> I have ido activated.  If I do C-x C-f and navigate to a directory, C-d will
>> open a dired buffer in that directory.  Is there a way to open a shell
>> buffer instead?
>>
>> Thanks,
>> Nathaniel Flath
>>     
>
> Depends on the shell you want to use. For regular shell you could use
> something like this:
>
> (defun nf/openshell (&optional dir)
>   (interactive "DDirectory to open shell into: ")
>   (shell)
>   (if dir
>       (comint-send-string
>        (current-buffer)
>        (concat "cd " (shell-quote-wildcard-pattern dir) "
>
> "))))
>
> in any case, it doesn't seem  to be possible to open a shell directly
> in any  arbitrary directory other than  default-directory. 

It's not ido, but it should do it:

(defun My-Shell-where-I-want-it ()
 (interactive)
 (dired "My-precious-directory")
 (shell))

Maybe adapt that for ido, if necessary.

Cheers

Andreas
> You always
> have to send a "cd something" to move to where you want to be (though
> I'd be glad to find out I'm wrong). In any case, that's the same I do
> in  SrC (http://www.emacswiki.org/emacs/Sunrise_Commander)  and works
> quite well for me.
>
> Cheers,
> --
> José A. Romero L.
> escherdragon at gmail.com
> "We who cut mere stones must always be envisioning cathedrals."
> (Quarry worker's creed)
>
>