all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Jaft <jaft.r@outlook.com>
To: help-guix@gnu.org
Subject: Guix Home Issues: Redshift Service Won't Run (Problem with Wayland?)
Date: Tue, 28 Nov 2023 03:02:58 -0600	[thread overview]
Message-ID: <BY5PR07MB7029791C97ABA63E353107C099BCA@BY5PR07MB7029.namprd07.prod.outlook.com> (raw)

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")))))))

             reply	other threads:[~2023-11-28  9:08 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2023-11-28  9:02 Jaft [this message]
2023-11-28 11:45 ` Guix Home Issues: Redshift Service Won't Run (Problem with Wayland?) Tomas Volf
2023-11-28 20:06   ` Jaft

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=BY5PR07MB7029791C97ABA63E353107C099BCA@BY5PR07MB7029.namprd07.prod.outlook.com \
    --to=jaft.r@outlook.com \
    --cc=help-guix@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.