home-environments/radio/shepherd-services.scm

@@ -20,7 +20,10 @@ next calendar event.")))
     (start #~(make-timer-constructor
                (calendar-event #:hours '(6) #:minutes '(0))
                (lambda ()
-                 (spawn-shell-command "mpv --shuffle ~/media/music/by-artist"))))
+                (use-modules (ice-9 threads))
+                  (parallel
+                    (system "foot -He rem")
+                    (system "mpv --shuffle ~/media/music/by-artist")))))
     (stop #~(make-timer-destructor))
     (actions (list timer-trigger-action))))
 

operating-systems/buer.scm

@@ -144,6 +144,7 @@
            user:root
            %base-user-accounts))
 
+   #|System level packages|#
    (packages
     (list #|admin       |# btop inetutils isc-dhcp shadow zzz
           #|base        |# coreutils diffutils findutils grep patch sed tar which
@@ -170,7 +171,6 @@
 
    #|Allow resolution of '.local' host names with mDNS|#
    (name-service-switch %mdns-host-lookup-nss)
-
    (essential-services
     (modify-services
       (operating-system-default-essential-services this-operating-system)
@@ -180,6 +180,8 @@
                (services (list shepherd-service:guix-gc
                                shepherd-service:snapshot-@home
                                shepherd-service:timer))))))
+
+   #|System services|#
    (services
     (list #|TTY services|#
           (service virtual-terminal-service-type)

operating-systems/buer/shepherd-services.scm

@@ -30,11 +30,10 @@ next calendar event.")))
     (start #~(make-timer-constructor
                (calendar-event #:days-of-month '(1 15))
                (lambda ()
-                 (let ((btrfs "/run/current-system/profile/bin/btrfs")
-                       (date (strftime "%Y-%m-%d" (localtime (current-time)))))
-                   (spawn-shell-command
-                     (string-append btrfs " subvolume snapshot"
-                                    " /home /snapshots/home/" date))))))
+                 (let* ((btrfs "/run/current-system/profile/bin/btrfs")
+                        (date (strftime "%Y-%m-%d" (localtime (current-time)))))
+                 (system* btrfs "subvolume" "snapshot" "/home"
+                          (string-append "/snapshots/home/" date))))))
     (stop #~(make-timer-destructor))
     (actions (list timer-trigger-action))))