-
Long conversations
Codex and Claude Code compact a conversation at 272K tokens on a model with a larger window, as they do on OpenAI’s and Anthropic’s own; the model’s full window lets it grow further, with every turn slower and costlier
+
Long conversations
Codex and Claude Code compact a conversation at 272K tokens on a model with a larger window; in Claude Code a Claude model runs to its own window, 1M for a [1m] one, as Anthropic runs it. The model’s full window lets any conversation grow further, with every turn slower and costlier
diff --git a/model_cli.go b/model_cli.go
index bdedb58b..d23fedab 100644
--- a/model_cli.go
+++ b/model_cli.go
@@ -54,6 +54,11 @@ const modelUsage = `usage:
own, a name you gave a model just as you wrote it, "Opus 5.5",
the others as on; off, "Sol" alone — but two a list would name
the same keep it
+ magpie model compact [on|off] whether Codex and Claude Code compact a long conversation at
+ 272K: on, as by default, for a model of a longer window (in
+ Claude Code, a Claude model runs to its own); off, at the
+ model's whole window, 1M for a [1m] one. The app's Settings →
+ Long conversations is the same switch
Each is looked for in this order: this model, then
/*, then the provider's own
list, then models.dev. --reset removes only the first, and says so when a /* value
@@ -90,6 +95,8 @@ func modelCmd(args []string) error {
return modelWires()
case "suffix", "suffixes":
return modelSuffix(args[1:])
+ case "compact", "full-context":
+ return modelCompact(args[1:])
case "context", "ctx":
return modelContext(args[1:])
case "output", "max-output":
@@ -514,6 +521,37 @@ func modelSuffix(args []string) error {
return nil
}
+// modelCompact says whether long conversations are compacted at the
+// working window (settings.WorkingWindow), or sets it: off is the app's
+// Full window, every model run to its whole window.
+func modelCompact(args []string) error {
+ if len(args) == 0 {
+ if settings.Load().FullContext {
+ fmt.Println("off", muted.Render("· Codex and Claude Code run a conversation to the model's whole window · magpie model compact on"))
+ } else {
+ fmt.Println("on", muted.Render(fmt.Sprintf("· Codex and Claude Code compact at %dK on a longer window; in Claude Code a Claude model runs to its own · magpie model compact off", settings.WorkingWindow/1000)))
+ }
+ return nil
+ }
+ var full bool
+ switch strings.ToLower(args[0]) {
+ case "on", "yes", "true":
+ case "off", "no", "false", "full":
+ full = true
+ default:
+ return fmt.Errorf("magpie model compact on|off, not %q", args[0])
+ }
+ if err := provider.SetFullContext(full); err != nil {
+ return err
+ }
+ if full {
+ fmt.Println(green.Render("✓"), "Codex and Claude Code run a conversation to the model's whole window", muted.Render("· every turn sends all of it"))
+ } else {
+ fmt.Println(green.Render("✓"), fmt.Sprintf("Codex and Claude Code compact at %dK again", settings.WorkingWindow/1000))
+ }
+ return nil
+}
+
func modelNames() error {
s := settings.Load()
keys := slices.Sorted(maps.Keys(s.ModelNames))
diff --git a/model_compact_cli_test.go b/model_compact_cli_test.go
new file mode 100644
index 00000000..e736f437
--- /dev/null
+++ b/model_compact_cli_test.go
@@ -0,0 +1,35 @@
+package main
+
+import (
+ "testing"
+
+ "github.com/yetone/magpie/internal/catalog"
+ "github.com/yetone/magpie/internal/settings"
+)
+
+// magpie model compact off runs Codex's and Claude Code's conversations to
+// the model's whole window, on compacts them at the working window again
+// (Max on Discord found no way to it but the app's Settings); anything else
+// is refused.
+func TestModelCompactCmd(t *testing.T) {
+ groupsHome(t)
+ catalog.Changed = nil // no agent's files are rewritten here
+ if err := modelCmd([]string{"compact"}); err != nil {
+ t.Fatal(err)
+ }
+ if err := modelCmd([]string{"compact", "off"}); err != nil || !settings.Load().FullContext {
+ t.Fatal(err, settings.Load().FullContext)
+ }
+ if err := modelCmd([]string{"compact"}); err != nil {
+ t.Fatal(err)
+ }
+ if err := modelCmd([]string{"compact", "on"}); err != nil || settings.Load().FullContext {
+ t.Fatal(err, settings.Load().FullContext)
+ }
+ if err := modelCmd([]string{"full-context", "full"}); err != nil || !settings.Load().FullContext {
+ t.Fatal(err, settings.Load().FullContext)
+ }
+ if err := modelCmd([]string{"compact", "maybe"}); err == nil {
+ t.Fatal("took maybe")
+ }
+}