token-larper 1.0.0

package/scripts/launch-on-default-desktop.ps1

@@ -0,0 +1,42 @@
+Add-Type @"
+using System;
+using System.Runtime.InteropServices;
+public class DefaultDesktopLauncher {
+    [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
+    public struct STARTUPINFO {
+        public int cb;
+        public string lpReserved;
+        public string lpDesktop;
+        public string lpTitle;
+        public int dwX; public int dwY; public int dwXSize; public int dwYSize;
+        public int dwXCountChars; public int dwYCountChars; public int dwFillAttribute;
+        public int dwFlags; public short wShowWindow; public short cbReserved2;
+        public IntPtr lpReserved2; public IntPtr hStdInput; public IntPtr hStdOutput; public IntPtr hStdError;
+    }
+    [StructLayout(LayoutKind.Sequential)]
+    public struct PROCESS_INFORMATION {
+        public IntPtr hProcess; public IntPtr hThread; public int dwProcessId; public int dwThreadId;
+    }
+    [DllImport("kernel32.dll", CharSet = CharSet.Unicode, SetLastError = true)]
+    public static extern bool CreateProcess(
+        string lpApplicationName, string lpCommandLine, IntPtr lpProcessAttributes, IntPtr lpThreadAttributes,
+        bool bInheritHandles, uint dwCreationFlags, IntPtr lpEnvironment, string lpCurrentDirectory,
+        ref STARTUPINFO lpStartupInfo, out PROCESS_INFORMATION lpProcessInformation);
+
+    public static int LaunchOnDefaultDesktop(string cmdLine, string workDir) {
+        STARTUPINFO si = new STARTUPINFO();
+        si.cb = Marshal.SizeOf(si);
+        si.lpDesktop = "WinSta0\\Default";
+        si.dwFlags = 1;
+        si.wShowWindow = 0;
+        PROCESS_INFORMATION pi;
+        uint CREATE_NO_WINDOW = 0x08000000;
+        bool ok = CreateProcess(null, cmdLine, IntPtr.Zero, IntPtr.Zero, false, CREATE_NO_WINDOW, IntPtr.Zero, workDir, ref si, out pi);
+        if (!ok) return -Marshal.GetLastWin32Error();
+        return pi.dwProcessId;
+    }
+}
+"@
+$cmd = "powershell.exe -NoProfile -ExecutionPolicy Bypass -Sta -File `"F:\Just Some Files\opensource\tokenlarper\scripts\tray-host.ps1`""
+$launchedPid = [DefaultDesktopLauncher]::LaunchOnDefaultDesktop($cmd, "F:\Just Some Files\opensource\tokenlarper")
+Write-Output $launchedPid

package/scripts/launch-silent.vbs

@@ -0,0 +1,6 @@
+Set fso = CreateObject("Scripting.FileSystemObject")
+scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
+rootDir = fso.GetParentFolderName(scriptDir)
+Set WshShell = CreateObject("WScript.Shell")
+WshShell.CurrentDirectory = rootDir
+WshShell.Run "powershell.exe -NoProfile -NonInteractive -WindowStyle Hidden -ExecutionPolicy Bypass -File """ & fso.BuildPath(scriptDir, "run-server.ps1") & """", 0, False

package/scripts/run-server.ps1

@@ -0,0 +1,59 @@
+$ErrorActionPreference = "Stop"
+$projectRoot = Split-Path -Parent $PSScriptRoot
+$cacheDir = Join-Path $projectRoot ".cache"
+$settingsPath = Join-Path $cacheDir "settings.json"
+$port = 4269
+$openBrowser = $false
+
+try {
+  if (Test-Path -LiteralPath $settingsPath) {
+    $settings = Get-Content -LiteralPath $settingsPath -Raw | ConvertFrom-Json
+    $savedPort = 0
+    if ([int]::TryParse([string]$settings.port, [ref]$savedPort) -and $savedPort -gt 0 -and $savedPort -le 65535) {
+      $port = $savedPort
+    }
+    $openBrowser = $settings.openBrowserOnBoot -eq $true
+  }
+} catch {
+  $port = 4269
+  $openBrowser = $false
+}
+
+$baseUrl = "http://127.0.0.1:$port"
+try {
+  $status = Invoke-RestMethod -Uri "$baseUrl/api/tray-status" -TimeoutSec 2
+  if ($null -ne $status.shortTooltip) {
+    if ($openBrowser) { Start-Process $baseUrl }
+    exit 0
+  }
+} catch {
+  # The server is not running yet.
+}
+
+try {
+  $bunCommand = Get-Command bun.exe -ErrorAction SilentlyContinue
+  $bunPath = if ($bunCommand) { $bunCommand.Source } else { Join-Path $env:USERPROFILE ".bun\bin\bun.exe" }
+  if (-not (Test-Path -LiteralPath $bunPath)) { throw "Bun was not found at $bunPath" }
+
+  $env:PORT = [string]$port
+  $serverEntry = Join-Path $projectRoot "src\server.ts"
+  $server = Start-Process -FilePath $bunPath -ArgumentList "`"$serverEntry`"" -WorkingDirectory $projectRoot -WindowStyle Hidden -PassThru
+
+  $ready = $false
+  for ($attempt = 0; $attempt -lt 40; $attempt++) {
+    if ($server.HasExited) { throw "Token Larper exited before the dashboard was ready" }
+    try {
+      $status = Invoke-RestMethod -Uri "$baseUrl/api/tray-status" -TimeoutSec 1
+      if ($null -ne $status.shortTooltip) { $ready = $true; break }
+    } catch {
+      Start-Sleep -Milliseconds 250
+    }
+  }
+  if (-not $ready) { throw "Token Larper did not respond on port $port" }
+  Remove-Item -LiteralPath (Join-Path $cacheDir "startup-error.log") -ErrorAction SilentlyContinue
+  if ($openBrowser) { Start-Process $baseUrl }
+} catch {
+  New-Item -ItemType Directory -Path $cacheDir -Force | Out-Null
+  Set-Content -LiteralPath (Join-Path $cacheDir "startup-error.log") -Value $_.Exception.Message
+  exit 1
+}

