From 265c55bcdafeffa91de8da58e4afae54b72ee9f0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 16 Jan 2024 01:08:03 -0800
Subject: Add mcron service that runs inkplate-display at midnight

---
 oni/home/services/utilities.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'oni/home')

diff --git a/oni/home/services/utilities.scm b/oni/home/services/utilities.scm
index 26d0212..8b84191 100644
--- a/oni/home/services/utilities.scm
+++ b/oni/home/services/utilities.scm
@@ -6,6 +6,9 @@
                 #:select (service-type
                           service-extension
                           home-profile-service-type))
+  #:use-module ((gnu home services mcron)
+                #:select (home-mcron-service-type
+                          home-mcron-configuration))
   #:use-module ((gnu home services shepherd)
                 #:select (home-shepherd-service-type
                           shepherd-service))
@@ -45,6 +48,13 @@
      #~(make-forkexec-constructor
         '(#$(file-append inkplate-display "/bin/inkplate-display")))))))
 
+(define (home-inkplate-display-mcron-service config)
+  (list #~(job '(next-day)
+               (lambda ()
+                 (system* "herd" "start" "inkplate-display"))
+               ;; "herd start inkplate-display"
+               "Get new email and process it via the Notmuch hook scripts.")))
+
 (define home-inkplate-display-service-type
   (service-type
    (name 'home-inkplate-display)
@@ -54,7 +64,10 @@
            add-inkplate-display-packages)
           (service-extension
            home-shepherd-service-type
-           home-inkplate-display-shepherd-service)))
+           home-inkplate-display-shepherd-service)
+          (service-extension
+           home-mcron-service-type
+           home-inkplate-display-mcron-service)))
    (compose identity)
    (default-value (home-inkplate-display-configuration))
    (description "Install and configure Inkplate display.")))
-- 
cgit v1.2.3-54-g00ecf