manifest.scm

   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         ))