lampson 0.1.0 → 0.1.2

package/lampson.cmd

@@ -1,4 +1,4 @@
-@echo off
-rem lampson.cmd — shim para usar `lampson` desde cualquier carpeta (cmd o PowerShell) una vez en el PATH.
-rem El directorio actual pasa a ser el workspace (ver lampson.ps1).
-pwsh -NoProfile -ExecutionPolicy Bypass -File "%~dp0lampson.ps1" %*
+@echo off
+rem lampson.cmd — shim para usar `lampson` desde cualquier carpeta (cmd o PowerShell) una vez en el PATH.
+rem El directorio actual pasa a ser el workspace (ver lampson.ps1).
+pwsh -NoProfile -ExecutionPolicy Bypass -File "%~dp0lampson.ps1" %*

package/lampson.ps1

@@ -1,88 +1,88 @@
-# lampson.ps1 — launcher Windows. Monta el proyecto como ./workspace (junction) y arranca.
-#
-#   cd C:\mi\proyecto ; lampson                 # el directorio ACTUAL es el workspace (REPL)
-#   cd C:\mi\proyecto ; lampson --web           # servidor web en http://127.0.0.1:8080  (también -Web)
-#   lampson --workspace C:\otro\proyecto        # elegir la ubicación explícitamente     (también -Workspace)
-#   lampson --agent plan                        # perfil inicial: build | plan | review | explore
-#   lampson --yolo | --strict | --ask            # permisos para comandos peligrosos (--dangerously-skip-permissions = --yolo)
-#   lampson --update                            # actualizar Lampson (git pull) y salir
-#   lampson --help
-#
-# Por qué una junction: el scope file("./*") de Synsema v0.6.7 equivale a "*" (disco entero); el scope
-# file("workspace/*") sí confina. Montar el proyecto bajo un nombre literal es lo que hace real el
-# least-privilege de las tools (mismo modelo mental que `docker -v proyecto:/workspace`).
-$ErrorActionPreference = "Stop"
-$here = Split-Path -Parent $MyInvocation.MyCommand.Path
-$caller = (Get-Location).Path
-$mount = Join-Path $here "workspace"
-
-# --- args: acepta --flag y -Flag, sin distinguir mayúsculas ---
-$Workspace = ""; $Web = $false; $Agent = ""; $Perm = ""
-$i = 0
-while ($i -lt $args.Count) {
-    $a = [string]$args[$i]
-    switch -Regex ($a.ToLower()) {
-        '^--?(web|w)$'          { $Web = $true }
-        '^--?(workspace|ws)$'   { $i++; $Workspace = [string]$args[$i] }
-        '^--?(agent|a)$'        { $i++; $Agent = [string]$args[$i] }
-        '^--?(yolo|y|dangerously-skip-permissions)$' { $Perm = "yolo" }
-        '^--?(strict|s)$'       { $Perm = "strict" }
-        '^--?(ask)$'            { $Perm = "ask" }
-        '^--?(permission|p)$'   { $i++; $Perm = ([string]$args[$i]).ToLower() }
-        '^--?(update|u)$'       { Write-Host "actualizando Lampson en $here"; git -C $here pull --ff-only origin main; Write-Host ("lampson " + (git -C $here rev-parse --short HEAD)); exit $LASTEXITCODE }
-        '^--?(help|h|\?)$'      { Get-Content $PSCommandPath | Select-Object -Skip 1 -First 9 | ForEach-Object { $_.TrimStart('#',' ') }; exit 0 }
-        default                 { if ($Workspace -eq "" -and -not $a.StartsWith("-")) { $Workspace = $a } else { Write-Error "argumento desconocido: $a (probá lampson --help)"; exit 1 } }
-    }
-    $i++
-}
-
-# --- resolver el proyecto: explícito > directorio actual (si no es el propio lampson) > montado previo ---
-if ($Workspace -eq "" -and $caller -ne $here) { $Workspace = $caller }
-if ($Workspace -ne "") {
-    if (-not (Test-Path -LiteralPath $Workspace -PathType Container)) { Write-Error "el workspace no existe o no es un directorio: $Workspace"; exit 1 }
-    $target = (Resolve-Path -LiteralPath $Workspace).Path
-    $home_ = [Environment]::GetFolderPath("UserProfile")
-    if ($target.TrimEnd('\') -eq $home_.TrimEnd('\') -or $target -match '^[A-Za-z]:\\?$') {
-        Write-Error "'$target' es tu carpeta personal / la raíz del disco, no un proyecto. Entrá al repo (cd) y volvé a correr lampson, o usá --workspace C:\ruta\al\proyecto"; exit 1
-    }
-    if ($target -eq $here) { Write-Error "no montes el propio directorio de lampson como workspace desde fuera; usá --workspace"; exit 1 }
-    if (Test-Path -LiteralPath $mount) {
-        $item = Get-Item -LiteralPath $mount -Force
-        if ($item.LinkType -ne "Junction") { Write-Error "./workspace existe y no es una junction; movelo antes de montar otro proyecto"; exit 1 }
-        $item.Delete()
-    }
-    New-Item -ItemType Junction -Path $mount -Target $target | Out-Null
-} elseif (-not (Test-Path -LiteralPath $mount)) {
-    Write-Error "no hay workspace: corré lampson desde el directorio del proyecto, o lampson --workspace C:\ruta"; exit 1
-}
-$target = (Get-Item -LiteralPath $mount -Force).Target
-if ($target -is [array]) { $target = $target[0] }
-
-# --- skills externas globales (npx skills add -g → ~/.agents/skills; las de Claude Code → ~/.claude/skills) ---
-# Se montan como junction bajo .lampson/ porque una capability no puede apuntar a una ruta dinámica (HOME).
-$skillMounts = @{ "skills-global" = (Join-Path $HOME ".agents\skills"); "skills-claude" = (Join-Path $HOME ".claude\skills") }
-New-Item -ItemType Directory -Force (Join-Path $here ".lampson") | Out-Null
-foreach ($k in $skillMounts.Keys) {
-    $link = Join-Path $here ".lampson\$k"; $src = $skillMounts[$k]
-    if (Test-Path -LiteralPath $link) { $li = Get-Item -LiteralPath $link -Force; if ($li.LinkType -eq "Junction") { $li.Delete() } }
-    if (Test-Path -LiteralPath $src -PathType Container) { New-Item -ItemType Junction -Path $link -Target $src | Out-Null }
-}
-
-# --- arrancar desde el directorio de lampson (ahí viven .env, lib/, skills/, .lampson/) ---
-# Push/Pop: si PowerShell ejecuta este .ps1 en la shell del usuario (pasa cuando lampson.ps1 y lampson.cmd
-# comparten nombre en el PATH), el cwd del usuario debe quedar como estaba al salir.
-Push-Location $here
-try {
-    $env:LAMPSON_WORKSPACE = $target
-    if ($Agent -ne "") { $env:LAMPSON_AGENT = $Agent }
-    if ($Perm -ne "") { $env:LAMPSON_PERMISSION = $Perm }
-    if ($Web) {
-        Write-Host "Lampson web · workspace: $target"
-        Write-Host "abrí http://127.0.0.1:8080   (Ctrl+C para parar)"
-        synsema serve web.syn
-    } else {
-        synsema run chat.syn
-    }
-} finally {
-    Pop-Location
-}
+# lampson.ps1 — launcher Windows. Monta el proyecto como ./workspace (junction) y arranca.
+#
+#   cd C:\mi\proyecto ; lampson                 # el directorio ACTUAL es el workspace (REPL)
+#   cd C:\mi\proyecto ; lampson --web           # servidor web en http://127.0.0.1:8080  (también -Web)
+#   lampson --workspace C:\otro\proyecto        # elegir la ubicación explícitamente     (también -Workspace)
+#   lampson --agent plan                        # perfil inicial: build | plan | review | explore
+#   lampson --yolo | --strict | --ask            # permisos para comandos peligrosos (--dangerously-skip-permissions = --yolo)
+#   lampson --update                            # actualizar Lampson (git pull) y salir
+#   lampson --help
+#
+# Por qué una junction: el scope file("./*") de Synsema v0.6.7 equivale a "*" (disco entero); el scope
+# file("workspace/*") sí confina. Montar el proyecto bajo un nombre literal es lo que hace real el
+# least-privilege de las tools (mismo modelo mental que `docker -v proyecto:/workspace`).
+$ErrorActionPreference = "Stop"
+$here = Split-Path -Parent $MyInvocation.MyCommand.Path
+$caller = (Get-Location).Path
+$mount = Join-Path $here "workspace"
+
+# --- args: acepta --flag y -Flag, sin distinguir mayúsculas ---
+$Workspace = ""; $Web = $false; $Agent = ""; $Perm = ""
+$i = 0
+while ($i -lt $args.Count) {
+    $a = [string]$args[$i]
+    switch -Regex ($a.ToLower()) {
+        '^--?(web|w)$'          { $Web = $true }
+        '^--?(workspace|ws)$'   { $i++; $Workspace = [string]$args[$i] }
+        '^--?(agent|a)$'        { $i++; $Agent = [string]$args[$i] }
+        '^--?(yolo|y|dangerously-skip-permissions)$' { $Perm = "yolo" }
+        '^--?(strict|s)$'       { $Perm = "strict" }
+        '^--?(ask)$'            { $Perm = "ask" }
+        '^--?(permission|p)$'   { $i++; $Perm = ([string]$args[$i]).ToLower() }
+        '^--?(update|u)$'       { Write-Host "actualizando Lampson en $here"; git -C $here pull --ff-only origin main; Write-Host ("lampson " + (git -C $here rev-parse --short HEAD)); exit $LASTEXITCODE }
+        '^--?(help|h|\?)$'      { Get-Content $PSCommandPath | Select-Object -Skip 1 -First 9 | ForEach-Object { $_.TrimStart('#',' ') }; exit 0 }
+        default                 { if ($Workspace -eq "" -and -not $a.StartsWith("-")) { $Workspace = $a } else { Write-Error "argumento desconocido: $a (probá lampson --help)"; exit 1 } }
+    }
+    $i++
+}
+
+# --- resolver el proyecto: explícito > directorio actual (si no es el propio lampson) > montado previo ---
+if ($Workspace -eq "" -and $caller -ne $here) { $Workspace = $caller }
+if ($Workspace -ne "") {
+    if (-not (Test-Path -LiteralPath $Workspace -PathType Container)) { Write-Error "el workspace no existe o no es un directorio: $Workspace"; exit 1 }
+    $target = (Resolve-Path -LiteralPath $Workspace).Path
+    $home_ = [Environment]::GetFolderPath("UserProfile")
+    if ($target.TrimEnd('\') -eq $home_.TrimEnd('\') -or $target -match '^[A-Za-z]:\\?$') {
+        Write-Error "'$target' es tu carpeta personal / la raíz del disco, no un proyecto. Entrá al repo (cd) y volvé a correr lampson, o usá --workspace C:\ruta\al\proyecto"; exit 1
+    }
+    if ($target -eq $here) { Write-Error "no montes el propio directorio de lampson como workspace desde fuera; usá --workspace"; exit 1 }
+    if (Test-Path -LiteralPath $mount) {
+        $item = Get-Item -LiteralPath $mount -Force
+        if ($item.LinkType -ne "Junction") { Write-Error "./workspace existe y no es una junction; movelo antes de montar otro proyecto"; exit 1 }
+        $item.Delete()
+    }
+    New-Item -ItemType Junction -Path $mount -Target $target | Out-Null
+} elseif (-not (Test-Path -LiteralPath $mount)) {
+    Write-Error "no hay workspace: corré lampson desde el directorio del proyecto, o lampson --workspace C:\ruta"; exit 1
+}
+$target = (Get-Item -LiteralPath $mount -Force).Target
+if ($target -is [array]) { $target = $target[0] }
+
+# --- skills externas globales (npx skills add -g → ~/.agents/skills; las de Claude Code → ~/.claude/skills) ---
+# Se montan como junction bajo .lampson/ porque una capability no puede apuntar a una ruta dinámica (HOME).
+$skillMounts = @{ "skills-global" = (Join-Path $HOME ".agents\skills"); "skills-claude" = (Join-Path $HOME ".claude\skills") }
+New-Item -ItemType Directory -Force (Join-Path $here ".lampson") | Out-Null
+foreach ($k in $skillMounts.Keys) {
+    $link = Join-Path $here ".lampson\$k"; $src = $skillMounts[$k]
+    if (Test-Path -LiteralPath $link) { $li = Get-Item -LiteralPath $link -Force; if ($li.LinkType -eq "Junction") { $li.Delete() } }
+    if (Test-Path -LiteralPath $src -PathType Container) { New-Item -ItemType Junction -Path $link -Target $src | Out-Null }
+}
+
+# --- arrancar desde el directorio de lampson (ahí viven .env, lib/, skills/, .lampson/) ---
+# Push/Pop: si PowerShell ejecuta este .ps1 en la shell del usuario (pasa cuando lampson.ps1 y lampson.cmd
+# comparten nombre en el PATH), el cwd del usuario debe quedar como estaba al salir.
+Push-Location $here
+try {
+    $env:LAMPSON_WORKSPACE = $target
+    if ($Agent -ne "") { $env:LAMPSON_AGENT = $Agent }
+    if ($Perm -ne "") { $env:LAMPSON_PERMISSION = $Perm }
+    if ($Web) {
+        Write-Host "Lampson web · workspace: $target"
+        Write-Host "abrí http://127.0.0.1:8080   (Ctrl+C para parar)"
+        synsema serve web.syn
+    } else {
+        synsema run chat.syn
+    }
+} finally {
+    Pop-Location
+}

package/lampson.sh

@@ -1,42 +1,42 @@
-#!/usr/bin/env bash
-# lampson.sh — launcher unix. El directorio ACTUAL es el workspace (o --workspace /ruta).
-#   cd /mi/proyecto && lampson            # REPL   (con lampson/ en el PATH)
-#   cd /mi/proyecto && lampson --web      # servidor web en http://127.0.0.1:8080
-#   lampson --workspace /otro/proyecto [--web] [--agent plan]
-set -euo pipefail
-here="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
-caller="$(pwd)"
-ws=""; web=0
-while [ $# -gt 0 ]; do
-    case "$1" in
-        --web) web=1 ;;
-        --workspace) shift; ws="$1" ;;
-        --agent) shift; export LAMPSON_AGENT="$1" ;;
-        --yolo|--dangerously-skip-permissions) export LAMPSON_PERMISSION=yolo ;;
-        --strict) export LAMPSON_PERMISSION=strict ;;
-        --ask) export LAMPSON_PERMISSION=ask ;;
-        --update) echo "actualizando Lampson en $here"; git -C "$here" pull --ff-only origin main; echo "lampson $(git -C "$here" rev-parse --short HEAD)"; exit $? ;;
-        *) echo "uso: lampson [--web] [--workspace RUTA] [--agent PERFIL] [--yolo|--strict|--ask] [--update]" >&2; exit 1 ;;
-    esac
-    shift
-done
-[ -z "$ws" ] && [ "$caller" != "$here" ] && ws="$caller"
-if [ -n "$ws" ]; then
-    [ -d "$ws" ] || { echo "el workspace no existe o no es un directorio: $ws" >&2; exit 1; }
-    ws="$(cd "$ws" && pwd)"
-    if [ -e "$here/workspace" ] && [ ! -L "$here/workspace" ]; then echo "./workspace existe y no es un symlink" >&2; exit 1; fi
-    rm -f "$here/workspace"; ln -s "$ws" "$here/workspace"
-elif [ ! -e "$here/workspace" ]; then
-    echo "no hay workspace: corré lampson desde el directorio del proyecto, o --workspace /ruta" >&2; exit 1
-fi
-export LAMPSON_WORKSPACE="$(readlink -f "$here/workspace")"
-# skills externas globales (npx skills add -g → ~/.agents/skills; Claude Code → ~/.claude/skills), montadas bajo .lampson/
-mkdir -p "$here/.lampson"
-for pair in "skills-global:$HOME/.agents/skills" "skills-claude:$HOME/.claude/skills"; do
-    link="$here/.lampson/${pair%%:*}"; src="${pair#*:}"
-    [ -L "$link" ] && rm -f "$link"
-    [ -d "$src" ] && ln -s "$src" "$link"
-done
-echo "workspace -> $LAMPSON_WORKSPACE"
-cd "$here"
-if [ "$web" = 1 ]; then echo "web: http://127.0.0.1:8080"; exec synsema serve web.syn; else exec synsema run chat.syn; fi
+#!/usr/bin/env bash
+# lampson.sh — launcher unix. El directorio ACTUAL es el workspace (o --workspace /ruta).
+#   cd /mi/proyecto && lampson            # REPL   (con lampson/ en el PATH)
+#   cd /mi/proyecto && lampson --web      # servidor web en http://127.0.0.1:8080
+#   lampson --workspace /otro/proyecto [--web] [--agent plan]
+set -euo pipefail
+here="$(cd "$(dirname "${BASH_SOURCE[0]}")" && pwd)"
+caller="$(pwd)"
+ws=""; web=0
+while [ $# -gt 0 ]; do
+    case "$1" in
+        --web) web=1 ;;
+        --workspace) shift; ws="$1" ;;
+        --agent) shift; export LAMPSON_AGENT="$1" ;;
+        --yolo|--dangerously-skip-permissions) export LAMPSON_PERMISSION=yolo ;;
+        --strict) export LAMPSON_PERMISSION=strict ;;
+        --ask) export LAMPSON_PERMISSION=ask ;;
+        --update) echo "actualizando Lampson en $here"; git -C "$here" pull --ff-only origin main; echo "lampson $(git -C "$here" rev-parse --short HEAD)"; exit $? ;;
+        *) echo "uso: lampson [--web] [--workspace RUTA] [--agent PERFIL] [--yolo|--strict|--ask] [--update]" >&2; exit 1 ;;
+    esac
+    shift
+done
+[ -z "$ws" ] && [ "$caller" != "$here" ] && ws="$caller"
+if [ -n "$ws" ]; then
+    [ -d "$ws" ] || { echo "el workspace no existe o no es un directorio: $ws" >&2; exit 1; }
+    ws="$(cd "$ws" && pwd)"
+    if [ -e "$here/workspace" ] && [ ! -L "$here/workspace" ]; then echo "./workspace existe y no es un symlink" >&2; exit 1; fi
+    rm -f "$here/workspace"; ln -s "$ws" "$here/workspace"
+elif [ ! -e "$here/workspace" ]; then
+    echo "no hay workspace: corré lampson desde el directorio del proyecto, o --workspace /ruta" >&2; exit 1
+fi
+export LAMPSON_WORKSPACE="$(readlink -f "$here/workspace")"
+# skills externas globales (npx skills add -g → ~/.agents/skills; Claude Code → ~/.claude/skills), montadas bajo .lampson/
+mkdir -p "$here/.lampson"
+for pair in "skills-global:$HOME/.agents/skills" "skills-claude:$HOME/.claude/skills"; do
+    link="$here/.lampson/${pair%%:*}"; src="${pair#*:}"
+    [ -L "$link" ] && rm -f "$link"
+    [ -d "$src" ] && ln -s "$src" "$link"
+done
+echo "workspace -> $LAMPSON_WORKSPACE"
+cd "$here"
+if [ "$web" = 1 ]; then echo "web: http://127.0.0.1:8080"; exec synsema serve web.syn; else exec synsema run chat.syn; fi