about summary refs log tree commit diff
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2017-12-26T10·13+0100
committerVincent Ambo <tazjin@gmail.com>2017-12-26T10·13+0100
commite50e2acde039f8a16373c653aaa1e76b37bd02a2 (patch)
tree9533c56c3093a26382cb27db399a658cdb7387a2
parent4536e65471eb9d844eb811cfe643ea687a62dbae (diff)
docs: Add example configuration file
-rw-r--r--config.lisp21
-rw-r--r--src/gemma.lisp21
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)
+