dev.fron.io rc / 234005d
home(leaf): disambiguate pipewire Tony Olagbaiye 10 days ago
2 changed file(s) with 26 addition(s) and 42 deletion(s). Raw diff Collapse all Expand all
100100 }
101101 ")))))
102102
103 (simple-service 'pipewire-set-some-env-vars
103 (simple-service 'dbus-set-env
104104 home-environment-variables-service-type
105 '(("DBUS_SESSION_BUS_ADDRESS"
106 . "unix:path=$XDG_RUNTIME_DIR/dbus.sock")))
107 ;; ("RTC_USE_PIPEWIRE" . "true")
105108
106 '(("DBUS_SESSION_BUS_ADDRESS"
107 . "unix:path=$XDG_RUNTIME_DIR/dbus.sock")
108 ;; ("RTC_USE_PIPEWIRE" . "true")
109 ))
110 (simple-service
111 'dbus-add-shepherd-daemon
112 home-shepherd-service-type
113 (list
114 (shepherd-service
115 (requirement '(dbus-home))
116 (provision '(pipewire))
117 (start #~(make-forkexec-constructor
118 (list #$(file-append pipewire-next "/bin/pipewire")))))
119 (shepherd-service
120 (requirement '(pipewire))
121 (provision '(pipewire-media-session))
122 (start #~(make-forkexec-constructor
123 (list #$(file-append pipewire-next "/bin/pipewire-media-session")))))
124 (shepherd-service
125 (requirement '(pipewire))
126 (provision '(pipewire-pulse))
127 (start #~(make-forkexec-constructor
128 (list #$(file-append pipewire-next "/bin/pipewire-pulse")))))
129 (shepherd-service
130 (provision '(dbus-home))
131 (start #~(make-forkexec-constructor
132 (list #$(file-append (@@ (gnu packages glib) dbus)
133 "/bin/dbus-daemon")
134 "--session"
135 (string-append
136 "--address="
137 "unix:path="
138 (getenv "XDG_RUNTIME_DIR")
139 "/dbus.sock")))))))
109 (simple-service 'dbus-shepherd-daemon
110 home-shepherd-service-type
111 (list
112 (shepherd-service
113 (provision '(dbus))
114 (start #~(make-forkexec-constructor
115 (list #$(file-append (@@ (gnu packages glib) dbus)
116 "/bin/dbus-daemon")
117 "--session"
118 (string-append
119 "--address="
120 "unix:path="
121 (getenv "XDG_RUNTIME_DIR")
122 "/dbus.sock")))))))
140123
141 (simple-service
142 'pipewire-add-packages
143 home-profile-service-type
144 (append
145 ;; TODO: Should be in feature-sway
146 (list xdg-desktop-portal-latest xdg-desktop-portal-wlr-latest)
147 (list pipewire-next)))
124 (simple-service 'pipewire-add-packages
125 home-profile-service-type
126 (append
127 ;; TODO: Should be in feature-sway
128 (list xdg-desktop-portal-latest
129 xdg-desktop-portal-wlr-latest)
130 (list pipewire-next)))
148131
149132 ;(service home-ssh-service-type
150133 ; (home-ssh-configuration
3030 (list
3131 (shepherd-service
3232 (provision '(pipewire))
33 (requirement '(dbus))
3334 (documentation "Run pipewire.")
3435 (start #~(make-forkexec-constructor
3536 (list (string-append #$pipewire "/bin/pipewire")