agentvibes 4.2.0 → 4.4.0

package/.claude/hooks-windows/speed-manager.ps1

@@ -0,0 +1,166 @@
+#
+# File: .claude/hooks-windows/speed-manager.ps1
+#
+# AgentVibes - Finally, your AI Agents can Talk Back!
+# Website: https://agentvibes.org
+# Copyright (c) 2025 Paul Preibisch
+# Licensed under the Apache License, Version 2.0
+
+param(
+    [Parameter(Position=0)]
+    [string]$Command = "help",
+    [Parameter(Position=1)]
+    [string]$Arg1 = ""
+)
+
+$ScriptDir = Split-Path -Parent $MyInvocation.MyCommand.Path
+$ClaudeDir = Split-Path -Parent $ScriptDir
+
+# Determine config directory
+if ($env:CLAUDE_PROJECT_DIR -and (Test-Path "$env:CLAUDE_PROJECT_DIR\.claude")) {
+    $ConfigDir = Join-Path $env:CLAUDE_PROJECT_DIR ".claude" "config"
+} else {
+    $ConfigDir = Join-Path $ClaudeDir "config"
+}
+
+if (-not (Test-Path $ConfigDir)) { New-Item -ItemType Directory -Path $ConfigDir -Force | Out-Null }
+
+$MainSpeedFile = Join-Path $ConfigDir "tts-speech-rate.txt"
+$TargetSpeedFile = Join-Path $ConfigDir "tts-target-speech-rate.txt"
+
+# Legacy migration
+$LegacyMain = Join-Path $ConfigDir "piper-speech-rate.txt"
+$LegacyTarget = Join-Path $ConfigDir "piper-target-speech-rate.txt"
+if ((Test-Path $LegacyMain) -and -not (Test-Path $MainSpeedFile)) {
+    Copy-Item $LegacyMain $MainSpeedFile
+}
+if ((Test-Path $LegacyTarget) -and -not (Test-Path $TargetSpeedFile)) {
+    Copy-Item $LegacyTarget $TargetSpeedFile
+}
+
+function Parse-SpeedValue {
+    param([string]$Input)
+
+    switch -Regex ($Input) {
+        '^(normal|1x|1\.0)$' { return "1.0" }
+        '^(slow|slower|0\.5x)$' { return "0.5" }
+        '^(fast|2x|2\.0)$' { return "2.0" }
+        '^(faster|3x|3\.0)$' { return "3.0" }
+    }
+
+    $val = $Input -replace '^[+-]', '' -replace 'x$', ''
+    if ($val -match '^\d+\.?\d*$') { return $val }
+    return "ERROR"
+}
+
+function Set-Speed {
+    param([bool]$IsTarget = $false, [string]$SpeedInput)
+
+    if (-not $SpeedInput) {
+        Write-Output "Error: Speed value required"
+        Write-Output "Usage: speed-manager.ps1 [target] <speed>"
+        exit 1
+    }
+
+    $speedValue = Parse-SpeedValue $SpeedInput
+    if ($speedValue -eq "ERROR") {
+        Write-Output "Invalid speed value: $SpeedInput"
+        Write-Output "Valid values: normal, 0.5x, 1x, 2x, 3x"
+        exit 1
+    }
+
+    if ($IsTarget) {
+        $configFile = $TargetSpeedFile
+        $voiceType = "target language"
+    } else {
+        $configFile = $MainSpeedFile
+        $voiceType = "main voice"
+    }
+
+    Set-Content -Path $configFile -Value $speedValue -NoNewline
+
+    Write-Output "Speech speed set for $voiceType"
+    Write-Output ""
+    Write-Output "Speed: ${speedValue}x"
+
+    switch ($speedValue) {
+        "0.5" { Write-Output "Effect: Half speed (slower)" }
+        "1.0" { Write-Output "Effect: Normal speed" }
+        "2.0" { Write-Output "Effect: Double speed (faster)" }
+        "3.0" { Write-Output "Effect: Triple speed (very fast)" }
+        default {
+            if ([double]$speedValue -gt 1.0) {
+                Write-Output "Effect: Faster speech"
+            } else {
+                Write-Output "Effect: Slower speech"
+            }
+        }
+    }
+}
+
+function Get-Speed {
+    Write-Output "---------------------------------------"
+    Write-Output "   Current Speech Speed Settings"
+    Write-Output "---------------------------------------"
+    Write-Output ""
+
+    if (Test-Path $MainSpeedFile) {
+        $mainSpeed = (Get-Content $MainSpeedFile | Where-Object { $_ -notmatch '^\s*#' -and $_.Trim() -ne '' } | Select-Object -Last 1).Trim()
+        Write-Output "Main voice: ${mainSpeed}x"
+    } else {
+        Write-Output "Main voice: 1.0x (default, normal speed)"
+    }
+
+    if (Test-Path $TargetSpeedFile) {
+        $targetSpeed = (Get-Content $TargetSpeedFile | Where-Object { $_ -notmatch '^\s*#' -and $_.Trim() -ne '' } | Select-Object -Last 1).Trim()
+        Write-Output "Target language: ${targetSpeed}x"
+    } else {
+        Write-Output "Target language: 0.5x (default, slower for learning)"
+    }
+
+    Write-Output ""
+    Write-Output "Scale: 0.5x=slower, 1.0x=normal, 2.0x=faster, 3.0x=very fast"
+    Write-Output "---------------------------------------"
+}
+
+switch -Regex ($Command) {
+    "^target$" {
+        Set-Speed -IsTarget $true -SpeedInput $Arg1
+    }
+    "^(get|status)$" {
+        Get-Speed
+    }
+    "^(normal|fast|slow|slower)$" {
+        Set-Speed -SpeedInput $Command
+    }
+    "^.*x$" {
+        Set-Speed -SpeedInput $Command
+    }
+    "^\d+\.?\d*$" {
+        Set-Speed -SpeedInput $Command
+    }
+    "^[+-]" {
+        Set-Speed -SpeedInput $Command
+    }
+    "^help$" {
+        Write-Output "Speech Speed Manager"
+        Write-Output ""
+        Write-Output "Usage:"
+        Write-Output "  speed-manager.ps1 <speed>          Set main voice speed"
+        Write-Output "  speed-manager.ps1 target <speed>   Set target language speed"
+        Write-Output "  speed-manager.ps1 get              Show current speeds"
+        Write-Output ""
+        Write-Output "Speed values: 0.5x, 1x, 2x, 3x, normal, slow, fast, faster"
+    }
+    default {
+        # Try as speed value
+        $parsed = Parse-SpeedValue $Command
+        if ($parsed -ne "ERROR") {
+            Set-Speed -SpeedInput $Command
+        } else {
+            Write-Output "Unknown command: $Command"
+            Write-Output "Usage: speed-manager.ps1 {get|target|<speed>}"
+            exit 1
+        }
+    }
+}

