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

Compare commits

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

2 Commits
ca9a350d78 ... b0e3e8d036

Author SHA1 Message Date
Hilton Chain
b0e3e8d036
services: Don't include network-online by default. 
* modules/rosenthal/services/desktop.scm (%rosenthal-desktop-services/base):
Remove network-online-service-type.
* modules/rosenthal/services/desktop.scm (%rosenthal-desktop-home-services):
Remove home-network-online-service-type.
 2026-03-10 00:04:57 +08:00
Hilton Chain
0ed25fc96f
services: network-online: Fix sleep reference. 
* modules/rosenthal/services/networking.scm (%network-online-shepherd): Fix
sleep reference.
 2026-03-08 20:04:48 +08:00
2 changed files with 5 additions and 7 deletions
Show Stats Expand all files Collapse all files

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

@ -643,9 +643,7 @@ gtk-key-theme-name = ~a~%"
gdm-service-type gdm-service-type
sddm-service-type)) sddm-service-type))
(cons* (service network-online-service-type) (cons* (service bluetooth-service-type
(service bluetooth-service-type
(bluetooth-configuration (bluetooth-configuration
(auto-enable? #t))) (auto-enable? #t)))
@ -718,8 +716,6 @@ 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,6 +51,7 @@
(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"
@ -60,9 +61,10 @@
(format #f "\ (format #f "\
until ~a -qc1 -W1 example.org until ~a -qc1 -W1 example.org
do do
sleep 1 ~a 1
done" done"
ping))))))))) ping
sleep)))))))))
(define network-online-service-type (define network-online-service-type
(service-type (service-type