aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Tom Willemse2024-01-16 01:08:03 -0800
committerGravatar Tom Willemse2024-01-16 01:08:03 -0800
commit265c55bcdafeffa91de8da58e4afae54b72ee9f0 (patch)
treea941d3f452243c0cb816af71795a97de7d396176
parent7d38c4d12a51921756d5646c1c538e1cfbb163b4 (diff)
downloadnew-dotfiles-265c55bcdafeffa91de8da58e4afae54b72ee9f0.tar.gz
new-dotfiles-265c55bcdafeffa91de8da58e4afae54b72ee9f0.zip
Add mcron service that runs inkplate-display at midnight
-rw-r--r--oni/home/services/utilities.scm15
1 files changed, 14 insertions, 1 deletions
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.")))