From 1eb10445d0780e92ca21cea03ac25c75d11c35cf Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Wed, 10 Feb 2021 19:44:36 +0100
Subject: [PATCH] config/shepherd: Add redshift service.

---
 .config/shepherd/services.scm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/.config/shepherd/services.scm b/.config/shepherd/services.scm
index d76e02dc..70105df1 100644
--- a/.config/shepherd/services.scm
+++ b/.config/shepherd/services.scm
@@ -140,6 +140,22 @@ be missing."
     #:stop (make-system-destructor "pkill mcron")
     #:respawn? #t))
 
+(define location-paris "48.51:2.20")
+(define redshift                        ; TODO: Test!
+  (make <service>
+    #:provides '(redshift)
+    #:docstring "Redshift adjusts the color temperature of your screen according
+to your surroundings.  This may help your eyes hurt less if you are working in
+front of the screen at night."
+    #:start (make-system-constructor
+             (format #f "redshift -l ~a -t 6500:3500" location-paris)
+              #:log-file (string-append
+                           (or (getenv "XDG_CONFIG_HOME")
+                               (string-append (getenv "HOME") "/.config"))
+                           "/redshift/redshift.log"))
+    #:stop (make-kill-destructor)
+    #:respawn? #t))
+
 (define main-services (list
                        privoxy
                        auto-mount
@@ -152,7 +168,8 @@ be missing."
                           numlock
                           xbindkeys
                           no-bell
-                          auto-lock))
+                          auto-lock
+                          redshift))
 
 (define laptop-services (list
                          xbindkeys))