package/.claude/hooks-windows/verbosity-manager.ps1

@@ -0,0 +1,119 @@
+#
+# File: .claude/hooks-windows/verbosity-manager.ps1
+#
+# AgentVibes - Finally, your AI Agents can Talk Back!
+# Website: https://agentvibes.org
+# Copyright (c) 2025 Paul Preibisch
+# Licensed under the Apache License, Version 2.0
+
+param(
+    [Parameter(Position=0)]
+    [string]$Command = "info",
+    [Parameter(Position=1)]
+    [string]$Arg1 = ""
+)
+
+$ScriptDir = Split-Path -Parent $MyInvocation.MyCommand.Path
+$ClaudeDir = Split-Path -Parent $ScriptDir
+
+# Respect CLAUDE_PROJECT_DIR when set by MCP
+if ($env:CLAUDE_PROJECT_DIR) {
+    $ConfigClaudeDir = Join-Path $env:CLAUDE_PROJECT_DIR ".claude"
+} else {
+    $ConfigClaudeDir = $ClaudeDir
+}
+
+$VerbosityFile = Join-Path $ConfigClaudeDir "tts-verbosity.txt"
+$GlobalVerbosityFile = Join-Path $env:USERPROFILE ".claude\tts-verbosity.txt"
+
+function Get-Verbosity {
+    if (Test-Path $VerbosityFile) {
+        return (Get-Content $VerbosityFile -Raw).Trim()
+    }
+    if (Test-Path $GlobalVerbosityFile) {
+        return (Get-Content $GlobalVerbosityFile -Raw).Trim()
+    }
+    return "high"
+}
+
+function Set-Verbosity {
+    param([string]$Level)
+
+    if ($Level -notmatch '^(low|medium|high)$') {
+        Write-Output "Invalid verbosity level: $Level"
+        Write-Output "Valid options: low, medium, high"
+        exit 1
+    }
+
+    if (Test-Path $ConfigClaudeDir) {
+        Set-Content -Path $VerbosityFile -Value $Level -NoNewline
+        Write-Output "Verbosity set to: $Level (project-local)"
+    } else {
+        $globalDir = Split-Path -Parent $GlobalVerbosityFile
+        if (-not (Test-Path $globalDir)) { New-Item -ItemType Directory -Path $globalDir -Force | Out-Null }
+        Set-Content -Path $GlobalVerbosityFile -Value $Level -NoNewline
+        Write-Output "Verbosity set to: $Level (global)"
+    }
+
+    Write-Output ""
+    Write-Output "Verbosity levels:"
+    Write-Output "   LOW: Acknowledgments + Completions only"
+    Write-Output "   MEDIUM: + Major decisions and findings"
+    Write-Output "   HIGH: All reasoning (maximum transparency)"
+    Write-Output ""
+    Write-Output "Restart Claude Code for changes to take effect"
+}
+
+function Show-Info {
+    $currentLevel = Get-Verbosity
+
+    Write-Output "AgentVibes Verbosity Control"
+    Write-Output "------------------------------------"
+    Write-Output "Current level: $currentLevel"
+    Write-Output ""
+    Write-Output "Available levels:"
+    Write-Output ""
+    Write-Output "LOW (Minimal)"
+    Write-Output "  Acknowledgments only"
+    Write-Output "  Completions only"
+    Write-Output "  No reasoning spoken"
+    Write-Output ""
+    Write-Output "MEDIUM (Balanced)"
+    Write-Output "  Acknowledgments"
+    Write-Output "  Major decisions"
+    Write-Output "  Key findings"
+    Write-Output "  Completions"
+    Write-Output ""
+    Write-Output "HIGH (Maximum Transparency)"
+    Write-Output "  Acknowledgments"
+    Write-Output "  All reasoning"
+    Write-Output "  All decisions"
+    Write-Output "  All findings"
+    Write-Output "  Completions"
+    Write-Output ""
+    Write-Output "Usage:"
+    Write-Output "  verbosity-manager.ps1 get              Show current level"
+    Write-Output "  verbosity-manager.ps1 set low|medium|high  Change level"
+}
+
+switch ($Command) {
+    "get" {
+        Write-Output (Get-Verbosity)
+    }
+    "set" {
+        if (-not $Arg1) {
+            Write-Output "Error: Missing verbosity level"
+            Write-Output "Usage: verbosity-manager.ps1 set low|medium|high"
+            exit 1
+        }
+        Set-Verbosity $Arg1
+    }
+    { $_ -in "info", "" } {
+        Show-Info
+    }
+    default {
+        Write-Output "Unknown command: $Command"
+        Write-Output "Usage: verbosity-manager.ps1 {get|set|info} [level]"
+        exit 1
+    }
+}

