#!/usr/bin/env nu

# Project the Slidev decks onto the site as real HTML — text, not pixels.
#
# The site's deck pages used to be a hand-written carousel of exported PNGs: the words of
# every slide were an IMAGE of words. Nothing indexed them, no glossary tooltip could
# reach them, no screen reader read them, nobody could select or translate them, and the
# page drifted from the source the moment a slide changed.
#
# The deck is NOT re-parsed. Slidev's markdown is not standard markdown, and its meaning
# does not live in the markdown anyway — it lives in a compiled bundle of UnoCSS
# utilities, theme rules and <style scoped> blocks. Re-implementing that is re-implementing
# a renderer. So Slidev renders, and we capture what it produced (its /print route, the
# same one `slidev export` drives) and re-home it in the site.
#
# Usage:
#   nu scripts/decks/gen-deck-pages.nu                       # build + project + gate
#   nu scripts/decks/gen-deck-pages.nu --dry-run             # project nothing, report
#   nu scripts/decks/gen-deck-pages.nu check --url <page>    # gate a served page

def outreach [] { $env.FILE_PWD | path dirname | path dirname }

def presentation [] { [(outreach) "presentation"] | path join }

# Slidev must have produced a dist/ — the capture reads the browser's applied CSS from it,
# not the source. Without a build there is nothing to project.
def ensure-build [] {
  let dist = [(presentation) "dist" "index.html"] | path join
  if not ($dist | path exists) {
    print $"(ansi yellow)no hay build; ejecutando 'pnpm build' en presentation/(ansi reset)"
    cd (presentation)
    ^pnpm build
  }
}

def main [--dry-run] {
  ensure-build
  let flags = if $dry_run { ["--dry-run"] } else { [] }
  let script = [(outreach) "scripts" "decks" "lib" "project.mjs"] | path join

  cd (presentation)
  let out = (^node $script ...$flags | complete)
  if $out.exit_code != 0 {
    print $out.stdout
    print $"(ansi red)($out.stderr)(ansi reset)"
    error make { msg: "la proyección del deck falló" }
  }
  let report = ($out.stdout | from json)
  print ($report.decks | select id slides css assets fuentes | table)

  if $dry_run { return }

  for d in $report.decks {
    check-artifact $d.id
  }
  print $"(ansi green)decks proyectados.(ansi reset) Verifica la PÁGINA servida con: nu scripts/decks/gen-deck-pages.nu check --url <url>"
}

# Gate the CSS artifact: containment, fidelity, no inbound leak, glossary decoration.
def check-artifact [id: string] {
  let script = [(outreach) "scripts" "decks" "gates" "artifact.mjs"] | path join
  cd (presentation)
  let r = (^node $script $id | complete)
  print $r.stdout
  if $r.exit_code != 0 { error make { msg: $"puertas del artefacto FALLAN para ($id)" } }
}

# Gate the page as served. Verifying the file proves nothing: the site's content pipeline
# sits between this generator and the reader.
def "main check" [--url: string] {
  if ($url | is-empty) { error make { msg: "check necesita --url <url-de-la-pagina>" } }
  let script = [(outreach) "scripts" "decks" "gates" "served.mjs"] | path join
  cd (presentation)
  let r = (^node $script $url | complete)
  print $r.stdout
  if $r.exit_code != 0 {
    print $"(ansi red)($r.stderr)(ansi reset)"
    error make { msg: "puertas de la página servida FALLAN" }
  }
  print $"(ansi green)puertas de la página servida: OK(ansi reset)"
}