Re: Emacs in server mode using a Shepherd user service

[brettg@posteo.net]

On 19.11.2019 22:58, brettg@posteo.net wrote:
> On 19.11.2019 22:57, Maxim Cournoyer wrote:
>> Hello!
>> 
>> brettg@posteo.net writes:
>> 
>>> On 18.11.2019 00:10, Chris Marusich wrote:
>>>> Hi Maxim,
>>>> 
>>>> Maxim Cournoyer <maxim.cournoyer@gmail.com> writes:
>>>> 
>>>>> I typically start Emacs in server mode using a shepherd user 
>>>>> service,
>>>>> so rarely restart Emacs.
>>>> 
>>>> If it isn't too much to ask, could you share the configuration you 
>>>> use
>>>> to accomplish this?  I'd like to do something similar, and I suspect
>>>> it's probably one of those things that is "easy to do" if you 
>>>> already
>>>> know exactly what to do, and rather time-consuming to figure out
>>>> otherwise.  Perhaps we could make another Cook Book section about 
>>>> it?
>>> 
>>> Seconding Chris' comment
>>> 
>>> Brett Gilio
>> 
>> A Cook Book section would indeed be great!  I originally was 
>> enlightened
>> by Dave Thompson on how to go about it.
>> 
>> In my ~/.config/shepherd directory, I have two Scheme files:
>> 
>> init.scm
>> --8<---------------cut here---------------start------------->8---
>> ;;; Shepherd User Services
>> (load "services.scm")
>> 
>> (register-services
>>  emacs
>>  gpg-agent
>>  jackd
>>  ibus-daemon
>>  workrave)
>> 
>> ;; Send shepherd into the background.
>> (action 'shepherd 'daemonize)
>> 
>> ;; Services to start when shepherd starts:
>> (for-each start '(emacs
>> 		  gpg-agent
>> 		  ibus-daemon
>> 		  workrave))
>> --8<---------------cut here---------------end--------------->8---
>> 
>> services.scm
>> --8<---------------cut here---------------start------------->8---
>> (define emacs
>>   (make <service>
>>     #:provides '(emacs)
>>     #:requires '()
>>     #:start (make-system-constructor "emacs --daemon")
>>     #:stop (make-system-destructor "emacsclient --eval 
>> \"(kill-emacs)\"")))
>> 
>> (define ibus-daemon
>>   (make <service>
>>     #:provides '(ibus-daemon)
>>     #:requires '()
>>     #:start (make-system-constructor "ibus-daemon --xim --daemonize 
>> --replace")
>>     #:stop (make-system-destructor "pkill ibus-daemon")))
>> 
>> (define jackd
>>   (make <service>
>>     #:provides '(jackd)
>>     #:requires '()
>>     #:start (make-system-constructor "jackd -d alsa &")
>>     #:stop (make-system-destructor "pkill jackd")))
>> 
>> (define gpg-agent
>>   (let ((pinentry (string-append (getenv "HOME")
>> 				 "/.guix-profile/bin/pinentry")))
>>     (make <service>
>>       #:provides '(gpg-agent)
>>       #:requires '()
>>       #:start (make-system-constructor
>> 	       (string-append "gpg-agent --daemon "
>> 			      "--pinentry-program " pinentry))
>>       #:stop (make-system-destructor "gpgconf --kill gpg-agent"))))
>> 
>> (define workrave
>>   (make <service>
>>     #:provides '(workrave)
>>     #:requires '()
>>     #:start (make-system-constructor "workrave &")
>>     #:stop (make-system-destructor "pkill workrave")))
>> --8<---------------cut here---------------end--------------->8---
>> 
>> I've included all the services I currently use in case they might be 
>> of
>> interest.
>> 
>> The last bit that is needed (other than having the required software
>> installed to your profile, including shepherd), is to launch shepherd
>> when your session starts:
>> 
>> For me, that is simply calling 'shepherd' in my ~/.xsession, just 
>> before
>> the call to my window manager (ratpoison).
>> 
>> I then start Emacs using 'emacsclient -c'.
>> 
>> HTH!
>> 
>> Maxim
> 
> Perfect, thank you Maxim!

I also want to throw Alex's git repo out there which is relevant

https://github.com/alezost/shepherd-config