home: services: Add redshift service.

home/config.scm

@@ -2,6 +2,8 @@
  (gnu)
  (gnu home)
  (gnu home services)
+ (gnu home services desktop)
+ (gnu home services guix)
  (gnu home services shells)
  (gnu home services shepherd)
  (gnu packages)
@@ -36,6 +38,7 @@
  (gnu packages video)
  (gnu packages web-browsers)
  (gnu services)
+ (guix channels)
  (guix gexp))
 
 (home-environment
@@ -107,150 +110,165 @@
 		 (string-append (getenv "HOME")
 				"/dotfiles/bash/bash_profile")
 		 "bash_profile"))))))
+   ;; Channels
+   (list
+    (simple-service 'guix-channels
+                    home-channels-service-type
+                    (list
+                     (channel
+                      (name 'nonguix)
+                      (url "https://gitlab.com/nonguix/nonguix")
+                      (introduction
+                       (make-channel-introduction
+                        "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+                       (openpgp-fingerprint
+                        "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
+                     (channel
+                      (name 'rg)
+                      (url "https://git.sr.ht/~raghavgururajan/guix-channel")
+                      (introduction
+                       (make-channel-introduction
+                        "b56a4dabe12bfb1eed80467f48d389b32137cb60"
+                       (openpgp-fingerprint
+                        "CD2D 5EAA A98C CB37 DA91  D6B0 5F58 1664 7F8B E551")))))))
    ;; Files
    (list
     (simple-service 'emacs-config
 		    home-files-service-type
 		    (list
-		     `("emacs.d/init.el"
+		     `(".emacs.d/init.el"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/emacs/init.el")))))
     (simple-service 'git-config
 		    home-files-service-type
 		    (list
-		     `("config/git/config"
+		     `(".config/git/config"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/git/config")))))
     (simple-service 'gnupg-dirmngr-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/dirmngr.conf"
+		     `(".gnupg/dirmngr.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/dirmngr.conf")))))
     (simple-service 'gnupg-gpa-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpa.conf"
+		     `(".gnupg/gpa.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpa.conf")))))
     (simple-service 'gnupg-gpg-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpg.conf"
+		     `(".gnupg/gpg.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpg.conf")))))
     (simple-service 'gnupg-gpg-agent-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/gpg-agent.conf"
+		     `(".gnupg/gpg-agent.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/gpg-agent.conf")))))
     (simple-service 'gnupg-scdaemon-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/scdaemon.conf"
+		     `(".gnupg/scdaemon.conf"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/scdaemon.conf")))))
     (simple-service 'gnupg-sshcontrol-config
 		    home-files-service-type
 		    (list
-		     `("gnupg/sshcontrol"
+		     `(".gnupg/sshcontrol"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gnupg/sshcontrol")))))
     (simple-service 'gtk-gtk2-config
 		    home-files-service-type
 		    (list
-		     `("gtkrc-2.0"
+		     `(".gtkrc-2.0"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gtk/gtkrc-2.0")))))
     (simple-service 'gtk-gtk3-config
 		    home-files-service-type
 		    (list
-		     `("config/gtk-3.0/settings.ini"
+		     `(".config/gtk-3.0/settings.ini"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/gtk/settings.ini")))))
-    (simple-service 'guix-channels-config
-		    home-files-service-type
-		    (list
-		     `("config/guix/channels.scm"
-		       ,(local-file
-			 (string-append (getenv "HOME")
-					"/dotfiles/guix/channels.scm")))))
     (simple-service 'nano-config
 		    home-files-service-type
 		    (list
-		     `("config/nano/nanorc"
+		     `(".config/nano/nanorc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/nano/nanorc")))))
     (simple-service 'poezio-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/poezio.cfg"
+		     `(".config/poezio/poezio.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/poezio.cfg")))))
     (simple-service 'poezio-irc-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/irc.cfg"
+		     `(".config/poezio/plugins/irc.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/irc.cfg")))))
     (simple-service 'poezio-link-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/link.cfg"
+		     `(".config/poezio/plugins/link.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/link.cfg")))))
     (simple-service 'poezio-otr-config
 		    home-files-service-type
 		    (list
-		     `("config/poezio/plugins/otr.cfg"
+		     `(".config/poezio/plugins/otr.cfg"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/poezio/plugins/otr.cfg")))))
     (simple-service 'stumpwm-config
 		    home-files-service-type
 		    (list
-		     `("stumpwm.d/init.lisp"
+		     `(".stumpwm.d/init.lisp"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/stumpwm/init.lisp")))))
     (simple-service 'termite-config
 		    home-files-service-type
 		    (list
-		     `("config/termite/config"
+		     `(".config/termite/config"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/termite/config")))))
     (simple-service 'x-xinit-config
 		    home-files-service-type
 		    (list
-		     `("xinitrc"
+		     `(".xinitrc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/x/xinitrc")))))
     (simple-service 'x-xserver-config
 		    home-files-service-type
 		    (list
-		     `("xserverrc"
+		     `(".xserverrc"
 		       ,(local-file
 			 (string-append (getenv "HOME")
 					"/dotfiles/x/xserverrc"))))))
    ;; Daemons
    (list
+    (service home-redshift-service-type)
     (service home-shepherd-service-type
 	     (home-shepherd-configuration
 	      (services

system/config.scm

@@ -206,6 +206,15 @@
     (service bluetooth-service-type
              (bluetooth-configuration
               (auto-enable? #t)))
+    (service geoclue-service-type
+             (geoclue-configuration
+              (geoclue geoclue)
+              (whitelist '())
+              (wifi-geolocation-url "https://location.services.mozilla.com/v1/geolocate?key=geoclue")
+              (submit-data? #f)
+              (wifi-submission-url "https://location.services.mozilla.com/v1/submit?key=geoclue")
+              (submission-nick "geoclue")
+              (applications '())))
     (service modem-manager-service-type)
     (service network-manager-service-type)
     (service ntp-service-type)