summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRyan Schanzenbacher <ryan@rschanz.org>2025-02-24 19:50:21 -0500
committerRyan Schanzenbacher <ryan@rschanz.org>2025-02-24 19:50:21 -0500
commit51bdc7674c132f013c02c8b5b4c5f671a5a2de1c (patch)
tree4bd952df6901e0c85d69cb71c1353216c820f949
parentba2e2d7b10223deaf2d0bdd3cda2073f7aba2fbf (diff)
Fixed download folder manager service
-rw-r--r--modules/ryan-services/file-manager.scm6
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