shell-current-directory - other window command needed

shell-current-directory - other window command needed

[The Quiet Center]

Hello,

shell-current-directory is an emacs package which allows one to create
a shell whose starting directory is the same as the buffer the command
'shell-current-directory' was invoked in.

The code for the command is here:
http://github.com/metaperl/emacs/blob/master/shell-current-directory.el#L92

What I would like to have is a command 'shell-current-directory-other-
window' which does the same thing, but opens the shell in the other-
window --- the window you would be in if you typed C-x o in the
current window.

I suppose one way to do it is to:
1 - save the current buffer (name?) as orig-buffer
2 - invoke shell-current-directory
3 - save the shell-buffer (name?) as new-shell-buffer
4 - switch-to-buffer orig-buffer
5 - other-window
6 - switch-to-buffer new-shell-buffer

But I am not quite adept enough at elisp to do this :)

Re: shell-current-directory - other window command needed

[Andreas Politz]

The Quiet Center <thequietcenter@gmail.com> writes:

> Hello,
>
> shell-current-directory is an emacs package which allows one to create
> a shell whose starting directory is the same as the buffer the command
> 'shell-current-directory' was invoked in.
>
> The code for the command is here:
> http://github.com/metaperl/emacs/blob/master/shell-current-directory.el#L92
>
> What I would like to have is a command 'shell-current-directory-other-
> window' which does the same thing, but opens the shell in the other-
> window --- the window you would be in if you typed C-x o in the
> current window.
>
> I suppose one way to do it is to:
> 1 - save the current buffer (name?) as orig-buffer
> 2 - invoke shell-current-directory
> 3 - save the shell-buffer (name?) as new-shell-buffer
> 4 - switch-to-buffer orig-buffer
> 5 - other-window
> 6 - switch-to-buffer new-shell-buffer
>
> But I am not quite adept enough at elisp to do this :)

(let (buf)
  (save-window-excursion
    (shell-current-directory-whatever)
    (setq buf (current-buffer)))
  (pop-to-buffer buf))

  
I guess this will work.

-ap

Re: shell-current-directory - other window command needed

[Peter Dyballa]

Am 28.10.2009 um 17:14 schrieb Andreas Politz:

>> shell-current-directory is an emacs package which allows one to  
>> create
>> a shell whose starting directory is the same as the buffer the  
>> command
>> 'shell-current-directory' was invoked in.
>>
>> The code for the command is here:
>> http://github.com/metaperl/emacs/blob/master/shell-current- 
>> directory.el#L92


The behaviour of M-x shell RET in recent Emacsen is exactly like  
this: it sets the new shell's current working directory to that of  
the buffer from which it was invoked. If the buffer is not associated  
with a file, then $HOME or, maybe, the directory from where GNU Emacs  
was launched, is chosen.

--
Greetings

   Pete

Hard Disk, n.:
	A device that allows users to delete vast quantities
	of data with simple mnemonic commands.

Re: shell-current-directory - other window command needed

[The Quiet Center]

On Oct 28, 12:14 pm, Andreas Politz <poli...@fh-trier.de> wrote:
> The Quiet Center <thequietcen...@gmail.com> writes:
>
>
> > What I would like to have is a command 'shell-current-directory-other-
> > window' which does the same thing, but opens the shell in the other-

>
> I guess this will work.

Yes, it works. Thank you. You are credited in the file:
http://github.com/metaperl/emacs/blob/master/shell-current-directory.el#L6

Now to fix the emacswiki version, or point it to git.