;; scittle-run filter + 行の内訳 over the embedded industry rows (no build step).
;; marketplace-page.cljs と同じ形。ここが答えるのは「どの ISIC コードが、
;; どの状態で、どれだけのスコアか」だけで、数は 1 つも計算しない
;; （全部 scripts/generate-industries.cljs が埋め込んだ値をそのまま出す。
;; bp → % の割り算だけは表示のためにここでやる）。
(ns industries.page)
;; ── 言語 ───────────────────────────────────────────────────────────────
;; このページの markup は生成時に訳されている（cloud-itonami.site.i18n）が、
;; **行と内訳はここが実行時に組み立てる**ので、その語はここに要る。
;; 文書が `` で名乗っている言語をそのまま読む —— ページ本文と
;; 表の中で言語が食い違うのが、この作業が直している当の欠陥なので、
;; locale の出所は 1 つにする。英語が既定で、未知の言語は英語に落ちる。
(def ^:private messages
{"en" {:implemented "Implemented"
:spec "Spec only"
:unmeasured "Not measured"
:unmeasured-title "the maturity scan did not include this repo (this is not a score of zero)"
:tier-axes "Seven axes (straight from observation)"
:tier-folded "Folded values"
:dt-maturity "maturity"
:dt-effective "after propagation"
:dt-kind "kind"
:dt-layer "layer"
:note-folded (str "Maturity weights the seven axes, and the weights are a judgement "
"(they differ by kind of repo). Post-propagation and band are model "
"output, not observation.")
:note-unmeasured (str "This repo is not in the maturity scan, so there is no breakdown. "
"That is not-measured, not a score of zero "
"(it is excluded from the mean as well).")
:axis-substrate "implementation size"
:axis-test "tests"
:axis-governed "governor parts"
:axis-ingest "sources cited"
:axis-docs "documentation"
:axis-surface "public surface"
:axis-fresh "recency"}
"ja" {:implemented "実装済み"
:spec "spec のみ"
:unmeasured "未計測"
:unmeasured-title "maturity scan にこの repo が無い（スコア 0 ではない）"
:tier-axes "7 軸（観測から直接）"
:tier-folded "畳んだ値"
:dt-maturity "成熟度"
:dt-effective "依存伝播後"
:dt-kind "種類"
:dt-layer "層"
:note-folded (str "成熟度は 7 軸に重みを掛けたもので、重みは判断"
"（repo の種類ごとに違う）。依存伝播後と band はモデルの"
"出力で、観測ではありません。")
:note-unmeasured (str "この repo は maturity scan に入っていないので"
"内訳がありません。スコア 0 ではなく未計測です"
"（平均の分母からも外してあります）。")
:axis-substrate "実装量"
:axis-test "テスト"
:axis-governed "governor 部品"
:axis-ingest "出典引用"
:axis-docs "文書"
:axis-surface "公開面"
:axis-fresh "更新の新しさ"}})
(def ^:private t
(let [tag (.toLowerCase (or (.getAttribute js/document.documentElement "lang") "en"))]
(merge (get messages "en") (get messages tag))))
(def entries
(js->clj (js/JSON.parse (.-textContent (js/document.getElementById "industries-data")))
:keywordize-keys true))
(def by-id (into {} (map (juxt :id identity)) entries))
(defn- esc [s]
(-> (str s) (.replaceAll "&" "&") (.replaceAll "<" "<") (.replaceAll ">" ">")))
(defn- state-label [e]
(if (= "implemented" (:state e)) (:implemented t) (:spec t)))
;; **未計測を 0 と書かない。** own が nil の行は「—」+ muted で出す。
(defn- score-cell [e]
(if (some? (:own e))
(str "| " (esc (:own e)) " | ")
(str ""
(esc (:unmeasured t)) " | ")))
;; ── 内訳 ───────────────────────────────────────────────────────────────
;; 軸の並びは itonami-maturity の重みテーブルと同じ順。日本語の見出しは
;; ページ本文の「読み方」と同じ語を使う（同じものを 2 通りに呼ばない）。
(def axis-labels
[[:substrate (:axis-substrate t)] [:test (:axis-test t)]
[:governed (:axis-governed t)] [:ingest (:axis-ingest t)]
[:docs (:axis-docs t)] [:surface (:axis-surface t)] [:fresh (:axis-fresh t)]])
(defn- meter-html
"section カードと同じ .meter/.track/.fill を使う。同じ量を 2 通りの見た目で
出すと、別の指標に見える。bp(0-10000) → %。"
[label bp]
(let [pct (js/Math.round (/ bp 100))]
(str "" (esc label)
"" pct "%
"
;; 0% でも 1% 幅は描く（track の中に何も無いと『未計測』と紛れる）。
;; 未計測の行はそもそもこの関数を通らない。
"
" (apply str (interpose " " ls)) "
")
"")))
(defn- detail-html [e]
(str
""
(if (:axes e)
(str
""
" " (esc (:tier-axes t)) " "
" "
(apply str (map (fn [[k label]] (meter-html label (get (:axes e) k 0))) axis-labels))
" "
" " (esc (:tier-folded t)) " "
"- " (esc (:dt-maturity t)) "
- " (esc (:own e)) "
"
"- " (esc (:dt-effective t)) "
- " (esc (or (:effective e) "—")) "
"
"- band
- " (esc (or (:band e) "—")) "
"
"- " (esc (:dt-kind t)) "
- " (esc (or (:kind e) "—")) "
"
"- " (esc (:dt-layer t)) "
- " (esc (or (:layer e) "—")) "
"
" "
;; note は を含むので esc しない（この 2 本だけは markup）。
"" (:note-folded t) " "
(links-html e)
"" (:note-unmeasured t) " "
(links-html e)))
" |
"))
(defn- row-html [e]
(str "| "
" | "
"" (esc (or (:section e) "—")) " | "
"" (if (:repo e)
(str "" (esc (:name e)) "")
(esc (:name e))) " | "
"" (state-label e) " | "
(score-cell e)
"" (esc (or (:band e) "—")) " | "
"" (if (:demo e) (str "demo") "—") " |
"))
(defn- matches? [q sec state e]
(and (or (= q "") (.includes (.toLowerCase (str (:id e) " " (:name e))) q))
(or (= sec "") (= sec (:section e)))
(case state
"" true
"implemented" (= "implemented" (:state e))
"spec" (= "spec" (:state e))
"measured" (some? (:own e))
"unmeasured" (nil? (:own e))
true)))
(defn- render! []
(let [q (.toLowerCase (.-value (js/document.getElementById "q")))
sec (.-value (js/document.getElementById "sec"))
state (.-value (js/document.getElementById "state"))
hits (filter (partial matches? q sec state) entries)]
;; 絞り込みを変えると tbody を作り直すので、開いていた内訳は閉じる。
;; 行の同一性を保って開閉だけ残す実装もできるが、651 行を差分更新する
;; 価値より、状態が 1 箇所（DOM）に閉じている方が壊れにくい。
(set! (.-innerHTML (js/document.getElementById "rows")) (apply str (map row-html hits)))
(set! (.-hidden (js/document.getElementById "empty")) (boolean (seq hits)))))
;; 開閉は tbody への委譲。再描画のたびに 651 個の listener を張り直さない。
(defn- toggle! [btn]
(let [id (.getAttribute btn "data-id")
open? (= "true" (.getAttribute btn "aria-expanded"))
row (.closest btn "tr")
existing (js/document.getElementById (str "d-" id))]
(if open?
(do (.setAttribute btn "aria-expanded" "false")
(when existing (.remove existing)))
(do (.setAttribute btn "aria-expanded" "true")
(when-not existing
(.insertAdjacentHTML row "afterend" (detail-html (get by-id id))))))))
(.addEventListener (js/document.getElementById "rows") "click"
(fn [ev]
(when-let [btn (.closest (.-target ev) "button.rowtoggle")]
(toggle! btn))))
(doseq [id ["q" "sec" "state"]]
(.addEventListener (js/document.getElementById id)
(if (= id "q") "input" "change")
render!))
(render!)