//! Overprinting (Attributes panel → Overprint Fill / Overprint Stroke, Edit → Edit Colors →
//! Overprint Black): each fill and stroke, and each character's fill and stroke, can overprint
//! ([`vectorcraft_doc::FillLayer::overprint`]). Overprint Preview and Separations Preview show it.

use std::collections::BTreeSet;
use std::sync::Arc;

use serde_json::{Value, json};
use vectorcraft_doc::overprint::OverprintBlack;
use vectorcraft_doc::{Document, Node, NodeId, NodeKind};

use super::appearance::{ItemTarget, item_target};
use super::edit::selected_roots;
use super::*;

pub fn specs() -> Vec<CommandSpec> {
    vec![
        cmd!(
            "object.setOverprint",
            "Overprint",
            [],
            None,
            "{fill?: bool, stroke?: bool, item?: appearance item index|null, ids?} make fills and/or strokes overprint (Overprint Preview, Separations Preview) or knock out: item's, else every fill or stroke of the painted objects (groups: their contents; type: its characters too). Without item and ids, the Appearance panel's active item stands in when it is of that kind → {changed: objects}",
            has_doc,
            set_overprint
        ),
        cmd!(
            query "attributes.info",
            "Attributes",
            [],
            None,
            "{ids?, item?} → {ids, overprintFill, overprintStroke} the Attributes panel's values for `ids` or the selection, aimed as object.setOverprint aims; a value is null where they differ (or nothing has a fill or stroke)",
            has_doc,
            |s, p| Ok(attributes(s, p)?.to_json())
        ),
    ]
}

/// The Attributes panel's values ([`Session::attributes_info`], `attributes.info`).
#[derive(Clone, Debug, Default, PartialEq)]
pub struct AttributesInfo {
    /// The targets (the selection by default).
    pub ids: Vec<NodeId>,
    /// Overprint Fill; `None` where the targets differ or have no fill.
    pub overprint_fill: Option<bool>,
    /// Overprint Stroke; `None` where the targets differ or have no stroke.
    pub overprint_stroke: Option<bool>,
}

impl AttributesInfo {
    fn to_json(&self) -> Value {
        json!({
            "ids": self.ids.iter().map(|id| id.0).collect::<Vec<_>>(),
            "overprintFill": self.overprint_fill,
            "overprintStroke": self.overprint_stroke,
        })
    }
}

impl Session {
    /// The Attributes panel's values for the selection.
    pub fn attributes_info(&self) -> AttributesInfo {
        attributes(self, &Value::Null).unwrap_or_default()
    }
}

/// The overprint flags of `n` a fill (`fill`) or stroke edit aimed at item `index` covers: that
/// item's, or (`None`) every fill's or stroke's and, on type, its characters'.
fn flags(n: &Node, fill: bool, index: Option<usize>) -> Vec<bool> {
    let mut v: Vec<bool> = n
        .appearance
        .items
        .iter()
        .enumerate()
        .filter(|(i, it)| index.map_or(it.is_fill() == fill, |x| x == *i))
        .map(|(_, it)| it.overprint())
        .collect();
    if let (None, NodeKind::Text(t)) = (index, &n.kind) {
        v.extend(t.runs.iter().map(|r| if fill { r.style.overprint_fill } else { r.style.overprint_stroke }));
    }
    v
}

/// [`flags`], to change.
fn flags_mut(n: &mut Node, fill: bool, index: Option<usize>) -> Vec<&mut bool> {
    let mut v: Vec<&mut bool> = n
        .appearance
        .items
        .iter_mut()
        .enumerate()
        .filter(|(i, it)| index.map_or(it.is_fill() == fill, |x| x == *i))
        .map(|(_, it)| it.overprint_mut())
        .collect();
    if let (None, NodeKind::Text(t)) = (index, &mut n.kind) {
        v.extend(t.runs.iter_mut().map(|r| if fill { &mut r.style.overprint_fill } else { &mut r.style.overprint_stroke }));
    }
    v
}

/// The `fill` and `stroke` params given: (fill?, on).
fn kinds(p: &Value, cmd: &str) -> Result<Vec<(bool, bool)>> {
    [(true, "fill"), (false, "stroke")]
        .into_iter()
        .filter_map(|(fill, key)| {
            p.get(key).map(|v| v.as_bool().map(|on| (fill, on)).ok_or_else(|| bad(cmd, format!("`{key}` must be true or false"))))
        })
        .collect()
}

