I dunno if anyone would be able to help but I've had this issue where
the Redshift home service just won't run.
My config. is below but, as it's (relatively) long, I'll put it last.
Looking at ~herd status redshift~, it says that it's stopped and
disabled but, I also noticed, says it requires =x11-display=. I'm
guessing this may be a reason the service keeps getting disabled and
refuses to run?
But Redshift works with Wayland (I'm using the =redshift-wayland=
package); is there something I'm supposed to do to get the service to
play nice with Wayland? I'm running XWayland.
Not as pressing (or clear as to what might be wrong) but I've had
trouble getting the batsignal service to work right, as well. That one
does seem to run (I can see a running instance on my machine) but it
doesn't ever provide notifications. It worked the /first/ time I
ran/installed it and hasn't ever worked since – it never gives any
notifications for anything I set. I'm pretty certain it works if I run
=batsignal= manually, though (just not when ran via the service). Any
ideas?
> (use-modules (gnu home)
> (gnu home services)
> (gnu home services desktop) ; home-redshift-service-type
> (gnu home services mcron) ; home-mcron-service-type
> (gnu home services pm) ; home-batsignal-service-type
> (gnu home services shells) ; home-bash-service-type
> (gnu packages)
> (gnu packages pantheon) ; pantheon-wallpapers
> (gnu packages xdisorg) ; redshift-wayland
> (gnu services)
> (guix gexp)
> (guix packages) ; package-output
> (guix store) ; with-store
> (ice-9 ftw)) ; scandir
>
> (let* ([ homeDir (passwd:dir (getpwnam (getlogin)))]
> [configDir (string-append homeDir "/.config/guix")]
> [exclude-rel-paths (lambda (file)
> (not (or (string= "." file)
> (string= ".." file))))])
> (home-environment
> ;; Below is the list of packages that will show up in your
> ;; Home profile, under ~/.guix-home/profile.
> (packages (list pantheon-wallpapers))
>
> ;; Below is the list of Home services. To search for available
> ;; services, run 'guix home search KEYWORD' in a terminal.
> (services (list (simple-service 'some-useful-env-vars-service
> home-environment-variables-service-type
> `(("QT_QPA_PLATFORM" . "wayland;xcb")
> ("GDK_BACKEND" . "wayland,x11")
> ("PATH" . ,(string-append
> "$PATH" ":$HOME/.local/bin"
>
> ":$HOME/.fly/bin"))
> ("GUIX_PROFILE" .
> "$HOME/.guix-profile")
> ("EDITOR" . "emacs -nw")))
> (service home-bash-service-type
> (home-bash-configuration
> (environment-variables
> `(("QT_QPA_PLATFORM" . "wayland;xcb")
> ("GDK_BACKEND"
> . "wayland,x11")))
> (aliases '(("la" . "ls
> -A")
> ("ll" . "ls
> -l")
> ("lsds" . "ls
> -p1 $* | grep /")
> ("lsde" . "ls
> -Alh $* | grep ^d")
> ("lsd" . "ls
> -Ap1 $* | grep /")))
> (bash-profile (list
> (local-file "./bash/initialize_wayfire.sh"
>
> "bash_profile")))
> (bashrc (list
> (local-file "./bash/rc.sh" "bashrc")
>
> (local-file "./bash/ps1.sh" "bashrc")))))
> (simple-service 'home-dir
> home-files-service-type
> (append `((".gtkrc-2.0" ,(local-file
> "./gtk/gtkrc-2.0")))
> (map (lambda (file)
> (list (string-append
> "Templates/" file)
> (local-file
> (string-append configDir
>
> "/Templates/"
>
> file))))
> (scandir (string-append
> configDir "/Templates")
> exclude-rel-paths))
> (let ([backgrounds (string-append
> (with-store store
>
> (package-output store
>
> pantheon-wallpapers))
>
> "/share/backgrounds")])
> (map (lambda (file)
> (list (string-append
> ".local/share/wallpapers/" file)
> (local-file
> (string-append backgrounds "/" file))))
> (scandir backgrounds
> (lambda (file)
> (not (or
> (string= file ".")
>
> (string= file "..")
>
> (string-contains file " ")))))))))
> (simple-service 'home-config
> home-xdg-configuration-files-service-type
> `(("dunst/dunstrc" ,(local-file
> "./dunst/dunstrc"))
>
> ("Thunar/accels.scm" ,(local-file
> "./Thunar/accels.scm"))
> ("Thunar/uca.xml" ,(local-file
> "./Thunar/uca.xml"))
>
> ("gtk-3.0/settings.ini" ,(local-file
> "./gtk/settings.ini"))
> ("gtk-3.0/bookmarks" ,(local-file
> "./gtk/bookmarks"))
>
> ("user-dirs.dirs" ,(local-file
> "./xdg/user-dirs.dirs"))
>
> ("kitty/kitty.conf" ,(local-file
> "./kitty/kitty.conf"))
>
> ("labwc/autostart" ,(local-file
> "./labwc/autostart"))
> ("labwc/environment" ,(local-file
> "./labwc/environment"))
> ("labwc/menu.xml" ,(local-file
> "./labwc/menu.xml"))
> ("labwc/rc.xml" ,(local-file
> "./labwc/rc.xml"))
> ("labwc/themerc-override" ,(local-file
> "./labwc/themerc-override"))
>
> ("mpv/input.conf" ,(local-file
> "./mpv/input.conf"))
> ("mpv/mpv.conf" ,(local-file
> "./mpv/mpv.conf"))
>
> ("waybar/config" ,(local-file
> "./waybar/config"))
> ("waybar/style.css" ,(local-file
> "./waybar/style.css"))
>
> ("wayfire.ini" ,(local-file
> "./wayfire/wayfire.ini"))))
> (service home-batsignal-service-type
> (home-batsignal-configuration
> (full-level 100)
> (warning-level 30)
> (critical-level 15)
> (danger-level 5)
> (danger-command "loginctl
> hibernate")
> (notifications-expire? #f)))
> (service home-redshift-service-type
> (home-redshift-configuration
> (redshift redshift-wayland)
> (adjustment-method 'wayland)
> (location-provider 'manual)
> (latitude 41.9804596) ;
> northern hemisphere
> (longitude -87.6712512))) ;
> west of Greenwich
> (simple-service 'pull
> home-mcron-service-type
> ;; Every day at 2 P. M.
> (list #~(job '(next-hour '(14)) "guix
> pull")
> #~(job '(next-month) ;; "guix
> gc -F 2G"
> "guix gc
> -d 6m")))))))
