novelws 4.0.0 → 5.0.0

package/templates/resources/scripts/powershell/check-writing-state.ps1

@@ -1,486 +0,0 @@
-# 检查写作状态脚本
-# 用于 /write 命令
-
-param(
-    [switch]$Json
-)
-
-# ============================================
-# Phase 1: 文件时间戳缓存
-# ============================================
-#
-# 缓存值约定:
-# - LastWriteTime 对象: 文件存在，值为修改时间
-# - $null: 文件不存在（预加载时已确认）
-# - 未缓存: 键不存在于 HashTable 中
-
-# 缓存存储（HashTable）
-$script:FileMTimeCache = @{}
-$script:PreloadCompleted = $false
-
-# ============================================
-# Phase 2: 资源去重机制
-# ============================================
-#
-# 用于避免在单次脚本执行中重复检查同一资源文件
-
-# Phase 2: 资源去重 HashTable
-$script:loadedResourcesSet = @{}
-
-# Phase 2: 检查资源是否已加载
-# 参数: Path (string) - 资源路径
-# 返回: $true（已加载），$false（未加载）
-function Is-ResourceLoaded {
-    param([string]$path)
-    return $script:loadedResourcesSet.ContainsKey($path)
-}
-
-# Phase 2: 标记资源为已加载
-# 参数: Path (string) - 资源路径
-function Mark-ResourceLoaded {
-    param([string]$path)
-    $script:loadedResourcesSet[$path] = $true
-}
-
-# ============================================
-# Phase 3: 缓存文件清理机制
-# ============================================
-#
-# 清理超过 24 小时的旧缓存文件，避免磁盘空间浪费
-# 防御性设计：缓存目录不存在时直接返回
-
-function Cleanup-OldCache {
-    $cacheDir = Join-Path $ProjectRoot ".claude" ".cache"
-
-    # 缓存目录不存在，无需清理
-    if (-not (Test-Path $cacheDir)) {
-        return
-    }
-
-    # 删除超过 24 小时的缓存文件
-    $cutoffTime = (Get-Date).AddDays(-1)
-    Get-ChildItem -Path $cacheDir -Filter "*.json" -File -ErrorAction SilentlyContinue |
-        Where-Object { $_.LastWriteTime -lt $cutoffTime } |
-        Remove-Item -Force -ErrorAction SilentlyContinue
-
-    # 删除空目录
-    Get-ChildItem -Path $cacheDir -Directory -ErrorAction SilentlyContinue |
-        Where-Object { (Get-ChildItem $_.FullName -ErrorAction SilentlyContinue).Count -eq 0 } |
-        Remove-Item -Force -ErrorAction SilentlyContinue
-}
-
-# 预加载文件修改时间到缓存
-# 参数: FilePathList (string[]) - 文件路径列表
-# 说明: 预加载策略避免多次磁盘访问
-function Preload-FileMTimes {
-    param(
-        [Parameter(Mandatory=$true)]
-        [string[]]$FilePathList
-    )
-
-    foreach ($filePath in $FilePathList) {
-        # 文件不存在：记录为 $null
-        if (-not (Test-Path $filePath -PathType Leaf)) {
-            $script:FileMTimeCache[$filePath] = $null
-            continue
-        }
-
-        # 读取文件时间戳
-        try {
-            $fileInfo = Get-Item $filePath -ErrorAction Stop
-            $script:FileMTimeCache[$filePath] = $fileInfo.LastWriteTime
-        } catch {
-            # Get-Item 失败：记录为空 DateTime
-            $script:FileMTimeCache[$filePath] = [DateTime]::MinValue
-        }
-    }
-}
-
-# 获取文件修改时间（从缓存）
-# 参数: FilePath (string) - 文件路径
-# 返回: DateTime 对象，或 $null（文件不存在），或 MinValue（读取失败）
-function Get-FileMTimeFromCache {
-    param(
-        [Parameter(Mandatory=$true)]
-        [string]$FilePath
-    )
-
-    if ($script:FileMTimeCache.ContainsKey($FilePath)) {
-        return $script:FileMTimeCache[$FilePath]
-    }
-
-    # 未缓存：返回 MinValue
-    return [DateTime]::MinValue
-}
-
-# 检查文件是否存在（基于缓存）
-# 参数: FilePath (string) - 文件路径
-# 返回: $true（文件存在），$false（文件不存在或未缓存）
-function Test-FileExistsCached {
-    param(
-        [Parameter(Mandatory=$true)]
-        [string]$FilePath
-    )
-
-    $mtime = Get-FileMTimeFromCache $FilePath
-
-    # $null: 文件不存在
-    # MinValue: Get-Item 失败或未缓存
-    # 其他 DateTime: 文件存在
-    return ($null -ne $mtime -and $mtime -ne [DateTime]::MinValue)
-}
-
-# 导入通用函数
-. "$PSScriptRoot\common.ps1"
-
-# 获取项目根目录
-$ProjectRoot = Get-ProjectRoot
-Set-Location $ProjectRoot
-
-# 获取当前故事
-$StoryName = Get-ActiveStory
-$StoryDir = Join-Path "stories" $StoryName
-
-# 预加载文件时间戳（性能优化）
-if (-not $script:PreloadCompleted) {
-    $preloadFileList = @(
-        # 知识库文件
-        (Join-Path $ProjectRoot "resources/craft/dialogue.md")
-        (Join-Path $ProjectRoot "resources/craft/scene-structure.md")
-        (Join-Path $ProjectRoot "resources/craft/character-arc.md")
-        (Join-Path $ProjectRoot "resources/craft/pacing.md")
-        (Join-Path $ProjectRoot "resources/craft/show-not-tell.md")
-        # Skill 文件
-        (Join-Path $ProjectRoot ".claude/skills/writing-techniques/dialogue-techniques/SKILL.md")
-        (Join-Path $ProjectRoot ".claude/skills/writing-techniques/scene-structure/SKILL.md")
-        (Join-Path $ProjectRoot ".claude/skills/writing-techniques/character-arc/SKILL.md")
-        (Join-Path $ProjectRoot ".claude/skills/writing-techniques/pacing-control/SKILL.md")
-        (Join-Path $ProjectRoot ".claude/skills/quality-assurance/consistency-checker/SKILL.md")
-        # 规格文件
-        (Join-Path $StoryDir "specification.md")
-    )
-
-    Preload-FileMTimes -FilePathList $preloadFileList
-    $script:PreloadCompleted = $true
-}
-
-# Phase 3: 清理旧缓存（轻量级，不影响性能）
-Cleanup-OldCache
-
-# ==================== 资源加载报告生成函数 ====================
-
-function Generate-LoadReport {
-    param (
-        [string]$StoryDir
-    )
-
-    # Phase 3: 性能监控
-    $stopwatch = [System.Diagnostics.Stopwatch]::StartNew()
-
-    $specFile = Join-Path $StoryDir "specification.md"
-    $warnings = @()
-
-    # 默认加载所有资源
-    $knowledgeBaseFiles = @(
-        "resources/craft/dialogue.md",
-        "resources/craft/scene-structure.md",
-        "resources/craft/character-arc.md",
-        "resources/craft/pacing.md",
-        "resources/craft/show-not-tell.md"
-    )
-
-    $skillsFiles = @(
-        ".claude/skills/writing-techniques/dialogue-techniques",
-        ".claude/skills/writing-techniques/scene-structure",
-        ".claude/skills/writing-techniques/character-arc",
-        ".claude/skills/writing-techniques/pacing-control",
-        ".claude/skills/quality-assurance/consistency-checker"
-    )
-
-    $disabledResources = @()
-    $hasConfig = $false
-
-    if (Test-Path $specFile) {
-        $content = Get-Content $specFile -Raw
-        if ($content -match "resource-loading:") {
-            $hasConfig = $true
-        }
-    }
-
-    # 检查文件存在性（使用缓存 + Phase 2: 资源去重）
-    foreach ($kb in $knowledgeBaseFiles) {
-        # Phase 2: 资源去重检查
-        if (Is-ResourceLoaded $kb) {
-            continue
-        }
-
-        # 标记为已加载
-        Mark-ResourceLoaded $kb
-
-        # 检查文件是否存在（使用完整路径）
-        $fullPath = Join-Path $ProjectRoot $kb
-        if (-not (Test-FileExistsCached $fullPath)) {
-            $warnings += "知识库文件不存在: $kb"
-        }
-    }
-
-    foreach ($skill in $skillsFiles) {
-        $skillPath = "$skill/SKILL.md"
-
-        # Phase 2: 资源去重检查
-        if (Is-ResourceLoaded $skillPath) {
-            continue
-        }
-
-        # 标记为已加载
-        Mark-ResourceLoaded $skillPath
-
-        # 检查文件是否存在（使用完整路径）
-        $fullPath = Join-Path $ProjectRoot $skillPath
-        if (-not (Test-FileExistsCached $fullPath)) {
-            $warnings += "Skill 文件不存在: $skillPath"
-        }
-    }
-
-    # Phase 2: 检测缓存命中（基于 specification.md 是否已被缓存加载且有效）
-    # 仅当文件在缓存中且成功读取时，才视为"缓存命中"
-    # 缓存语义: $null = 文件不存在, MinValue = stat 失败, DateTime = 成功读取
-    $cached = $script:FileMTimeCache.ContainsKey($specFile) -and
-              $script:FileMTimeCache[$specFile] -ne $null -and
-              $script:FileMTimeCache[$specFile] -ne [DateTime]::MinValue
-    $cacheHint = "此报告基于缓存生成（specification.md 未修改）。AI 可复用本次会话中已加载的资源。"
-
-    # 生成 JSON
-    $report = @{
-        status = "ready"
-        timestamp = (Get-Date).ToUniversalTime().ToString("yyyy-MM-ddTHH:mm:ssZ")
-        has_config = $hasConfig
-        cached = $cached
-        session_cache_enabled = $true
-        resources = @{
-            "knowledge-base" = $knowledgeBaseFiles
-            skills = $skillsFiles
-            disabled = $disabledResources
-        }
-        warnings = $warnings
-    }
-
-    # 仅在缓存命中时添加 cache_hint
-    if ($cached) {
-        $report.cache_hint = $cacheHint
-    }
-
-    # Phase 3: 性能指标
-    $stopwatch.Stop()
-    $report.performance = @{
-        generation_time_ms = $stopwatch.ElapsedMilliseconds
-        cache_hit = $cached
-    }
-
-    return $report | ConvertTo-Json -Depth 10
-}
-
-# JSON 模式
-if ($Json) {
-    try {
-        $report = Generate-LoadReport -StoryDir $StoryDir
-        Write-Output $report
-        exit 0
-    } catch {
-        Write-Error "生成资源加载报告失败: $_"
-        exit 1
-    }
-}
-
-Write-Host "写作状态检查"
-Write-Host "============"
-Write-Host "当前故事：$StoryName"
-Write-Host ""
-
-# 检查方法论文档
-function Test-MethodologyDocs {
-    $missing = @()
-
-    if (-not (Test-Path "resources\memory\constitution.md")) {
-        $missing += "宪法"
-    }
-    if (-not (Test-Path "$StoryDir\specification.md")) {
-        $missing += "规格"
-    }
-    if (-not (Test-Path "$StoryDir\creative-plan.md")) {
-        $missing += "计划"
-    }
-    if (-not (Test-Path "$StoryDir\tasks.md")) {
-        $missing += "任务"
-    }
-
-    if ($missing.Count -gt 0) {
-        Write-Host "⚠️ 缺少以下基准文档：" -ForegroundColor Yellow
-        foreach ($doc in $missing) {
-            Write-Host "  - $doc"
-        }
-        Write-Host ""
-        Write-Host "建议按照七步方法论完成前置步骤："
-        Write-Host "1. /constitution - 创建创作宪法"
-        Write-Host "2. /specify - 定义故事规格"
-        Write-Host "3. /clarify - 澄清关键决策"
-        Write-Host "4. /plan - 制定创作计划"
-        Write-Host "5. /tasks - 生成任务清单"
-        return $false
-    }
-
-    Write-Host "✅ 方法论文档完整" -ForegroundColor Green
-    return $true
-}
-
-# 检查待写作任务
-function Test-PendingTasks {
-    $tasksFile = "$StoryDir\tasks.md"
-
-    if (-not (Test-Path $tasksFile)) {
-        Write-Host "❌ 任务文件不存在" -ForegroundColor Red
-        return $false
-    }
-
-    # 统计任务状态
-    $content = Get-Content $tasksFile -Raw
-    $pending = ([regex]::Matches($content, '^- \[ \]', [System.Text.RegularExpressions.RegexOptions]::Multiline)).Count
-    $inProgress = ([regex]::Matches($content, '^- \[~\]', [System.Text.RegularExpressions.RegexOptions]::Multiline)).Count
-    $completed = ([regex]::Matches($content, '^- \[x\]', [System.Text.RegularExpressions.RegexOptions]::Multiline)).Count
-
-    Write-Host ""
-    Write-Host "任务状态："
-    Write-Host "  待开始：$pending"
-    Write-Host "  进行中：$inProgress"
-    Write-Host "  已完成：$completed"
-
-    if ($pending -eq 0 -and $inProgress -eq 0) {
-        Write-Host ""
-        Write-Host "🎉 所有任务已完成！" -ForegroundColor Green
-        Write-Host "建议运行 /analyze 进行综合验证"
-        return $true
-    }
-
-    # 显示下一个待写作任务
-    Write-Host ""
-    Write-Host "下一个写作任务："
-    $lines = $content -split "`n"
-    foreach ($line in $lines) {
-        if ($line -match '^- \[ \]') {
-            Write-Host $line
-            break
-        }
-    }
-
-    return $true
-}
-
-# 检查已完成内容
-function Test-CompletedContent {
-    $contentDir = "$StoryDir\content"
-
-    if (Test-Path $contentDir) {
-        $mdFiles = Get-ChildItem "$contentDir\*.md" -ErrorAction SilentlyContinue
-        $chapterCount = $mdFiles.Count
-
-        if ($chapterCount -gt 0) {
-            Write-Host ""
-            Write-Host "已完成章节：$chapterCount"
-            Write-Host "最近写作："
-
-            $recentFiles = $mdFiles |
-                Sort-Object LastWriteTime -Descending |
-                Select-Object -First 3
-
-            foreach ($file in $recentFiles) {
-                Write-Host "  - $($file.Name)"
-            }
-        }
-    }
-    else {
-        Write-Host ""
-        Write-Host "尚未开始写作"
-    }
-}
-
-# ==================== 新增：资源加载检查函数 ====================
-
-function Check-KnowledgeBaseAvailable {
-    $missing = @()
-    $available = @()
-
-    $craftFiles = @(
-        "resources/craft/dialogue.md",
-        "resources/craft/scene-structure.md",
-        "resources/craft/character-arc.md",
-        "resources/craft/pacing.md",
-        "resources/craft/show-not-tell.md"
-    )
-
-    foreach ($file in $craftFiles) {
-        $fullPath = Join-Path $ProjectRoot $file
-
-        # 使用缓存检查文件是否存在
-        if (Test-FileExistsCached $fullPath) {
-            $available += $file
-        } else {
-            $missing += $file
-        }
-    }
-
-    if ($missing.Count -gt 0) {
-        Write-Host "⚠️ 缺少以下 knowledge-base 文件："
-        foreach ($file in $missing) {
-            Write-Host "  - $file"
-        }
-        return $false
-    }
-
-    Write-Host "✅ Knowledge-base 文件完整 ($($available.Count) 个)"
-    return $true
-}
-
-function Check-SkillsAvailable {
-    $missing = @()
-    $available = @()
-
-    $skillDirs = @(
-        ".claude/skills/writing-techniques/dialogue-techniques",
-        ".claude/skills/writing-techniques/scene-structure",
-        ".claude/skills/writing-techniques/character-arc",
-        ".claude/skills/writing-techniques/pacing-control"
-    )
-
-    foreach ($dir in $skillDirs) {
-        $skillPath = Join-Path $ProjectRoot "$dir/SKILL.md"
-
-        # 使用缓存检查文件是否存在
-        if (Test-FileExistsCached $skillPath) {
-            $available += $dir
-        } else {
-            $missing += $dir
-        }
-    }
-
-    if ($missing.Count -gt 0) {
-        Write-Host "⚠️ 缺少以下 skills："
-        foreach ($dir in $missing) {
-            Write-Host "  - $dir/SKILL.md"
-        }
-        return $false
-    }
-
-    Write-Host "✅ Skills 完整 ($($available.Count) 个)"
-    return $true
-}
-
-# 主流程
-if (-not (Test-MethodologyDocs)) {
-    exit 1
-}
-
-Test-PendingTasks | Out-Null
-Test-CompletedContent
-
-Write-Host ""
-Write-Host "准备就绪，可以开始写作"

