Commit | Line | Data |
---|---|---|
d3804b4d TB |
1 | ;;; Defines jobs and run order for use with tomd. |
2 | ||
3 | (add-to-load-path "/home/niebie/sc/tomd/guile") | |
4 | ||
5 | (define-module (tomd manifest) | |
6 | #:use-module (tomd job) | |
7 | #:export (job-list)) | |
8 | ||
9 | ;;; job details: | |
10 | ;;; command-line | |
11 | ;;; args | |
12 | ;;; start-trigger (boot, shutdown, hourly, login, logout) | |
13 | ;;; end-trigger (boot, shutdown, hourly, login, logout) | |
14 | ||
15 | (define set-bg-job | |
16 | (create-job #:command-line "xsetroot" | |
17 | #:args (list "-solid" | |
18 | "grey") | |
19 | #:start-trigger 'login)) | |
20 | ||
21 | (define start-fetchmail-job | |
22 | (create-job #:command-line "fetchmail" | |
23 | #:args (list "--ssl" | |
24 | "--verbose") | |
25 | #:start-trigger 'login | |
26 | #:end-trigger 'logout)) | |
27 | ||
28 | (define start-emacs-daemon-job | |
29 | (create-job #:command-line "emacs" | |
30 | #:args (list "--daemon") | |
31 | #:start-trigger 'login | |
32 | #:end-trigger 'logout)) | |
33 | ||
34 | (define start-spoon-job | |
35 | (create-job #:command-line "/home/niebie/sc/spoon-fork/spoon" | |
36 | #:start-trigger 'login | |
37 | #:end-trigger 'logout | |
38 | #:redirect #t | |
39 | #:name "spoon")) | |
40 | ||
41 | (define job-list | |
42 | (list set-bg-job | |
43 | ;; start-fetchmail-job | |
44 | ;; start-emacs-daemon-job | |
45 | start-spoon-job | |
46 | )) |