From d3804b4d7eb34be71decba29bec723c491dc76b8 Mon Sep 17 00:00:00 2001 From: Tom Balzer Date: Sun, 17 Mar 2019 03:44:29 -0500 Subject: [PATCH] Added current manifest.scm --- manifest.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 manifest.scm diff --git a/manifest.scm b/manifest.scm new file mode 100644 index 0000000..52cef2e --- /dev/null +++ b/manifest.scm @@ -0,0 +1,46 @@ +;;; Defines jobs and run order for use with tomd. + +(add-to-load-path "/home/niebie/sc/tomd/guile") + +(define-module (tomd manifest) + #:use-module (tomd job) + #:export (job-list)) + +;;; job details: +;;; command-line +;;; args +;;; start-trigger (boot, shutdown, hourly, login, logout) +;;; end-trigger (boot, shutdown, hourly, login, logout) + +(define set-bg-job + (create-job #:command-line "xsetroot" + #:args (list "-solid" + "grey") + #:start-trigger 'login)) + +(define start-fetchmail-job + (create-job #:command-line "fetchmail" + #:args (list "--ssl" + "--verbose") + #:start-trigger 'login + #:end-trigger 'logout)) + +(define start-emacs-daemon-job + (create-job #:command-line "emacs" + #:args (list "--daemon") + #:start-trigger 'login + #:end-trigger 'logout)) + +(define start-spoon-job + (create-job #:command-line "/home/niebie/sc/spoon-fork/spoon" + #:start-trigger 'login + #:end-trigger 'logout + #:redirect #t + #:name "spoon")) + +(define job-list + (list set-bg-job + ;; start-fetchmail-job + ;; start-emacs-daemon-job + start-spoon-job + )) -- 2.20.1