Add 0 arity frame creation support + mute frames

Author: ovistoica

resources/clj-kondo.exports/com.shipclojure/simulflow/hooks/defframe.clj

@@ -7,30 +7,36 @@
         frame-name (api/token-node (symbol (str name)))
         pred-name (api/token-node (symbol (str name "?")))]
     {:node (api/list-node
-            [(api/token-node 'do)
-             ;; Multi-arity function definition
-             (api/list-node
-              [(api/token-node 'defn) frame-name docstring
-               ;; Single arity: (frame-name data)
-               (api/list-node
-                [(api/vector-node [(api/token-node 'data)])
+             [(api/token-node 'do)
+              ;; Multi-arity function definition
+              (api/list-node
+                [(api/token-node 'defn) frame-name docstring
+                 ;; Zero arity (frame name)
                  (api/list-node
-                  [(api/token-node 'simulflow.frame/create-frame)
-                   frame-type
-                   (api/token-node 'data)])])
-               ;; Two arity: (frame-name data opts)
-               (api/list-node
-                [(api/vector-node [(api/token-node 'data) (api/token-node 'opts)])
+                   [(api/vector-node [])
+                    (api/list-node
+                      [(api/token-node 'simulflow.frame/create-frame)
+                       frame-type])])
+                 ;; Single arity: (frame-name data)
                  (api/list-node
-                  [(api/token-node 'simulflow.frame/create-frame)
-                   frame-type
-                   (api/token-node 'data)
-                   (api/token-node 'opts)])])])
-             ;; Predicate function
-             (api/list-node
-              [(api/token-node 'defn) pred-name (str "Checks if frame is of type " frame-name)
-               (api/vector-node [(api/token-node 'frame)])
-               (api/list-node
-                [(api/token-node 'instance?)
-                 frame-name
-                 (api/token-node 'frame)])])])}))
+                   [(api/vector-node [(api/token-node 'data)])
+                    (api/list-node
+                      [(api/token-node 'simulflow.frame/create-frame)
+                       frame-type
+                       (api/token-node 'data)])])
+                 ;; Two arity: (frame-name data opts)
+                 (api/list-node
+                   [(api/vector-node [(api/token-node 'data) (api/token-node 'opts)])
+                    (api/list-node
+                      [(api/token-node 'simulflow.frame/create-frame)
+                       frame-type
+                       (api/token-node 'data)
+                       (api/token-node 'opts)])])])
+              ;; Predicate function
+              (api/list-node
+                [(api/token-node 'defn) pred-name (str "Checks if frame is of type " frame-name)
+                 (api/vector-node [(api/token-node 'frame)])
+                 (api/list-node
+                   [(api/token-node 'instance?)
+                    frame-name
+                    (api/token-node 'frame)])])])}))

src/simulflow/frame.clj

@@ -51,6 +51,8 @@
    (create-frame :test/frame \"data\")
    (create-frame :test/frame \"data\" {:timestamp 1696492800000})
    (create-frame :test/frame \"data\" {:timestamp #inst \"2024-10-05T05:00:00.000Z\"})"
+  ([type]
+   (create-frame type nil {}))
   ([type data]
    (create-frame type data {}))
   ([type data {:keys [timestamp]}]
@@ -83,6 +85,8 @@
        (def ~name
          ~docstring
          (fn
+           ([]
+            (~name nil {}))
            ([data#]
             (~name data# {}))
            ([data# opts#]
@@ -378,6 +382,28 @@
   "Text input frame for LLM processing"
   {:type ::text-input})
 
+;;
+;; Mute filter frames
+;;
+(defframe mute-input-start
+  "Frame issued when the input in the pipeline should be dropped. Useful when
+  you don't want to process user input. Either when a function call is in
+  progress or when the bot is speaking."
+  {:type ::mute-input-start
+   :schema :any})
+
+(defframe mute-input-stop
+  "Frame issued when the input in the pipeline should be dropped. Useful when
+  you don't want to process user input. Either when a function call is in
+  progress or when the bot is speaking."
+  {:type ::mute-input-stop
+   :schema :any})
+
+;;
+;; System frames
+;;
+;;
+
 (def system-frames #{::system-start
                      ::system-stop
                      ::system-config-change
@@ -391,7 +417,9 @@
                      ::control-interrupt-start
                      ::control-interrupt-stop
                      ::scenario-context-update
-                     ::speak-frame})
+                     ::speak-frame
+                     ::mute-input-start
+                     ::mute-input-stop})
 
 (defn system-frame?
   "Returns true if the frame is a system frame that should be processed immediately"