feat(v0.3.0): Event Orchestrator skill

- New system-event-orchestrator skill with hook registry, cron registry, and tier classifier

- Three dispatch tiers: :reflex (no LLM), :cognition (light), :reasoning (full)

- Org-mode timestamp parsing for repeat patterns (+1w, +1d, +1m)

- Registers on heartbeat via defskill, dispatches due cron jobs

- Fix all remaining harness-log → log-message references across org files

lisp/gateway-manager.lisp

@@ -26,12 +26,12 @@
                        (text (cdr (assoc :text message))))
                   (setf (getf (gethash "telegram" *gateway-configs*) :last-update-id) update-id)
                   (when (and text chat-id)
-                    (harness-log "TELEGRAM: Received message from ~a" chat-id)
+                    (log-message "TELEGRAM: Received message from ~a" chat-id)
                     (inject-stimulus
                      (list :type :EVENT
                            :meta (list :source :telegram :chat-id (format nil "~a" chat-id))
                            :payload (list :sensor :user-input :text text)))))))
-          (error (c) (harness-log "TELEGRAM POLL ERROR: ~a" c))))))
+          (error (c) (log-message "TELEGRAM POLL ERROR: ~a" c))))))
 
 (defun telegram-send (action context)
   "Sends a message via Telegram."
@@ -42,14 +42,14 @@
          (text (or (getf payload :text) (getf action :text)))
          (token (telegram-get-token)))
     (when (and token chat-id text)
-      (harness-log "TELEGRAM: Sending message to ~a..." chat-id)
+      (log-message "TELEGRAM: Sending message to ~a..." chat-id)
       (handler-case
           (let ((url (format nil "https://api.telegram.org/bot~a/sendMessage" token)))
             (dex:post url
                       :headers '(("Content-Type" . "application/json"))
                       :content (cl-json:encode-json-to-string
                                 `((chat_id . ,chat-id) (text . ,text)))))
-        (error (c) (harness-log "TELEGRAM ERROR: ~a" c))))))
+        (error (c) (log-message "TELEGRAM ERROR: ~a" c))))))
 
 (defun signal-get-account ()
   (vault-get-secret :signal))
@@ -70,12 +70,12 @@
                        (data-message (cdr (assoc :data-message envelope)))
                        (text (cdr (assoc :message data-message))))
                   (when (and source text)
-                    (harness-log "SIGNAL: Received message from ~a" source)
+                    (log-message "SIGNAL: Received message from ~a" source)
                     (inject-stimulus
                      (list :type :EVENT
                            :meta (list :source :signal :chat-id source)
                            :payload (list :sensor :user-input :text text))))))))
-        (error (c) (harness-log "SIGNAL POLL ERROR: ~a" c))))))
+        (error (c) (log-message "SIGNAL POLL ERROR: ~a" c))))))
 
 (defun signal-send (action context)
   "Sends a message via Signal."
@@ -86,11 +86,11 @@
          (text (or (getf payload :text) (getf action :text)))
          (account (signal-get-account)))
     (when (and account chat-id text)
-      (harness-log "SIGNAL: Sending message to ~a..." chat-id)
+      (log-message "SIGNAL: Sending message to ~a..." chat-id)
       (handler-case
           (uiop:run-program (list "signal-cli" "-u" account "send" "-m" text chat-id)
                             :output :string :error-output :string)
-        (error (c) (harness-log "SIGNAL ERROR: ~a" c))))))
+        (error (c) (log-message "SIGNAL ERROR: ~a" c))))))
 
 (defun gateway-registry-initialize ()
   "Registers all built-in gateway handlers."
@@ -123,7 +123,7 @@
              platform (loop for k being the hash-keys of *gateway-registry* collect k)))
     (when (or (null token) (zerop (length token)))
       (error "Token cannot be empty"))
-    (harness-log "GATEWAY: Linking to ~a..." platform-lc)
+    (log-message "GATEWAY: Linking to ~a..." platform-lc)
     (gateway-unlink platform-lc)
     (let* ((registry-entry (gethash platform-lc *gateway-registry*))
            (interval (or (getf registry-entry :default-interval) 5)))
@@ -131,7 +131,7 @@
             (list :token token :interval interval :enabled t))
       (vault-set-secret (intern (string-upcase platform-lc) :keyword) token)
       (gateway-start platform-lc)
-      (harness-log "GATEWAY: Successfully linked ~a" platform-lc)
+      (log-message "GATEWAY: Successfully linked ~a" platform-lc)
       (format t "Successfully linked ~a gateway. Token stored securely.~%" platform-lc)
       t)))
 
@@ -140,7 +140,7 @@
   (let ((platform-lc (string-downcase platform)))
     (gateway-stop platform-lc)
     (remhash platform-lc *gateway-configs*)
-    (harness-log "GATEWAY: Unlinked ~a" platform-lc)
+    (log-message "GATEWAY: Unlinked ~a" platform-lc)
     (format t "Successfully unlinked ~a gateway.~%" platform-lc)
     t))
 
@@ -160,7 +160,7 @@
                            (funcall poll-fn))
                          (sleep interval)))
                      :name (format nil "passepartout-~a-gateway" platform-lc)))
-              (harness-log "GATEWAY: Started ~a polling (interval: ~as)" platform-lc interval)))))))))
+              (log-message "GATEWAY: Started ~a polling (interval: ~as)" platform-lc interval)))))))))
 
 (defun gateway-stop (platform)
   "Stops the polling thread for a gateway."
@@ -168,7 +168,7 @@
     (let ((config (gethash platform-lc *gateway-configs*)))
       (when (and config (getf config :thread))
         (when (bt:thread-alive-p (getf config :thread))
-          (harness-log "GATEWAY: Stopping ~a polling thread" platform-lc)
+          (log-message "GATEWAY: Stopping ~a polling thread" platform-lc)
           (bt:destroy-thread (getf config :thread))))
       (setf (getf config :thread) nil))))