mirror of
https://git.sr.ht/~raghavgururajan/dotfiles
synced 2023-12-14 05:23:06 +01:00
14 lines
427 B
Scheme
14 lines
427 B
Scheme
(use-modules (shepherd service)
|
|
((ice-9 ftw) #:select (scandir)))
|
|
|
|
;; Load all the files in the directory 'init.d' with a suffix '.scm'.
|
|
(for-each
|
|
(lambda (file)
|
|
(load (string-append "init.d/" file)))
|
|
(scandir (string-append (dirname (current-filename)) "/init.d")
|
|
(lambda (file)
|
|
(string-suffix? ".scm" file))))
|
|
|
|
;; Send shepherd into the background.
|
|
(action 'shepherd 'daemonize)
|
|
|