package/scripts/tray-host.ps1

@@ -0,0 +1,181 @@
+Add-Type -AssemblyName System.Windows.Forms
+Add-Type -AssemblyName System.Drawing
+
+$ServerPort = 4269
+$ServerPid = 8904
+$BaseUrl = "http://127.0.0.1:$ServerPort"
+
+# Opt into DPI awareness so the icon is drawn at the tray's real pixel size
+# (20px at 125%, 24px at 150%) instead of being drawn at 16px and blurred up.
+Add-Type -Namespace TokenLarper -Name Dpi -MemberDefinition '[DllImport("user32.dll")] public static extern bool SetProcessDPIAware();'
+[TokenLarper.Dpi]::SetProcessDPIAware() | Out-Null
+
+# The t. monogram from src/client/logo.svg, drawn in its 64-unit coordinates.
+$iconSize = [Math]::Max(16, [System.Windows.Forms.SystemInformation]::SmallIconSize.Width)
+$bmp = New-Object System.Drawing.Bitmap($iconSize, $iconSize)
+$g = [System.Drawing.Graphics]::FromImage($bmp)
+$g.SmoothingMode = [System.Drawing.Drawing2D.SmoothingMode]::AntiAlias
+$g.PixelOffsetMode = [System.Drawing.Drawing2D.PixelOffsetMode]::HighQuality
+$g.Clear([System.Drawing.Color]::Transparent)
+$g.ScaleTransform($iconSize / 64, $iconSize / 64)
+
+$green = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::FromArgb(255, 47, 90, 67))
+$cream = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::FromArgb(255, 243, 227, 191))
+$gold = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::FromArgb(255, 225, 183, 92))
+
+# Rounded square: x 3, y 3, size 58, corner radius 14.
+$tile = New-Object System.Drawing.Drawing2D.GraphicsPath
+$tile.AddArc(3, 3, 28, 28, 180, 90)
+$tile.AddArc(33, 3, 28, 28, 270, 90)
+$tile.AddArc(33, 33, 28, 28, 0, 90)
+$tile.AddArc(3, 33, 28, 28, 90, 90)
+$tile.CloseFigure()
+$g.FillPath($green, $tile)
+
+# Letter t: a stem with a curved foot, plus the crossbar.
+$stem = New-Object System.Drawing.Drawing2D.GraphicsPath
+$stem.AddLine(20, 12, 28, 12)
+$stem.AddLine(28, 12, 28, 43.5)
+$stem.AddBezier(28, 43.5, 28, 45.2, 28.8, 46, 30.5, 46)
+$stem.AddLine(30.5, 46, 35, 46)
+$stem.AddLine(35, 46, 35, 53)
+$stem.AddLine(35, 53, 28.5, 53)
+$stem.AddBezier(28.5, 53, 22.8, 53, 20, 50.2, 20, 44.5)
+$stem.CloseFigure()
+$g.FillPath($cream, $stem)
+$g.FillRectangle($cream, 13, 21, 22, 7)
+
+# The dot.
+$g.FillEllipse($gold, 39.5, 42, 11, 11)
+
+$hIcon = $bmp.GetHicon()
+$icon = [System.Drawing.Icon]::FromHandle($hIcon)
+
+$notifyIcon = New-Object System.Windows.Forms.NotifyIcon
+$notifyIcon.Icon = $icon
+$notifyIcon.Text = "Token Larper - AI Coding Telemetry (Port $ServerPort)"
+$notifyIcon.Visible = $true
+
+# Context Menu
+$menu = New-Object System.Windows.Forms.ContextMenuStrip
+
+$itemHeader = New-Object System.Windows.Forms.ToolStripMenuItem("Token Larper Telemetry")
+$itemHeader.Enabled = $false
+$menu.Items.Add($itemHeader) | Out-Null
+
+$itemStats = New-Object System.Windows.Forms.ToolStripMenuItem("Loading usage stats...")
+$itemStats.Enabled = $false
+$menu.Items.Add($itemStats) | Out-Null
+
+$menu.Items.Add((New-Object System.Windows.Forms.ToolStripSeparator)) | Out-Null
+
+$itemOpen = New-Object System.Windows.Forms.ToolStripMenuItem("Open Dashboard (http://localhost:$ServerPort)")
+$itemOpen.Font = New-Object System.Drawing.Font($itemOpen.Font, [System.Drawing.FontStyle]::Bold)
+$itemOpen.Add_Click({
+  Start-Process "$BaseUrl"
+})
+$menu.Items.Add($itemOpen) | Out-Null
+
+$itemSync = New-Object System.Windows.Forms.ToolStripMenuItem("Sync Harnesses Now (ccusage)")
+$itemSync.Add_Click({
+  try {
+    $notifyIcon.ShowBalloonTip(2000, "Token Larper", "Syncing coding harnesses via ccusage...", [System.Windows.Forms.ToolTipIcon]::Info)
+    Invoke-RestMethod -Uri "$BaseUrl/api/usage?refresh=1" -Method Get -TimeoutSec 20 | Out-Null
+    Update-TrayStatus
+    $notifyIcon.ShowBalloonTip(2500, "Token Larper Synced", $itemStats.Text, [System.Windows.Forms.ToolTipIcon]::Info)
+  } catch {
+    $notifyIcon.ShowBalloonTip(2500, "Token Larper", "Failed to sync harnesses.", [System.Windows.Forms.ToolTipIcon]::Warning)
+  }
+})
+$menu.Items.Add($itemSync) | Out-Null
+
+$menu.Items.Add((New-Object System.Windows.Forms.ToolStripSeparator)) | Out-Null
+
+$itemBoot = New-Object System.Windows.Forms.ToolStripMenuItem("Start on Windows Boot")
+$itemBoot.CheckOnClick = $false
+$itemBoot.Add_Click({
+  try {
+    $nextState = -not $itemBoot.Checked
+    $body = @{ enabled = $nextState; openBrowserOnBoot = $itemOpenOnBoot.Checked } | ConvertTo-Json
+    $res = Invoke-RestMethod -Uri "$BaseUrl/api/startup" -Method Post -Body $body -ContentType "application/json" -TimeoutSec 5
+    $itemBoot.Checked = [bool]$res.enabled
+    $itemOpenOnBoot.Checked = [bool]$res.openBrowserOnBoot
+  } catch {}
+})
+$menu.Items.Add($itemBoot) | Out-Null
+
+$itemOpenOnBoot = New-Object System.Windows.Forms.ToolStripMenuItem("Auto-Open Browser on Boot")
+$itemOpenOnBoot.CheckOnClick = $false
+$itemOpenOnBoot.Add_Click({
+  try {
+    $nextOpen = -not $itemOpenOnBoot.Checked
+    $body = @{ enabled = $itemBoot.Checked; openBrowserOnBoot = $nextOpen } | ConvertTo-Json
+    $res = Invoke-RestMethod -Uri "$BaseUrl/api/startup" -Method Post -Body $body -ContentType "application/json" -TimeoutSec 5
+    $itemBoot.Checked = [bool]$res.enabled
+    $itemOpenOnBoot.Checked = [bool]$res.openBrowserOnBoot
+  } catch {}
+})
+$menu.Items.Add($itemOpenOnBoot) | Out-Null
+
+$menu.Items.Add((New-Object System.Windows.Forms.ToolStripSeparator)) | Out-Null
+
+$itemQuit = New-Object System.Windows.Forms.ToolStripMenuItem("Quit Token Larper")
+$itemQuit.Add_Click({
+  $notifyIcon.Visible = $false
+  try {
+    Invoke-RestMethod -Uri "$BaseUrl/api/shutdown" -Method Post -ContentType "application/json" -TimeoutSec 3 | Out-Null
+  } catch {}
+  try {
+    Stop-Process -Id $ServerPid -Force -ErrorAction SilentlyContinue
+  } catch {}
+  $notifyIcon.Dispose()
+  [System.Windows.Forms.Application]::Exit()
+})
+$menu.Items.Add($itemQuit) | Out-Null
+
+$notifyIcon.ContextMenuStrip = $menu
+
+# Double-click tray icon opens dashboard
+$notifyIcon.Add_DoubleClick({
+  Start-Process "$BaseUrl"
+})
+
+function Update-TrayStatus {
+  try {
+    $st = Invoke-RestMethod -Uri "$BaseUrl/api/tray-status" -Method Get -TimeoutSec 4
+    if ($null -ne $st) {
+      $itemStats.Text = $st.summaryText
+      $tooltip = "Token Larper: $($st.shortTooltip)"
+      if ($tooltip.Length -gt 63) {
+        $tooltip = $tooltip.Substring(0, 63)
+      }
+      $notifyIcon.Text = $tooltip
+      $itemBoot.Checked = [bool]$st.bootEnabled
+      $itemOpenOnBoot.Checked = [bool]$st.openBrowserOnBoot
+    }
+  } catch {}
+}
+
+# Timer to check parent Bun server health & update stats
+$timer = New-Object System.Windows.Forms.Timer
+$timer.Interval = 5000
+$script:tickCount = 0
+$timer.Add_Tick({
+  $proc = Get-Process -Id $ServerPid -ErrorAction SilentlyContinue
+  if ($null -eq $proc) {
+    $notifyIcon.Visible = $false
+    $notifyIcon.Dispose()
+    [System.Windows.Forms.Application]::Exit()
+    return
+  }
+  $script:tickCount++
+  if ($script:tickCount -eq 1 -or ($script:tickCount % 3 -eq 0)) {
+    Update-TrayStatus
+  }
+})
+$timer.Start()
+
+Update-TrayStatus
+$notifyIcon.ShowBalloonTip(2500, "Token Larper Running", "Right-click or double-click the green t. icon in your system tray.", [System.Windows.Forms.ToolTipIcon]::Info)
+
+[System.Windows.Forms.Application]::Run()