Skip to content

收紧 Gen Code 流式补丁的内部派发类型 #58

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
tiye merged 1 commit into from
Nov 10, 2026
Merged

收紧 Gen Code 流式补丁的内部派发类型 #58

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
41 changes: 24 additions & 17 deletions calcit.cirru
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -348,20 +348,21 @@
if (struct? value) (&struct:to-map value) value
, 'gen-code.schema/GenCodeState
loading? $ :loading? state
emit-patch! $ fn (request-state dispatch! patch)
hint-fn $ Fn gen-code.schema/GenCodeState
wire-dispatch $ fn (dispatch!)
hint-fn $ Fn
Fn AnyEnum $ -> Unit
Map Tag gen-code.schema/GenCodeFieldValue
-> Unit
dispatch! $ gen-code.schema/plugin-op-to-wire $ gen-code.schema/GenCodeOp :states-merge cursor request-state patch
, &unit
patch-dispatch $ fn (request-state dispatch!)
-> $ Fn gen-code.schema/GenCodeOp $ -> Unit
fn (op)
hint-fn $ Fn gen-code.schema/GenCodeOp $ -> Unit
dispatch! $ gen-code.schema/plugin-op-to-wire op
, &unit
patch-dispatch $ fn (request-state emit!)
hint-fn $ Fn gen-code.schema/GenCodeState
Fn AnyEnum $ -> Unit
Fn gen-code.schema/GenCodeOp $ -> Unit
-> $ Fn (Map Tag gen-code.schema/GenCodeFieldValue) (-> Unit)
fn (patch)
hint-fn $ Fn (Map Tag gen-code.schema/GenCodeFieldValue) (-> Unit)
emit-patch! request-state dispatch! patch
emit! $ gen-code.schema/GenCodeOp :states-merge cursor request-state patch
render-node $ fn ()
hint-fn $ Fn $ -> respo.schema/Element
div
Expand Down Expand Up @@ -399,10 +400,11 @@
and meta? $ = 13 key-code
let
*text $ ref |
send-patch! $ patch-dispatch state $ wire-dispatch d!
try
js-await $ call-genai-msg! :gemini (:query state) (patch-dispatch state d!) *text
js-await $ call-genai-msg! :gemini (:query state) send-patch! *text
fn (e)
emit-patch! state d! $ {}
send-patch! $ {}
:answer $ str @*text &newline &newline $ str "|Failed to load: " e
:loading? false
:done? true
Expand All @@ -425,7 +427,9 @@
Fn AnyEnum $ -> Unit
-> Unit
initialize-chat! :gemini
emit-patch! state d! $ {} $ :loading? false
let
send-patch! $ patch-dispatch state $ wire-dispatch d!
send-patch! $ {} $ :loading? false
, &unit
if loading?
button $ {} (:class-name css/button) (:inner-text |Abort)
Expand All @@ -447,15 +451,18 @@
:async
let
*text $ ref |
emit! $ wire-dispatch d!
try
js-await $ call-genai-msg! :gemini (:query state)
patch-dispatch (assoc state :code |) d!
patch-dispatch (assoc state :code |) emit!
, *text
fn (e)
emit-patch! state d! $ {}
:answer $ str @*text &newline &newline $ str "|Failed to load: " e
:loading? false
:done? true
let
send-patch! $ patch-dispatch state emit!
send-patch! $ {}
:answer $ str @*text &newline &newline $ str "|Failed to load: " e
:loading? false
:done? true
, &unit
if loading?
pre $ {}
Expand Down
Loading