hs: query targets, prolog hook, loop scripts, new plans, WASM regen
Hyperscript compiler/runtime:
- query target support in set/fire/put commands
- hs-set-prolog-hook! / hs-prolog-hook / hs-prolog in runtime
- runtime log-capture cleanup
Scripts: sx-loops-up/down, sx-hs-e-up/down, sx-primitives-down
Plans: datalog, elixir, elm, go, koka, minikanren, ocaml, hs-bucket-f,
designs (breakpoint, null-safety, step-limit, tell, cookies, eval,
plugin-system)
lib/prolog/hs-bridge.sx: initial hook-based bridge draft
lib/common-lisp/tests/runtime.sx: CL runtime tests
WASM: regenerate sx_browser.bc.js from updated hs sources
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
@@ -48,6 +48,72 @@ ORDER=(lua prolog forth erlang haskell js hs smalltalk common-lisp apl ruby tcl)
|
||||
|
||||
mkdir -p "$WORKTREE_BASE"
|
||||
|
||||
# Settings written into every worktree so loops never stall on sx-tree permission prompts
|
||||
write_worktree_settings() {
|
||||
local wt="$1"
|
||||
local settings_dir="$wt/.claude"
|
||||
mkdir -p "$settings_dir"
|
||||
cat > "$settings_dir/settings.local.json" <<'SETTINGS'
|
||||
{
|
||||
"permissions": {
|
||||
"allow": [
|
||||
"mcp__sx-tree__sx_summarise",
|
||||
"mcp__sx-tree__sx_read_tree",
|
||||
"mcp__sx-tree__sx_read_subtree",
|
||||
"mcp__sx-tree__sx_get_context",
|
||||
"mcp__sx-tree__sx_find_all",
|
||||
"mcp__sx-tree__sx_find_across",
|
||||
"mcp__sx-tree__sx_get_siblings",
|
||||
"mcp__sx-tree__sx_validate",
|
||||
"mcp__sx-tree__sx_replace_node",
|
||||
"mcp__sx-tree__sx_insert_child",
|
||||
"mcp__sx-tree__sx_insert_near",
|
||||
"mcp__sx-tree__sx_delete_node",
|
||||
"mcp__sx-tree__sx_wrap_node",
|
||||
"mcp__sx-tree__sx_rename_symbol",
|
||||
"mcp__sx-tree__sx_replace_by_pattern",
|
||||
"mcp__sx-tree__sx_rename_across",
|
||||
"mcp__sx-tree__sx_write_file",
|
||||
"mcp__sx-tree__sx_pretty_print",
|
||||
"mcp__sx-tree__sx_eval",
|
||||
"mcp__sx-tree__sx_harness_eval",
|
||||
"mcp__sx-tree__sx_macroexpand",
|
||||
"mcp__sx-tree__sx_trace",
|
||||
"mcp__sx-tree__sx_deps",
|
||||
"mcp__sx-tree__sx_diff",
|
||||
"mcp__sx-tree__sx_diff_branch",
|
||||
"mcp__sx-tree__sx_changed",
|
||||
"mcp__sx-tree__sx_blame",
|
||||
"mcp__sx-tree__sx_build",
|
||||
"mcp__sx-tree__sx_build_manifest",
|
||||
"mcp__sx-tree__sx_build_bytecode",
|
||||
"mcp__sx-tree__sx_test",
|
||||
"mcp__sx-tree__sx_format_check",
|
||||
"mcp__sx-tree__sx_comp_list",
|
||||
"mcp__sx-tree__sx_comp_usage",
|
||||
"mcp__sx-tree__sx_nav",
|
||||
"mcp__sx-tree__sx_env",
|
||||
"mcp__sx-tree__sx_playwright",
|
||||
"mcp__hs-test__hs_test_run",
|
||||
"mcp__hs-test__hs_test_regen",
|
||||
"mcp__hs-test__hs_test_kill",
|
||||
"mcp__hs-test__hs_test_status",
|
||||
"Bash(node *)",
|
||||
"Bash(python3 *)",
|
||||
"Bash(bash *)",
|
||||
"Bash(cp *)",
|
||||
"Bash(git *)"
|
||||
]
|
||||
},
|
||||
"enabledMcpjsonServers": [
|
||||
"sx-tree",
|
||||
"rose-ash-services",
|
||||
"hs-test"
|
||||
]
|
||||
}
|
||||
SETTINGS
|
||||
}
|
||||
|
||||
echo "Preparing per-language worktrees under $WORKTREE_BASE ..."
|
||||
for lang in "${ORDER[@]}"; do
|
||||
wt="$WORKTREE_BASE/$lang"
|
||||
@@ -63,6 +129,7 @@ for lang in "${ORDER[@]}"; do
|
||||
fi
|
||||
echo " $lang: worktree created at $wt on $branch"
|
||||
fi
|
||||
write_worktree_settings "$wt"
|
||||
done
|
||||
|
||||
# Create tmux session with one window per language, each cwd in its worktree
|
||||
|
||||
Reference in New Issue
Block a user