claude-code - 💡(How to fix) Fix Launch claude from anywhere: interactive recent-projects picker

# Claude Code Project Picker — PowerShell
# ----------------------------------------
# Wraps the `claude` command. When invoked with no arguments from your home
# directory, shows an interactive menu of recent Claude projects sorted by last
# activity. Navigate with arrow keys; Enter to open, R to resume the last
# session, Esc to start a new session in the current directory.
#
# INSTALL: Add to your PowerShell profile ($PROFILE):
#   . "$HOME\Documents\claude-project-picker\claude-project-picker.ps1"


function claude {
    $realClaude = (Get-Command claude -CommandType Application -ErrorAction SilentlyContinue |
                   Select-Object -First 1).Source

    if (-not $realClaude) {
        Write-Host "claude: command not found" -ForegroundColor Red
        return
    }

    if ($args.Count -gt 0 -or $PWD.Path -ne $env:USERPROFILE) {
        & $realClaude @args
        return
    }

    $projectsDir = Join-Path $env:USERPROFILE ".claude\projects"
    if (-not (Test-Path $projectsDir)) {
        & $realClaude
        return
    }

    $projects = Get-ChildItem $projectsDir -Directory -ErrorAction SilentlyContinue |
        ForEach-Object {
            $jsonls = Get-ChildItem $_.FullName -Filter "*.jsonl" -ErrorAction SilentlyContinue
            $latest = $jsonls | Sort-Object LastWriteTime -Descending | Select-Object -First 1
            if (-not $latest) { return }
            $line = Get-Content $latest.FullName |
                        Where-Object { $_ -match '"cwd"' } |
                        Select-Object -First 1
            if ($line -match '"cwd":"((?:[^"\\]|\\.)*)"') {
                $cwd = $matches[1] -replace '\\\\', '\'
                if (Test-Path $cwd) {
                    [PSCustomObject]@{
                        Path      = $cwd
                        LastWrite = $latest.LastWriteTime
                        Chats     = $jsonls.Count
                    }
                }
            }
        } |
        Sort-Object LastWrite -Descending |
        Group-Object Path |
        ForEach-Object { $_.Group[0] }

    if (-not $projects -or $projects.Count -eq 0) {
        Write-Host "No Claude projects found. Starting here." -ForegroundColor DarkCyan
        & $realClaude
        return
    }

    $termWidth = [Console]::WindowWidth - 1
    $maxName   = ($projects |
                  ForEach-Object { (Split-Path $_.Path -Leaf).Length } |
                  Measure-Object -Maximum).Maximum

    $formatLine = {
        param($p, $isSelected)
        $prefix = if ($isSelected) { "  > " } else { "    " }
        $name   = (Split-Path $p.Path -Leaf).PadRight($maxName)
        $dt     = $p.LastWrite.ToString("yyyy-MM-dd HH:mm")
        $chats  = if ($p.Chats -eq 1) { "1 chat" } else { "$($p.Chats) chats" }
        $full   = "$prefix$name   $dt   $chats   ($($p.Path))"
        if ($full.Length -gt $termWidth) { $full.Substring(0, $termWidth - 3) + "..." }
        else                             { $full.PadRight($termWidth) }
    }

    Write-Host "  Enter open  |  R resume  |  Esc start here`n" -ForegroundColor DarkGray

    $selected = 0
    $menuTop  = [Console]::CursorTop

    $drawMenu = {
        [Console]::SetCursorPosition(0, $menuTop)
        for ($i = 0; $i -lt $projects.Count; $i++) {
            $line = & $formatLine $projects[$i] ($i -eq $selected)
            if ($i -eq $selected) { Write-Host $line -ForegroundColor Cyan }
            else                   { Write-Host $line }
        }
    }

    & $drawMenu

    $done = $false
    while (-not $done) {
        $key = [Console]::ReadKey($true)
        switch ($key.Key) {
            'UpArrow'   { if ($selected -gt 0)                   { $selected--; & $drawMenu } }
            'DownArrow' { if ($selected -lt $projects.Count - 1) { $selected++; & $drawMenu } }
            'Enter'  {
                Write-Host ""
                Set-Location $projects[$selected].Path
                & $realClaude
                $done = $true
            }
            'R'      {
                Write-Host ""
                Set-Location $projects[$selected].Path
                & $realClaude --resume
                $done = $true
            }
            'Escape' {
                Write-Host ""
                & $realClaude
                $done = $true
            }
        }
    }
}