diff options
author | Ryan Schanzenbacher <ryan@rschanz.org> | 2025-02-24 19:50:21 -0500 |
---|---|---|
committer | Ryan Schanzenbacher <ryan@rschanz.org> | 2025-02-24 19:50:21 -0500 |
commit | 51bdc7674c132f013c02c8b5b4c5f671a5a2de1c (patch) | |
tree | 4bd952df6901e0c85d69cb71c1353216c820f949 | |
parent | ba2e2d7b10223deaf2d0bdd3cda2073f7aba2fbf (diff) |
Fixed download folder manager service
-rw-r--r-- | modules/ryan-services/file-manager.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/ryan-services/file-manager.scm b/modules/ryan-services/file-manager.scm index 1f76d0e..9c1493a 100644 --- a/modules/ryan-services/file-manager.scm +++ b/modules/ryan-services/file-manager.scm | |||
@@ -38,15 +38,15 @@ | |||
38 | (define downloads-garbage-collector-service | 38 | (define downloads-garbage-collector-service |
39 | (match-record-lambda <downloads-garbage-collector-configuration> | 39 | (match-record-lambda <downloads-garbage-collector-configuration> |
40 | (user) | 40 | (user) |
41 | (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "{}" "';'"))) | 41 | (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "'{}'" ";"))) |
42 | (shepherd-service | 42 | (shepherd-service |
43 | (documentation "Garbage collect downloaded files more than 1 week old for USER.") | 43 | (documentation "Garbage collect downloaded files more than 1 week old for USER.") |
44 | (provision '(downloads-garbage-collector)) | 44 | (provision '(downloads-garbage-collector)) |
45 | ;(requirement '(root)) | 45 | ;(requirement '(root)) |
46 | (modules '((shepherd service timer))) | 46 | (modules '((shepherd service timer))) |
47 | (start #~(make-timer-constructor | 47 | (start #~(make-timer-constructor |
48 | (calendar-event #:hours '(8) #:minutes '(20) | 48 | (calendar-event #:hours '(19) #:minutes '(50) |
49 | #:days-of-week '(tuesday)) | 49 | #:days-of-week '(monday)) |
50 | (command #$cleanup-command))) | 50 | (command #$cleanup-command))) |
51 | (stop #~(make-timer-destructor)) | 51 | (stop #~(make-timer-destructor)) |
52 | (actions (list (shepherd-action | 52 | (actions (list (shepherd-action |