On Wed, Feb 21, 2024 at 12:47:59PM -0800, Felix Lechner via wrote:
> Hi,
> 
> Does anyone have an 'mbsync' home service, please? Thanks!
> 

I've attached my mbsync service, but I have to load it from the CLI
after logging in since it hangs the shepherd process when I try to
include it in my home config.

herd load root ~/mbsync.scm

-- 
Efraim Flashner   <efr...@flashner.co.il>   רנשלפ םירפא
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted
(use-modules (ice-9 match))

(define mbsync
  (make <service>
    #:provides '(mbsync offlineimap)
    #:docstring "Sync mail to the local system"
    #:start
    (lambda args
      (match (primitive-fork)
             (0 (begin
                  (while #t
                         (system* "mbsync" "-a")
                         ;; Random time between 45 and 60 seconds
                         (sleep (+ 45 (random 15))))))
             (pid pid)))
    #:stop (make-kill-destructor)
    #:respawn? #t))
(register-services mbsync)

(start mbsync)

Attachment: signature.asc
Description: PGP signature

Reply via email to