From 64bf6d70099c59ea442bf1641caaab8ad03ce9cd Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 21 Jul 2019 12:30:44 +0200 Subject: scripts: Regularly index the mail directory. * configure.ac: Detect mu. * guix.scm: Add "mu" to the environment. * mumi/config.scm.in (%config)[mu-executable]: Add it. * scripts/mumi.in: Spawn "mu index" regularly. --- scripts/mumi.in | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'scripts') diff --git a/scripts/mumi.in b/scripts/mumi.in index 2abfd51..3bd34f4 100644 --- a/scripts/mumi.in +++ b/scripts/mumi.in @@ -94,4 +94,21 @@ (when repl-port (spawn-server (make-tcp-server-socket #:port repl-port))))))) +;; Keep indexing the mail directory +(define %mu-index-interval 30) +(define mu-index + (let ((mu (%config 'mu-executable))) + (lambda _ + (let* ((maildir (%config 'mail-dir)) + (args (list "index" + "--quiet" + (format #f "--muhome=~a" maildir) + (format #f "--maildir=~a" maildir)))) + (unless (zero? (apply system* mu args)) + (format (current-error-port) + "Failed to run `~a'~%" command)) + (alarm %mu-index-interval))))) +(sigaction SIGALRM mu-index 0) +(mu-index) + (start-mumi-web-server 1234) -- cgit v1.2.3