How to run server-start only if not already running?

How to run server-start only if not already running?

[Reuben Thomas]

Sometimes, normally by error, I start a second Emacs. Since my .emacs runs 
server-start, this overrides the server I run in my normally-running Emacs. 
After quitting the erroneously-started Emacs, I no longer have a server and 
need manually to restart it. Is there some way to run server-start in my 
.emacs only if there's no server currently? It'd be nice to make this easy!

Possibly alternatively, it'd be nice to enable emacsclient to start a server 
process if there's already a running Emacs but no server running in it.

-- 
http://rrt.sc3d.org/ | dumb blonde, n. susbt. phr.  peroxymoron

Re: How to run server-start only if not already running?

[Andreas Schwab]

Reuben Thomas <rrt@sc3d.org> writes:

> Sometimes, normally by error, I start a second Emacs. Since my .emacs runs
> server-start, this overrides the server I run in my normally-running
> Emacs. After quitting the erroneously-started Emacs, I no longer have a
> server and need manually to restart it. Is there some way to run
> server-start in my .emacs only if there's no server currently? It'd be
> nice to make this easy!

I'm using this:

(when (and (file-exists-p (expand-file-name server-name server-socket-dir))
	   (let ((status (call-process "/usr/bin/lsof"
				       nil nil nil
				       (expand-file-name server-name
							 server-socket-dir))))
	     (or (not (numberp status)) (equal status 0))))
  (setq server-name (format "%s-%d" server-name (emacs-pid)))
  (add-hook 'kill-emacs-hook
    (lambda () (condition-case nil
		   (delete-file (expand-file-name server-name
						  server-socket-dir))
		 (error nil)))))
(server-start)

> Possibly alternatively, it'd be nice to enable emacsclient to start a
> server process if there's already a running Emacs but no server running in
> it.

Kinda chicken-and-egg: how do you contact the running Emacs without the
server?

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: How to run server-start only if not already running?

[Reuben Thomas]

On Wed, 7 Nov 2007, Andreas Schwab wrote:

[useful code]

Thanks for that. Could something like this be built in as an option to 
server-start?

> Kinda chicken-and-egg: how do you contact the running Emacs without the
> server?

I don't know. I was hoping there was an answer.

-- 
http://rrt.sc3d.org/ | habit, n.  a shackle for the free (Bierce)

Re: How to run server-start only if not already running?

[Lennart Borgman (gmail)]

Reuben Thomas wrote:
> On Wed, 7 Nov 2007, Andreas Schwab wrote:
> 
> [useful code]
> 
> Thanks for that. Could something like this be built in as an option to 
> server-start?
> 
>> Kinda chicken-and-egg: how do you contact the running Emacs without the
>> server?
> 
> I don't know. I was hoping there was an answer.

What is possible is to make emacsclient start Emacs and the server, but 
I guess that is not what you want?

Re: How to run server-start only if not already running?

[Reuben Thomas]

On Wed, 7 Nov 2007, Lennart Borgman (gmail) wrote:

> Reuben Thomas wrote:
>> On Wed, 7 Nov 2007, Andreas Schwab wrote:
>> 
>> [useful code]
>> 
>> Thanks for that. Could something like this be built in as an option to 
>> server-start?
>> 
>>> Kinda chicken-and-egg: how do you contact the running Emacs without the
>>> server?
>> 
>> I don't know. I was hoping there was an answer.
>
> What is possible is to make emacsclient start Emacs and the server, but I 
> guess that is not what you want?

That's right. If I just have emacs and no server, it would be nice to get 
emacs to start the server.

-- 
http://rrt.sc3d.org/
Reality is what refuses to disappear when you stop believing in it (Dick)

Re: How to run server-start only if not already running?

[Reuben Thomas]

On Wed, 7 Nov 2007, Andreas Schwab wrote:

> (when (and (file-exists-p (expand-file-name server-name server-socket-dir))
> 	   (let ((status (call-process "/usr/bin/lsof"
> 				       nil nil nil
> 				       (expand-file-name server-name
> 							 server-socket-dir))))
> 	     (or (not (numberp status)) (equal status 0))))
>  (setq server-name (format "%s-%d" server-name (emacs-pid)))
>  (add-hook 'kill-emacs-hook
>    (lambda () (condition-case nil
> 		   (delete-file (expand-file-name server-name
> 						  server-socket-dir))
> 		 (error nil)))))
> (server-start)

I needed to add (require 'server) to the start. After that it does exactly 
what I want, thanks.

-- 
http://rrt.sc3d.org/ | punline, n.  a punch line that really hurts

Re: How to run server-start only if not already running?

[Richard Stallman]

      (add-hook 'kill-emacs-hook
	(lambda () (condition-case nil
		       (delete-file (expand-file-name server-name
						      server-socket-dir))
		     (error nil))))

Is it necessary to delete a socket explicitly when the process that
created it dies?  If so, shouldn't server.el do this normally?  It
appears currently to do delete the file only when you start a server,
not when you kill the Emacs.

If that change were made, your hack would be simpler, and we could
put into server.el too.  Why not?

Re: How to run server-start only if not already running?

[Andreas Schwab]

Richard Stallman <rms@gnu.org> writes:

>       (add-hook 'kill-emacs-hook
> 	(lambda () (condition-case nil
> 		       (delete-file (expand-file-name server-name
> 						      server-socket-dir))
> 		     (error nil))))
>
> Is it necessary to delete a socket explicitly when the process that
> created it dies?

This is for compatibility with older versions of server.el, which didn't
do it by itself.

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: How to run server-start only if not already running?

[Richard Stallman]

    This is for compatibility with older versions of server.el, which didn't
    do it by itself.

That's good.  Would you like to write a patch for the trunk's server.el
to provide a feature more or less like this?
The two behaviors that seem possibly desirable are to
start the second server with a different name,
or not start a second server at all.

Re: How to run server-start only if not already running?

[Andreas Schwab]

Richard Stallman <rms@gnu.org> writes:

>     This is for compatibility with older versions of server.el, which didn't
>     do it by itself.
>
> That's good.  Would you like to write a patch for the trunk's server.el
> to provide a feature more or less like this?

The problem is that it needs to find out whether another process is
using the socket, which is not quite a portable thing to do.

Andreas.

-- 
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."