package/.claude/hooks-windows/voice-manager-windows.ps1

@@ -6,7 +6,7 @@
 
 param(
     [Parameter(Position = 0)]
-    [ValidateSet('list', 'switch', 'get')]
+    [ValidateSet('list', 'list-simple', 'switch', 'get', 'replay')]
     [string]$Command = 'list',
 
     [Parameter(Position = 1)]
@@ -19,7 +19,7 @@ $VoiceSapiFile = "$ClaudeDir\tts-voice-sapi.txt"
 $VoicePiperFile = "$ClaudeDir\tts-voice-piper.txt"
 
 # Get active provider
-$ActiveProvider = "windows-sapi"
+$ActiveProvider = "sapi"
 if (Test-Path $ProviderFile) {
     $ActiveProvider = (Get-Content $ProviderFile -Raw).Trim()
 }
@@ -38,8 +38,35 @@ function Get-SAPIVoices {
     return $voices
 }
 
-# Get Piper voices
+# Get Piper voices (checks both global and project-local directories)
 function Get-PiperVoices {
+    $GlobalVoicesDir = "$env:USERPROFILE\.claude\piper-voices"
+    # Also check project-local .claude/piper-voices
+    $ScriptPath = Split-Path -Parent $MyInvocation.MyCommand.Path
+    $ProjectDir = Split-Path -Parent (Split-Path -Parent $ScriptPath)
+    $ProjectVoicesDir = Join-Path $ProjectDir ".claude\piper-voices"
+
+    $allVoices = @()
+
+    foreach ($VoicesDir in @($GlobalVoicesDir, $ProjectVoicesDir)) {
+        if (-not (Test-Path $VoicesDir)) {
+            continue
+        }
+
+        $onnxFiles = Get-ChildItem -Path $VoicesDir -Filter "*.onnx" -ErrorAction SilentlyContinue
+        foreach ($file in $onnxFiles) {
+            $name = $file.BaseName
+            if ($allVoices -notcontains $name) {
+                $allVoices += $name
+            }
+        }
+    }
+
+    return $allVoices
+}
+
+# Legacy wrapper for single-dir callers
+function Get-PiperVoicesLegacy {
     $VoicesDir = "$ClaudeDir\piper-voices"
 
     if (-not (Test-Path $VoicesDir)) {
@@ -80,11 +107,14 @@ function List-Voices {
     Write-Host ""
 
     # Piper voices
-    Write-Host "[PIPER] Piper (High Quality):" -ForegroundColor Green
+    $PiperExe = "$env:LOCALAPPDATA\Programs\Piper\piper.exe"
+    $piperInstalled = Test-Path $PiperExe
+    $piperLabel = if ($piperInstalled) { "[PIPER] Piper (High Quality):" } else { "[PIPER] Piper (NOT INSTALLED - run setup-windows.ps1):" }
+    Write-Host $piperLabel -ForegroundColor $(if ($piperInstalled) { "Green" } else { "Yellow" })
     $piperVoices = Get-PiperVoices
 
     if ($piperVoices.Count -eq 0) {
-        Write-Host "   (No voices downloaded - run setup-windows.ps1)" -ForegroundColor Gray
+        Write-Host "   (No voices downloaded - run download-piper-voices.ps1)" -ForegroundColor Gray
     }
     else {
         $piperVoices | ForEach-Object {
@@ -117,11 +147,11 @@ function Switch-Voice {
     $VoiceFile = ""
     $ValidVoices = @()
 
-    if ($ActiveProvider -eq "windows-sapi") {
+    if ($ActiveProvider -eq "sapi" -or $ActiveProvider -eq "windows-sapi") {
         $VoiceFile = $VoiceSapiFile
         $ValidVoices = Get-SAPIVoices
     }
-    elseif ($ActiveProvider -eq "windows-piper") {
+    elseif ($ActiveProvider -eq "piper" -or $ActiveProvider -eq "windows-piper") {
         $VoiceFile = $VoicePiperFile
         $ValidVoices = Get-PiperVoices
     }
@@ -144,7 +174,7 @@ function Switch-Voice {
 
 # Show current voice
 function Show-CurrentVoice {
-    $VoiceFile = if ($ActiveProvider -eq "windows-sapi") { $VoiceSapiFile } else { $VoicePiperFile }
+    $VoiceFile = if ($ActiveProvider -eq "sapi" -or $ActiveProvider -eq "windows-sapi") { $VoiceSapiFile } else { $VoicePiperFile }
     $CurrentVoice = Get-CurrentVoice $VoiceFile
 
     if ($CurrentVoice) {
@@ -161,6 +191,26 @@ switch ($Command) {
         List-Voices
     }
 
+    'list-simple' {
+        # Machine-parseable list for MCP server - one voice name per line
+        if ($ActiveProvider -eq "windows-sapi" -or $ActiveProvider -eq "sapi") {
+            $voices = Get-SAPIVoices
+            foreach ($v in $voices) { Write-Output $v }
+        }
+        elseif ($ActiveProvider -eq "windows-piper" -or $ActiveProvider -eq "piper") {
+            $voices = Get-PiperVoices
+            foreach ($v in ($voices | Sort-Object)) { Write-Output $v }
+        }
+        elseif ($ActiveProvider -eq "soprano") {
+            Write-Output "Soprano-1.1-80M"
+        }
+        else {
+            # Fallback: try Piper voices
+            $voices = Get-PiperVoices
+            foreach ($v in ($voices | Sort-Object)) { Write-Output $v }
+        }
+    }
+
     'switch' {
         if (-not $VoiceName) {
             Write-Host "[ERROR] Voice name required" -ForegroundColor Red
@@ -173,4 +223,38 @@ switch ($Command) {
     'get' {
         Show-CurrentVoice
     }
+
+    'replay' {
+        $n = if ($VoiceName) { [int]$VoiceName } else { 1 }
+        $AudioDir = Join-Path (Split-Path -Parent $ClaudeDir) ".claude\audio"
+        if (-not (Test-Path $AudioDir)) {
+            $AudioDir = Join-Path $ClaudeDir "audio"
+        }
+        # Find project-local audio dir first
+        $ScriptClaudeDir = Split-Path -Parent (Split-Path -Parent $MyInvocation.MyCommand.Path)
+        $ProjectAudioDir = Join-Path $ScriptClaudeDir "audio"
+        if (Test-Path $ProjectAudioDir) { $AudioDir = $ProjectAudioDir }
+
+        $recentFiles = Get-ChildItem -Path $AudioDir -Filter "tts-*.wav" -ErrorAction SilentlyContinue |
+            Sort-Object LastWriteTime -Descending | Select-Object -First 10
+
+        if (-not $recentFiles -or $recentFiles.Count -eq 0) {
+            Write-Output "No recent audio files found"
+            exit 1
+        }
+
+        if ($n -gt $recentFiles.Count) {
+            Write-Output "Only $($recentFiles.Count) recent files available (requested #$n)"
+            exit 1
+        }
+
+        $targetFile = $recentFiles[$n - 1]
+        Write-Output "Replaying: $($targetFile.Name)"
+
+        # Play using SoundPlayer
+        Add-Type -AssemblyName System.Media
+        $player = New-Object System.Media.SoundPlayer $targetFile.FullName
+        $player.PlaySync()
+        $player.Dispose()
+    }
 }