Skip to content

直接保留已验证的 Gen Code 草稿类型 #67

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

Open
tiye wants to merge 3 commits into
base: main
Choose a base branch
from
Open

直接保留已验证的 Gen Code 草稿类型 #67

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ab08cf9
直接保留已验证的 Gen Code 草稿类型
tiye Nov 14, 2026
2242110
保留 Gen Code 草稿事件的具名载荷
tiye Nov 14, 2026
44c242f
使用 JS 宿主类型约束 GenAI 客户端
tiye Nov 14, 2026
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
28 changes: 23 additions & 5 deletions calcit.cirru
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -278,7 +278,7 @@
reset! *ai-chat $ Some $ let
model $ pick-model variant
doc-content $ str (include-file! |declare-task.md) sep (include-file! |format-guide.md) sep (include-file! |calcit-lang.md) sep $ include-file! |respo.md
ai $ unsafe-coerce
ai $ js-cast
new GoogleGenAI $ js-object $ :apiKey (get-gemini-key!)
, GenAIClientHost
js-cast
Expand Down Expand Up @@ -693,7 +693,10 @@
(:states cursor state)
Some $ GenCodeOp :states
decode-map-as cursor $ List respo.schema/CoordKey
decode-map-as state 'gen-code.schema/GenCodeDraftValue
if
and (struct? state) (&struct:matches? state GenCodeState)
assert-type state GenCodeState
decode-map-as state GenCodeDraftValue
(:states-merge cursor state changes)
if
and (struct? state) (&struct:matches? state GenCodeState)
Expand All @@ -714,6 +717,18 @@
-> $ Option GenCodeOp
:generics Input
:tests $ []
%{} 'TestEntry (:name |keeps-nominal-and-legacy-draft-operations)
:code $ quote $ let
draft $ GenCodeState :query |draft :answer | :code | :loading? false :done? false
fields $ {} (:query |draft) (:loading? false)
assert=
Some $ GenCodeOp :states ([] :draft) draft
decode-gen-code-op $ :: :states ([] :draft) draft
assert=
Some $ GenCodeOp :states ([] :draft) fields
decode-gen-code-op $ :: :states ([] :draft) fields
assert= None $ decode-gen-code-op $ :: :states ([] :draft)
{} $ :query 7
%{} 'TestEntry (:name |decodes-hydration)
:code $ quote $ assert=
Some $ GenCodeOp :hydrate-storage store
Expand Down Expand Up @@ -759,9 +774,12 @@
:schema $ quote $ Fn GenCodeOp (-> AnyEnum) (:open :reflect)
'read-draft $ %{} 'CodeEntry (:doc |)
:code $ quote $ defn read-draft (raw)
decode-map-as
if (struct? raw) (&struct:to-map raw) raw
, 'gen-code.schema/GenCodeState
if
and (struct? raw) (&struct:matches? raw GenCodeState)
assert-type raw GenCodeState
decode-map-as
if (struct? raw) (&struct:to-map raw) raw
, GenCodeState
:examples $ []
:schema $ quote $ Fn Input (-> GenCodeState) (:generics Input)
'read-open-field-or $ %{} 'CodeEntry
Expand Down
Loading