system.timer buhleted

0xc1c4da · Apr 1, 2016 · 2788d90 · 2788d90
1 parent 09daf2d
commit 2788d90
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 21 deletions.
diff --git a/src/narjure/core.clj b/src/narjure/core.clj
@@ -15,7 +15,6 @@
     [narjure.perception-action
      [operator-executor :refer [operator-executor]]
      [sentence-parser :refer [sentence-parser]]
-     [system-time :refer [system-time]]
      [task-creator :refer [task-creator]]]
     [taoensso.timbre :refer [info set-level!]])
   (:refer-clojure :exclude [promise await])
@@ -33,7 +32,6 @@
     :operator-executor
     :persistence-manager
     :sentence-parser
-    :system-time
     :task-creator
     :task-dispatcher})
 
@@ -47,7 +45,6 @@
   (spawn operator-executor)
   (spawn persistence-manager :state)
   (spawn sentence-parser)
-  (spawn system-time)
   (spawn task-creator)
   (spawn task-dispatcher))
 
@@ -71,7 +68,7 @@
   (! :forgettable-concept-collator [:forgetting-tick-msg]))
 
 (defn system-tick []
-  (! :system-time [:system-time-tick-msg]))
+  (! :task-creator [:system-time-tick-msg]))
 
 (defn prn-ok [msg] (info (format "\t[OK] %s" msg)))
 

diff --git a/src/narjure/perception_action/system_time.clj b/src/narjure/perception_action/system_time.clj
diff --git a/src/narjure/perception_action/task_creator.clj b/src/narjure/perception_action/task_creator.clj
@@ -11,7 +11,12 @@
   - Sets source property based on origin
   - Add serial-no
   - Converts tense to occurrence time (has system time in state)"
-  {:sentence-msg  sentence})
+  {:sentence-msg  sentence
+   :system-time-tick-msg system-time-tick})
 
 (defn sentence [_ _]
   (debug aname "process-sentence"))
+
+(defn system-time-tick [_ state]
+  ;(debug :system-time (str "process-system-time-tick " state))
+  (inc state))