seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-04-14 22:04:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Inherit graphical session environment from Shepherd.

Browse Source 
This will be utilized by an upcoming home-graphical-session-service-type.

* modules/rosenthal/services/desktop.scm (%home-blueman-applet-shepherd)
(%home-fcitx5-shepherd, %home-mako-shepherd)
(home-network-manager-applet-shepherd, %home-noctalia-shell-shepherd)
(%home-bb-auth-shepherd, %home-polkit-gnome-shepherd, %home-swaybg-shepherd)
(%home-waybar-shepherd): Use environment variables from the running environment.
This commit is contained in:
Hilton Chain 2026-04-09 01:09:25 +08:00
parent f7604b8f00
commit 8967007a20
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 56 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
modules/rosenthal/services/desktop.scm
View File

@ -110,8 +110,12 @@
(documentation "Start blueman applet.")
(provision '(blueman-applet))
(start
#~(make-forkexec-constructor
(list #$(file-append blueman "/bin/blueman-applet"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append blueman "/bin/blueman-applet"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-blueman-applet-service-type
@ -225,8 +229,12 @@
(provision '(fcitx5))
(requirement '(dbus))
(start
#~(make-forkexec-constructor
(list #$(file-append fcitx5 "/bin/fcitx5"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append fcitx5 "/bin/fcitx5"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-fcitx5-service-type
@ -276,8 +284,12 @@
(documentation "Start mako.")
(provision '(mako))
(start
#~(make-forkexec-constructor
(list #$(file-append mako "/bin/mako"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append mako "/bin/mako"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-mako-service-type
@ -308,8 +320,12 @@
(documentation "Start network manager applet.")
(provision '(network-manager-applet))
(start
#~(make-forkexec-constructor
(list #$(file-append network-manager-applet "/bin/nm-applet"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append network-manager-applet "/bin/nm-applet"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-network-manager-applet-service-type
@ -380,9 +396,13 @@ compositor.")))
(provision '(noctalia-shell))
(modules '((shepherd support)))
(start
#~(make-forkexec-constructor
(list #$(file-append noctalia-shell "/bin/noctalia-shell"))
#:log-file (in-vicinity %user-log-dir "noctalia-shell.log")))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append noctalia-shell "/bin/noctalia-shell"))
#:log-file (in-vicinity %user-log-dir "noctalia-shell.log")
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-noctalia-shell-service-type
@ -407,8 +427,12 @@ compositor.")))
(list (shepherd-service
(provision '(bb-auth))
(start
#~(make-forkexec-constructor
(list #$(file-append bb-auth "/libexec/bb-auth") "--daemon")))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append bb-auth "/libexec/bb-auth") "--daemon")
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor)))))
(define home-bb-auth-service-type
@ -429,8 +453,12 @@ compositor.")))
(list (shepherd-service
(provision '(polkit-gnome))
(start
#~(make-forkexec-constructor
(list #$(file-append polkit-gnome "/libexec/polkit-gnome-authentication-agent-1"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append polkit-gnome "/libexec/polkit-gnome-authentication-agent-1"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor)))))
(define home-polkit-gnome-service-type
@ -489,9 +517,13 @@ compositor.")))
(documentation "Start swaybg.")
(provision '(swaybg))
(start
#~(make-forkexec-constructor
(list #$(file-append swaybg "/bin/swaybg") "--mode" "fill"
"--image" #$background)))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append swaybg "/bin/swaybg") "--mode" "fill"
"--image" #$background)
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-swaybg-service-type
@ -620,8 +652,12 @@ compositor.")))
(documentation "Start waybar.")
(provision '(waybar))
(start
#~(make-forkexec-constructor
(list #$(file-append waybar "/bin/waybar"))))
#~(lambda args
((make-forkexec-constructor
(list #$(file-append waybar "/bin/waybar"))
;; Inherit graphical session environment.
#:environment-variables (environ))
args)))
(stop #~(make-kill-destructor))))))
(define home-waybar-service-type