From 771fc81d3e4180583eaab7d4068bbbb48657a0c3 Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Mon, 25 Nov 2024 03:30:48 -0300 Subject: [PATCH] operating-systems: buer: Use spawn-shell-command instead of system since a lambda action should be suspendable --- operating-systems/buer/shepherd-services.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/operating-systems/buer/shepherd-services.scm b/operating-systems/buer/shepherd-services.scm index 08570e9..09a8ca7 100644 --- a/operating-systems/buer/shepherd-services.scm +++ b/operating-systems/buer/shepherd-services.scm @@ -30,10 +30,11 @@ 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))))) - (system* btrfs "subvolume" "snapshot" "/home" - (string-append "/snapshots/home/" date)))))) + (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)))))) (stop #~(make-timer-destructor)) (actions (list timer-trigger-action))))