package/templates/resources/scripts/powershell/clarify-story.ps1

@@ -1,107 +0,0 @@
-param(
-    [switch]$Json,
-    [switch]$PathsOnly
-)
-
-# 澄清故事大纲的支撑脚本
-# 用于 /clarify 命令，扫描并返回当前故事路径
-
-Set-StrictMode -Version Latest
-$ErrorActionPreference = "Stop"
-
-# Get script directory
-$ScriptDir = Split-Path -Parent $MyInvocation.MyCommand.Path
-
-# Source common functions
-. "$ScriptDir\common.ps1"
-
-# Get project root
-$ProjectRoot = Get-ProjectRoot
-Set-Location $ProjectRoot
-
-# Find the current story directory
-$StoriesDir = "stories"
-if (-not (Test-Path $StoriesDir -PathType Container)) {
-    if ($Json) {
-        Write-Output '{"error": "No stories directory found"}'
-    } else {
-        Write-Error "错误：未找到 stories 目录，请先运行 /specify 创建故事规格"
-    }
-    exit 1
-}
-
-# Get the latest story
-$StoryDirs = Get-ChildItem -Path $StoriesDir -Directory | Sort-Object Name -Descending
-if ($StoryDirs.Count -eq 0) {
-    if ($Json) {
-        Write-Output '{"error": "No story found"}'
-    } else {
-        Write-Error "错误：未找到故事，请先运行 /specify 创建故事规格"
-    }
-    exit 1
-}
-
-$StoryDir = $StoryDirs[0]
-$StoryName = $StoryDir.Name
-
-# Find story file (新格式 specification.md)
-$StoryFile = Join-Path $StoryDir.FullName "specification.md"
-
-if (-not (Test-Path $StoryFile -PathType Leaf)) {
-    if ($Json) {
-        Write-Output '{"error": "Story file not found (specification.md required)"}'
-    } else {
-        Write-Error "错误：未找到故事文件 specification.md"
-    }
-    exit 1
-}
-
-# Check if clarification already exists
-$ClarificationExists = $false
-$StoryContent = Get-Content $StoryFile -Raw
-if ($StoryContent -match "## 澄清记录") {
-    $ClarificationExists = $true
-}
-
-# Count existing clarification sessions
-$ClarificationCount = 0
-if ($ClarificationExists) {
-    $matches = [regex]::Matches($StoryContent, "### 澄清会话")
-    $ClarificationCount = $matches.Count
-}
-
-# Convert paths to forward slashes for JSON
-$StoryFilePath = $StoryFile.Replace('\', '/')
-$StoryDirPath = $StoryDir.FullName.Replace('\', '/')
-$ProjectRootPath = $ProjectRoot.Replace('\', '/')
-
-# Output in JSON format if requested
-if ($Json) {
-    if ($PathsOnly) {
-        # Minimal output for command template
-        $output = @{
-            STORY_PATH = $StoryFilePath
-            STORY_NAME = $StoryName
-            STORY_DIR = $StoryDirPath
-        }
-    } else {
-        # Full output for analysis
-        $output = @{
-            STORY_PATH = $StoryFilePath
-            STORY_NAME = $StoryName
-            STORY_DIR = $StoryDirPath
-            CLARIFICATION_EXISTS = $ClarificationExists
-            CLARIFICATION_COUNT = $ClarificationCount
-            PROJECT_ROOT = $ProjectRootPath
-        }
-    }
-    Write-Output (ConvertTo-Json $output -Compress)
-} else {
-    Write-Output "找到故事：$StoryName"
-    Write-Output "文件路径：$StoryFile"
-    if ($ClarificationExists) {
-        Write-Output "已有澄清会话：$ClarificationCount 次"
-    } else {
-        Write-Output "尚未进行过澄清"
-    }
-}

package/templates/resources/scripts/powershell/common.ps1

@@ -1,36 +0,0 @@
-#!/usr/bin/env pwsh
-# 公用函数（PowerShell）
-
-Set-StrictMode -Version Latest
-$ErrorActionPreference = 'Stop'
-
-function Get-ProjectRoot {
-  $current = (Get-Location).Path
-  while ($true) {
-    $cfg = Join-Path $current "resources/config/config.json"
-    if (Test-Path $cfg) { return $current }
-    $parent = Split-Path $current -Parent
-    if (-not $parent -or $parent -eq $current) { break }
-    $current = $parent
-  }
-  throw "未找到项目根目录（缺少 resources/config/config.json）"
-}
-
-function Get-CurrentStoryDir {
-  $root = Get-ProjectRoot
-  $stories = Join-Path $root "stories"
-  if (-not (Test-Path $stories)) { return $null }
-  $dirs = Get-ChildItem -Path $stories -Directory | Sort-Object LastWriteTime -Descending
-  if ($dirs.Count -gt 0) { return $dirs[0].FullName }
-  return $null
-}
-
-function Get-ActiveStory {
-  $storyDir = Get-CurrentStoryDir
-  if ($storyDir) {
-    return Split-Path $storyDir -Leaf
-  }
-  # 如果没有故事，返回默认名称
-  return "story-$(Get-Date -Format 'yyyyMMdd')"
-}
-