Fix defframe macro

Author: ovistoica

core/.clj-kondo/metosin/malli-types-clj/config.edn

@@ -1,10 +1,10 @@
 {:linters {:unresolved-symbol {:exclude [(malli.core/=>)]},
-           :type-mismatch {:namespaces {voice-fn.frame {user-speech-stop {:arities {0 {:args [],
+           :type-mismatch {:namespaces {voice-fn.frame {user-speech-stop {:arities {1 {:args [:any],
                                                                                        :ret {:op :keys,
                                                                                              :req {:frame/type :any,
                                                                                                    :frame/data :any,
                                                                                                    :frame/ts :any}}}}},
-                                                        transcription-interim {:arities {0 {:args [],
+                                                        transcription-interim {:arities {1 {:args [:any],
                                                                                             :ret {:op :keys,
                                                                                                   :req {:frame/type :any,
                                                                                                         :frame/data :any,
@@ -18,7 +18,7 @@
                                                                                                     :req {:frame/type :any,
                                                                                                           :frame/data :boolean,
                                                                                                           :frame/ts :any}}}}},
-                                                        llm-text-sentence {:arities {0 {:args [],
+                                                        llm-text-sentence {:arities {1 {:args [:any],
                                                                                         :ret {:op :keys,
                                                                                               :req {:frame/type :any,
                                                                                                     :frame/data :any,
@@ -30,12 +30,12 @@
                                                                                                    :req {:frame/type :any,
                                                                                                          :frame/data :boolean,
                                                                                                          :frame/ts :any}}}}},
-                                                        transcription {:arities {0 {:args [],
+                                                        transcription {:arities {1 {:args [:any],
                                                                                     :ret {:op :keys,
                                                                                           :req {:frame/type :any,
                                                                                                 :frame/data :any,
                                                                                                 :frame/ts :any}}}}},
-                                                        system-error {:arities {0 {:args [],
+                                                        system-error {:arities {1 {:args [:any],
                                                                                    :ret {:op :keys,
                                                                                          :req {:frame/type :any,
                                                                                                :frame/data :any,
@@ -50,7 +50,7 @@
                                                                                               :frame/data :string,
                                                                                               :frame/ts :any}}}}},
                                                         user-speech-start? {:arities {1 {:args [:any], :ret :boolean}}},
-                                                        llm-full-response-end {:arities {0 {:args [],
+                                                        llm-full-response-end {:arities {1 {:args [:any],
                                                                                             :ret {:op :keys,
                                                                                                   :req {:frame/type :any,
                                                                                                         :frame/data :any,
@@ -74,14 +74,14 @@
                                                                                                                  :tool-choice :any},
                                                                                                            :req {:messages :vector}},
                                                                                               :frame/ts :any}}}}},
-                                                        audio-tts-raw {:arities {0 {:args [],
+                                                        audio-tts-raw {:arities {1 {:args [:any],
                                                                                     :ret {:op :keys,
                                                                                           :req {:frame/type :any,
                                                                                                 :frame/data :any,
                                                                                                 :frame/ts :any}}}}},
                                                         user-speech-stop? {:arities {1 {:args [:any], :ret :boolean}}},
                                                         text-input? {:arities {1 {:args [:any], :ret :boolean}}},
-                                                        llm-full-response-start {:arities {0 {:args [],
+                                                        llm-full-response-start {:arities {1 {:args [:any],
                                                                                               :ret {:op :keys,
                                                                                                     :req {:frame/type :any,
                                                                                                           :frame/data :any,
@@ -105,7 +105,7 @@
                                                         llm-full-response-start? {:arities {1 {:args [:any],
                                                                                                :ret :boolean}}},
                                                         llm-context? {:arities {1 {:args [:any], :ret :boolean}}},
-                                                        llm-tools-call-request {:arities {0 {:args [],
+                                                        llm-tools-call-request {:arities {1 {:args [:any],
                                                                                              :ret {:op :keys,
                                                                                                    :req {:frame/type :any,
                                                                                                          :frame/data :any,
@@ -160,18 +160,18 @@
                                                                                                   :frame/ts :any}}}}},
                                                         transcription-interim? {:arities {1 {:args [:any],
                                                                                              :ret :boolean}}},
-                                                        text-input {:arities {0 {:args [],
+                                                        text-input {:arities {1 {:args [:any],
                                                                                  :ret {:op :keys,
                                                                                        :req {:frame/type :any,
                                                                                              :frame/data :any,
                                                                                              :frame/ts :any}}}}},
                                                         audio-output-raw? {:arities {1 {:args [:any], :ret :boolean}}},
-                                                        audio-output-raw {:arities {0 {:args [],
+                                                        audio-output-raw {:arities {1 {:args [:any],
                                                                                        :ret {:op :keys,
                                                                                              :req {:frame/type :any,
                                                                                                    :frame/data :any,
                                                                                                    :frame/ts :any}}}}},
-                                                        llm-text-chunk {:arities {0 {:args [],
+                                                        llm-text-chunk {:arities {1 {:args [:any],
                                                                                      :ret {:op :keys,
                                                                                            :req {:frame/type :any,
                                                                                                  :frame/data :any,

core/src/voice_fn/frame.clj

@@ -39,10 +39,10 @@
                     \"Doc string\"
                     {:type :frame.audio/input-raw
                      :schema [:map [:data AudioData]])}"
-  [name docstring {:keys [type schema]}]
+  [name docstring {:keys [type schema] :or {schema :any}}]
   (let [frame-schema [:map
                       [:frame/type [:= type]]
-                      [:frame/data (or schema :any)]
+                      [:frame/data schema]
                       [:frame/ts :any]]
         frame-schema-name (symbol (str name "-schema"))
         pred-name (symbol (str name "?"))]