mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

docs: Add example configuration file

Browse source
This commit is contained in:
Vincent Ambo 2017-12-26 11:13:52 +01:00
parent 4536e65471
commit e50e2acde0
2 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
config.lisp Normal file
View file

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

21
src/gemma.lisp
View file

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