/// Each kind's item target and objects: (fill?, item, ids).
fn aims(s: &Session, p: &Value, cmd: &str, kinds: impl IntoIterator<Item = bool>) -> Result<Vec<(bool, ItemTarget, Vec<NodeId>)>> {
    let item = item_target(s, p, cmd)?;
    kinds
        .into_iter()
        .map(|fill| {
            let it = item.of_kind(s, fill);
            Ok((fill, it, it.targets(s, p)?))
        })
        .collect()
}

/// Run `f` on a copy of the document and commit it as one undo step (`label`) only when `f`
/// reports changes; returns their count.
fn edit_counted(s: &mut Session, label: &str, f: impl FnOnce(&mut Document) -> Result<usize>) -> Result<usize> {
    let mut d = (*s.doc()?.doc).clone();
    let n = f(&mut d)?;
    if n > 0 {
        s.edit(label, |doc, _| {
            *doc = d;
            Ok(())
        })?;
    }
    Ok(n)
}

fn set_overprint(s: &mut Session, p: &Value) -> Result<Value> {
    const C: &str = "object.setOverprint";
    let kinds = kinds(p, C)?;
    if kinds.is_empty() {
        return Err(bad(C, "give `fill` and/or `stroke`"));
    }
    let jobs: Vec<_> = aims(s, p, C, kinds.iter().map(|k| k.0))?.into_iter().zip(kinds.iter().map(|k| k.1)).collect();
    let changed = edit_counted(s, "Overprint", |d| {
        let mut changed = BTreeSet::new();
        for ((fill, item, ids), on) in &jobs {
            for id in ids {
                let Some(n) = d.node_mut(*id) else { continue };
                let index = item.resolve(&n.appearance, *fill, C)?;
                for f in flags_mut(n, *fill, index) {
                    if *f != *on {
                        *f = *on;
                        changed.insert(*id);
                    }
                }
            }
        }
        Ok(changed.len())
    })?;
    Ok(json!({ "changed": changed }))
}

fn attributes(s: &Session, p: &Value) -> Result<AttributesInfo> {
    const C: &str = "attributes.info";
    let d = &s.doc()?.doc;
    let mut info = AttributesInfo { ids: targets(s, p)?, ..Default::default() };
    for (fill, item, ids) in aims(s, p, C, [true, false])? {
        let mut all =
            ids.iter().filter_map(|id| d.node(*id)).filter_map(|n| Some(flags(n, fill, item.resolve(&n.appearance, fill, C).ok()?))).flatten();
        let same = all.next().and_then(|first| all.all(|b| b == first).then_some(first));
        if fill {
            info.overprint_fill = same;
        } else {
            info.overprint_stroke = same;
        }
    }
    Ok(info)
}

/// Overprint Black on `n` and its descendants; returns the objects changed.
fn overprint_black_tree(n: &mut Node, op: &OverprintBlack, spots: &[String]) -> usize {
    let mut changed = usize::from(op.apply(n, spots));
    for c in n.children_mut().into_iter().flatten() {
        changed += overprint_black_tree(Arc::make_mut(c), op, spots);
    }
    changed
}

pub(crate) fn overprint_black(s: &mut Session, p: &Value) -> Result<Value> {
    let op = OverprintBlack {
        remove: bool_or(p, "remove", false),
        min_k: (f64_or(p, "percentage", 100.0) / 100.0).clamp(0.0, 1.0) as f32,
        fill: bool_or(p, "fill", true),
        stroke: bool_or(p, "stroke", true),
        rich: bool_or(p, "includeCmyBlacks", false),
        spot: bool_or(p, "includeSpotBlacks", false),
    };
    let ids = match ids_param(p, "ids") {
        Some(v) => v,
        None => selected_roots(s)?,
    };
    let changed = edit_counted(s, "Overprint Black", |d| {
        let spots = d.spot_names();
        Ok(ids.iter().map(|id| d.node_mut(*id).map_or(0, |n| overprint_black_tree(n, &op, &spots))).sum())
    })?;
    Ok(json!({ "changed": changed }))
}