LLM-SLOP ERA WEB DESIGN BRUTALISM

(ns agency-engine.main
  (:require [clojure.edn :as edn]
            [clojure.java.io :as io]
            [clojure.java.shell :as shell]
            [clojure.string :as str])
  (:import (com.sun.net.httpserver HttpExchange HttpHandler HttpServer)
           (java.net InetSocketAddress)
           (java.nio.charset StandardCharsets)))

(defonce server* (atom nil))
(def repo-root (.getParentFile (io/file (System/getProperty "user.dir"))))
(def snapshot-path (io/file (System/getProperty "user.dir") ".cache" "repo-growth.edn"))

(def offerings
  [{:title "Research Systems"
    :body "Methodologically serious forecasting, uncertainty reduction, and decision surfaces tied to explicit datasets, baselines, and validation."}
   {:title "Operational Intelligence"
    :body "State models, traces, backoffice reality, runtime truth, and validation harnesses that keep systems legible under pressure."}
   {:title "Product And Agency Surfaces"
    :body "Landing pages, route families, internal doctrine, and client-facing artifacts bound back to the same operating core."}])

(def engagements
  [{:client "Quant Prospect" :phase "qualification" :next "dataset memo" :risk "false confidence before baseline discipline"}
   {:client "Ops Prospect" :phase "discovery" :next "runtime truth map" :risk "dashboard drift from operational state"}])

(def public-surfaces

#!/usr/bin/env bash
# Deploy tmuxdesk to fleet nodes via rsync
# Usage: ./deploy.sh [node-name]  (omit for all nodes)
#        ./deploy.sh --dry-run     (preview what would sync)
set -euo pipefail

FLEET_CONF="$(dirname "$0")/conf/fleet.conf"
SRC_DIR="$(cd "$(dirname "$0")" && pwd)"
# shellcheck disable=SC2088
# tilde expands on remote via rsync/ssh
DEST="~/.tmux/tmuxdesk"
DRY_RUN=""

[[ "${1:-}" == "--dry-run" ]] && { DRY_RUN="--dry-run"; shift; }

deploy_node() {
  local name="$1" ip="$2"
  echo "→ deploying to ${name} (${ip})..."
  rsync -az --delete $DRY_RUN \
    --exclude='node_modules' \
    --exclude='.shadow-cljs' \
    --exclude='web/public/js' \
    --exclude='state' \
    --exclude='.git' \
    "$SRC_DIR/" "${ip}:${DEST}/"

{:tasks
 {build {:doc "Release build the web app"
         :task (shell "npm run build")}

  dev {:doc "Run shadow-cljs watch server"
       :task (shell "npm run dev")}

  lint {:doc "Run shellcheck on shell scripts"
        :task (shell "bash -lc 'shellcheck bin/*.sh'")}

  test-shell {:doc "Run shell contract tests"
              :task (do
                      (shell "bash test/bridge_contract_test.sh")
                      (shell "bash test/mesh_status_test.sh"))}

  test {:doc "Run repo verification suite"
        :task (do
                (run 'lint)
                (run 'test-shell)
                (run 'build))}

  demo-state {:doc "Seed local demo state files into ./state"
              :task (shell "./bin/demo-state.sh state conf/fleet.conf")}

  bridge {:doc "Write web/public/data/fleet-state.json from local state"
          :task (shell "./bin/state-to-json.sh conf/fleet.conf state web/public/data live")}

# State File Format

## Per-node state file

Written by `mesh-announce.sh`, read by `mesh-status.sh` and `state-to-json.sh`.

**Location:** `$STATE_DIR/<node-name>` (e.g. `state/hyle`)

**Format:** single line, space-delimited:

```
<name> <sessions> <attached> <load> <timestamp>
```

| Field | Type | Example | Description |
|-------|------|---------|-------------|
| name | string | hyle | Node hostname |
| sessions | int | 3 | tmux session count |
| attached | int | 1 | Number of attached clients (0 = detached) |
| load | float | 1.23 | 1-minute load average |
| timestamp | int | 1712345678 | Unix epoch when state was captured |

## Aggregated JSON

Written by `state-to-json.sh`, served as static file for the web layer.

#!/usr/bin/env python3
import json
import sys
from urllib.request import urlopen

def fetch(url):
    with urlopen(url) as resp:
        return resp.read().decode("utf-8")

def main():
    base = sys.argv[1].rstrip("/")
    health = json.loads(fetch(base + "/api/health"))
    offerings = json.loads(fetch(base + "/api/offerings"))
    engagements = json.loads(fetch(base + "/api/engagements"))
    root = fetch(base + "/")
    atlas = fetch(base + "/architectural-atlas")
    patterns = fetch(base + "/atlas-patterns")
    case_study = fetch(base + "/atlas-case-study")
    backoffice = fetch(base + "/backoffice")
    gallery = fetch(base + "/gallery")
    growth = fetch(base + "/repo-growth")
    hydra = fetch(base + "/hydra-evaluator")
    mvp2 = fetch(base + "/mvp-2")
    brutalis = fetch(base + "/brutalis")
    isms = fetch(base + "/isms")
    llm_slots = fetch(base + "/llm-slots")

(ns foundations-folio.main)

(defn church-succ [n]
  (inc n))

(defn -main [& _args]
  (println "foundations-folio scaffold")
  (println "succ(3) =" (church-succ 3)))

# Handoff: tmuxdesk codex

## What this is

A distributed tmux fleet management project with two layers:
1. **Shell** (`bin/`, `conf/`) — tmux configs, mesh status scripts, deploy
2. **Web** (`web/`) — ClojureScript/Reagent SPA, fleet constellation visualization

Reconstructed from a terminal session capture (`init` file, now deleted) and iterated over multiple passes.

## Current state

**Working:**
- Full project builds: `nix develop -c npm run build` → 0 CLJS warnings, 0 shellcheck issues
- Shadow-cljs dev server on port 9823
- Hash-based routing (`#/fleet`, `#/mesh`, etc.) with error handling
- Fleet status bar with live/simulated indicator
- SVG constellation with computed (not hardcoded) node positions
- Data bridge: `bin/state-to-json.sh` reads shell state files → writes `web/public/data/fleet-state.json` → SPA fetches it every 10s
- Simulated fallback when no live data (random walk drift)
- Empty state panels when fleet is unconfigured
- Fleet summary panel (active/idle/quiet counts, top load)
- Caddy config for subdomain deploy (`conf/Caddyfile`)
- Deploy script with `--dry-run` and post-deploy health check

**Not working / not real yet:**

# Agency Engine

Thicker Clojure application scaffold for:

- public agency website
- backoffice
- dispatch/orchestration
- validation and proof surfaces

## Intended Namespaces

- `agency-engine.web`
- `agency-engine.backoffice`
- `agency-engine.dispatch`
- `agency-engine.validate`
- `agency-engine.context`
- `agency-engine.reconcile`

## Status

Scaffold only.