seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-26 11:44:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: seasharp:b0e3e8d036e48725c0ee99d18125ae8f29d8bf00
Branches Tags
seasharp:trunk
seasharp:keyring
..
compare: seasharp:ca9a350d787695c54a277044c785b1fe84911408
Branches Tags
seasharp:trunk
seasharp:keyring

No commits in common. "b0e3e8d036e48725c0ee99d18125ae8f29d8bf00" and "ca9a350d787695c54a277044c785b1fe84911408" have entirely different histories.
b0e3e8d036 ... ca9a350d78

2 changed files with 7 additions and 5 deletions
Show Stats Expand all files Collapse all files

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

@ -643,7 +643,9 @@ gtk-key-theme-name = ~a~%"
gdm-service-type gdm-service-type
sddm-service-type)) sddm-service-type))
(cons* (service bluetooth-service-type (cons* (service network-online-service-type)
(service bluetooth-service-type
(bluetooth-configuration (bluetooth-configuration
(auto-enable? #t))) (auto-enable? #t)))
@ -716,6 +718,8 @@ gtk-key-theme-name = ~a~%"
(auto-start? #f) (auto-start? #f)
(daemonize? #f))) (daemonize? #f)))
(service home-network-online-service-type)
;; NOTE: The environment variable set by ‘home-dbus-service-type’ will ;; NOTE: The environment variable set by ‘home-dbus-service-type’ will
;; prevent GNOME from starting when using above Shepherd configuration. ;; prevent GNOME from starting when using above Shepherd configuration.
;; Replace ‘home-dbus-service-type’, expecting the session bus will be ;; Replace ‘home-dbus-service-type’, expecting the session bus will be

6
modules/rosenthal/services/networking.scm
View File

@ -51,7 +51,6 @@
(start (start
#~(lambda _ #~(lambda _
(let ((timeout #$(file-append coreutils-minimal "/bin/timeout")) (let ((timeout #$(file-append coreutils-minimal "/bin/timeout"))
(sleep #$(file-append coreutils-minimal "/bin/sleep"))
(sh #$(file-append bash-minimal "/bin/sh")) (sh #$(file-append bash-minimal "/bin/sh"))
(ping (if #$home-service? (ping (if #$home-service?
"ping" "ping"
@ -61,10 +60,9 @@
(format #f "\ (format #f "\
until ~a -qc1 -W1 example.org until ~a -qc1 -W1 example.org
do do
~a 1 sleep 1
done" done"
ping ping)))))))))
sleep)))))))))
(define network-online-service-type (define network-online-service-type
(service-type (service-type