diff options
Diffstat (limited to 'src/gemma.lisp')
| -rw-r--r-- | src/gemma.lisp | 21 |
1 files changed, 1 insertions, 20 deletions
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) + |