diff options
| -rw-r--r-- | config.lisp | 21 | ||||
| -rw-r--r-- | src/gemma.lisp | 21 |
2 files changed, 22 insertions, 20 deletions
diff --git a/config.lisp b/config.lisp new file mode 100644 index 000000000000..54f8e5f34462 --- /dev/null +++ b/config.lisp @@ -0,0 +1,21 @@ +;; Example configuration file for Gemma + +(config :port 4242 + :data-dir "/tmp/gemma/") + +(deftask bathroom/wipe-mirror 7) +(deftask bathroom/wipe-counter 7) + +;; Bedroom tasks +(deftask bedroom/change-sheets 7) +(deftask bedroom/vacuum 10) + +;; Kitchen tasks +(deftask kitchen/normal-trash 3) +(deftask kitchen/green-trash 5) +(deftask kitchen/blue-trash 5) +(deftask kitchen/wipe-counters 3) +(deftask kitchen/vacuum 5 "Kitchen has more crumbs and such!") + +;; Entire place +(deftask clean-windows 60) diff --git a/src/gemma.lisp b/src/gemma.lisp index 2ead8f9ab2cf..a925e65a73aa 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -149,26 +149,6 @@ maximum interval." (complete-task key) (encode-json-to-string (response-for (get-task key)))))) -;; (not-so) example tasks - -;; Bathroom tasks -(deftask bathroom/wipe-mirror 7) -(deftask bathroom/wipe-counter 7) - -;; Bedroom tasks -(deftask bedroom/change-sheets 7) -(deftask bedroom/vacuum 10) - -;; Kitchen tasks -(deftask kitchen/normal-trash 3) -(deftask kitchen/green-trash 5) -(deftask kitchen/blue-trash 5) -(deftask kitchen/wipe-counters 3) -(deftask kitchen/vacuum 5 "Kitchen has more crumbs and such!") - -;; Entire place -(deftask clean-windows 60) - ;; Experimentation / testing stuff (defun randomise-completion-times () @@ -186,3 +166,4 @@ maximum interval." (cl-prevalence:find-all-objects *p-tasks* 'task))) ;; (randomise-completion-times) + |