navi-core 0.3.7

use crate::memory::history_store::HistoryStore;
use crate::memory::{AutoMemoryStore, GlobalMemoryStore};
use crate::model::{ModelMessage, ModelProvider, ModelRequest, ThinkingConfig};
use anyhow::{Context, Result};
use serde::Deserialize;
use std::path::PathBuf;
use std::time::{SystemTime, UNIX_EPOCH};

pub const DREAM_SYSTEM: &str = r#"You are a memory maintenance subagent named NAVI Dream.
Reflect on persistent memory and recent sessions, then produce a consolidated memory store.

Offline synthesis rules:
- Do not merely append a transcript summary.
- Merge duplicates.
- Resolve contradictions by preferring the newest verified session evidence.
- Drop stale, temporary, speculative, or one-off debugging notes.
- Preserve stable project architecture, commands, conventions, user preferences, and reusable lessons.
- Surface new durable insights for future sessions.

Output ONLY these XML blocks:
<updated_project_memory>...</updated_project_memory>
<updated_global_memory>...</updated_global_memory>
<dream_report>Briefly list what changed, what was removed, and notable unresolved contradictions.</dream_report>
"#;

pub const DREAM_PROMPT: &str = r#"Existing project memory index:
{project_memory}

Existing global memory index:
{global_memory}

Current checkpoint:
{checkpoint}

Current notes:
{notes}

Recent sessions:
{recent_sessions}

Additional dream instructions:
{instructions}
"#;

pub const DISTILL_SYSTEM: &str = r#"You are a process distillation subagent named NAVI Distill.
Analyze recent conversation histories and extract reusable processes (SOPs, skills, checklists).
Identify repeated successful patterns, workflows, checklists, or setups.
Generate a reusable SOP in Markdown.
Output ONLY inside a `<sop_artifact filename="name.md">...</sop_artifact>` block."#;

pub const DISTILL_PROMPT: &str = r#"Recent Session History:
{recent_history}
"#;

pub const MEMORY_CONSOLIDATION_SYSTEM: &str = r#"You are a memory consolidation subagent for NAVI.
Review SQLite-stored memories and produce consolidation actions:
1. obsolete — contradicted, irrelevant, or superseded
2. merge — duplicates; surviving id + combined body
3. update — adjust confidence (0.0–1.0)

Each action: { "action": "obsolete"|"merge"|"update", "id": "...", "merged_body"?: "...", "confidence"?: 0.0-1.0 }
If none needed, return []. Output ONLY the JSON array — no markdown fences."#;

pub const MEMORY_CONSOLIDATION_PROMPT: &str = r#"Current memories (JSON array):
{memories_json}
"#;

/// A consolidation action from the model.
#[derive(Debug, Clone, Deserialize)]
struct ConsolidationAction {
    action: String,
    id: String,
    merged_body: Option<String>,
    confidence: Option<f64>,
}

fn sanitize_input(text: &str) -> String {
    text.replace("<updated_project_memory>", "[updated_project_memory]")
        .replace("</updated_project_memory>", "[/updated_project_memory]")
        .replace("<updated_global_memory>", "[updated_global_memory]")
        .replace("</updated_global_memory>", "[/updated_global_memory]")
        .replace("<dream_report>", "[dream_report]")
        .replace("</dream_report>", "[/dream_report]")
        .replace("<sop_artifact", "[sop_artifact")
        .replace("</sop_artifact>", "[/sop_artifact]")
}

#[derive(Debug, Clone)]
pub struct DreamOptions {
    pub session_limit: usize,
    pub instructions: Option<String>,
    pub apply: bool,
}

impl Default for DreamOptions {
    fn default() -> Self {
        Self {
            session_limit: 10,
            instructions: None,
            apply: false,
        }
    }
}

#[derive(Debug, Clone)]
pub struct DreamResult {
    pub output_dir: PathBuf,
    pub project_memory_path: PathBuf,
    pub global_memory_path: PathBuf,
    pub report_path: PathBuf,
    pub applied: bool,
    pub auto_memory_report: Option<crate::memory::ConsolidationReport>,
}

pub async fn run_dream_maintenance(
    auto_memory: &AutoMemoryStore,
    global_memory: &GlobalMemoryStore,
    history_store: &HistoryStore,
    model_provider: &dyn ModelProvider,
    model_name: &str,
) -> Result<DreamResult> {
    run_dream_maintenance_with_options(
        auto_memory,
        global_memory,
        history_store,
        model_provider,
        model_name,
        DreamOptions::default(),
    )
    .await
}

pub async fn run_dream_maintenance_with_options(
    auto_memory: &AutoMemoryStore,
    global_memory: &GlobalMemoryStore,
    history_store: &HistoryStore,
    model_provider: &dyn ModelProvider,
    model_name: &str,
    options: DreamOptions,
) -> Result<DreamResult> {
    let project_memory = sanitize_input(&auto_memory.render_index());
    let global_memory_text = sanitize_input(&global_memory.read_index().unwrap_or_default());
    let checkpoint = sanitize_input(&auto_memory.read_checkpoint().unwrap_or_default());
    let notes = sanitize_input(&auto_memory.read_notes().unwrap_or_default());
    let recent_sessions = sanitize_input(&format_recent_sessions(
        history_store,
        options.session_limit.clamp(1, 100),
    )?);
    let instructions = sanitize_input(options.instructions.as_deref().unwrap_or(
        "Focus on stable coding workflow, project architecture, commands, and user preferences.",
    ));

    let prompt = DREAM_PROMPT
        .replace("{project_memory}", &project_memory)
        .replace("{global_memory}", &global_memory_text)
        .replace("{checkpoint}", &checkpoint)
        .replace("{notes}", &notes)
        .replace("{recent_sessions}", &recent_sessions)
        .replace("{instructions}", &instructions);

    let request = ModelRequest {
        model: model_name.to_string(),
        instructions: None,
        messages: vec![
            ModelMessage::system(DREAM_SYSTEM),
            ModelMessage::user(prompt),
        ],
        thinking: ThinkingConfig::Off,
        tools: vec![],
        session_id: None,
    };

    let response = model_provider.complete(request).await?;
    let text = response.text;

    let updated_pm = extract_block(
        &text,
        "<updated_project_memory>",
        "</updated_project_memory>",
    )
    .context("dream response did not include <updated_project_memory>")?;
    let updated_gm = extract_block(&text, "<updated_global_memory>", "</updated_global_memory>")
        .context("dream response did not include <updated_global_memory>")?;
    let dream_report = extract_block(&text, "<dream_report>", "</dream_report>")
        .unwrap_or_else(|| "Dream completed without a report.".to_string());

    if updated_pm.trim().is_empty() {
        anyhow::bail!("dream response produced empty project memory");
    }
    if updated_gm.trim().is_empty() {
        anyhow::bail!("dream response produced empty global memory");
    }

    let output_dir = dream_output_dir(auto_memory)?;
    std::fs::create_dir_all(&output_dir)
        .with_context(|| format!("failed to create {}", output_dir.display()))?;

    let project_memory_path = output_dir.join("project-memory.md");
    let global_memory_path = output_dir.join("global-memory.md");
    let report_path = output_dir.join("dream-report.md");
    crate::memory::memory_store::write_atomic(&project_memory_path, updated_pm.trim())?;
    crate::memory::memory_store::write_atomic(&global_memory_path, updated_gm.trim())?;
    crate::memory::memory_store::write_atomic(&report_path, dream_report.trim())?;

    if options.apply {
        global_memory.write_from_markdown(updated_gm.trim())?;

        // Model-based SQLite memory consolidation
        if let Err(e) = run_model_based_consolidation(auto_memory, model_provider, model_name).await
        {
            tracing::warn!("model-based memory consolidation failed: {}", e);
        }
    }

    // Consolidate auto-memory SQLite store (mechanical: mark stale, deduplicate, backfill embeddings)
    let auto_memory_report = {
        match auto_memory.consolidate(30) {
            Ok(report) => {
                tracing::info!(
                    "auto-memory consolidation: {} stale, {} duplicates, {} active",
                    report.marked_stale,
                    report.duplicates_merged,
                    report.remaining_active
                );

                // Backfill embeddings for memories without them
                if crate::memory::embeddings_available() {
                    let db_path = &auto_memory.db_path;
                    let models_dir = db_path
                        .parent()
                        .unwrap_or(std::path::Path::new("."))
                        .join("models");
                    let model_path = models_dir.join(crate::memory::DEFAULT_MODEL_FILE);
                    let tokenizer_path = models_dir.join(crate::memory::DEFAULT_TOKENIZER_FILE);

                    if let Some(embedder) =
                        crate::memory::embedding::get_cached_embedder(&model_path, &tokenizer_path)
                    {
                        let missing = auto_memory.list_without_embeddings().unwrap_or_default();

                        if !missing.is_empty() {
                            tracing::info!("backfilling embeddings for {} memories", missing.len());
                            for m in &missing {
                                if let Some(text) =
                                    auto_memory.get_memory_text(&m.id).unwrap_or(None)
                                {
                                    match embedder.embed(&text) {
                                        Ok(emb) => {
                                            let _ = auto_memory.set_embedding(&m.id, &emb);
                                        }
                                        Err(e) => {
                                            tracing::debug!(
                                                "embedding backfill failed for {}: {}",
                                                m.id,
                                                e
                                            );
                                        }
                                    }
                                }
                            }
                        }
                    }
                }

                Some(report)
            }
            Err(e) => {
                tracing::warn!("auto-memory consolidation failed: {}", e);
                None
            }
        }
    };

    Ok(DreamResult {
        output_dir,
        project_memory_path,
        global_memory_path,
        report_path,
        applied: options.apply,
        auto_memory_report,
    })
}

/// Runs model-based consolidation on the SQLite auto-memory store.
///
/// Sends all active memories (with full body text) to the model, which returns
/// consolidation actions: mark obsolete, merge duplicates, update confidence.
/// Actions are applied directly to the SQLite store.
async fn run_model_based_consolidation(
    auto_memory: &AutoMemoryStore,
    model_provider: &dyn ModelProvider,
    model_name: &str,
) -> Result<()> {
    let entries = auto_memory.list_full_entries()?;
    if entries.is_empty() {
        return Ok(());
    }

    let memories_json = serde_json::to_string_pretty(
        &entries
            .iter()
            .map(|e| {
                serde_json::json!({
                    "id": e.id,
                    "type": e.memory_type.as_str(),
                    "name": e.name,
                    "description": e.description,
                    "body": e.body,
                    "confidence": e.confidence,
                })
            })
            .collect::<Vec<_>>(),
    )?;

    let prompt = MEMORY_CONSOLIDATION_PROMPT.replace("{memories_json}", &memories_json);

    let request = ModelRequest {
        model: model_name.to_string(),
        instructions: None,
        messages: vec![
            ModelMessage::system(MEMORY_CONSOLIDATION_SYSTEM),
            ModelMessage::user(prompt),
        ],
        thinking: ThinkingConfig::Off,
        tools: vec![],
        session_id: None,
    };

    let response = model_provider.complete(request).await?;
    let text = response.text.trim();

    let actions: Vec<ConsolidationAction> = if text.starts_with('[') {
        serde_json::from_str(text).unwrap_or_default()
    } else if let Some(start) = text.find('[') {
        if let Some(end) = text.rfind(']') {
            serde_json::from_str(&text[start..=end]).unwrap_or_default()
        } else {
            Vec::new()
        }
    } else {
        Vec::new()
    };

    let mut applied = 0;
    for action in &actions {
        let result = match action.action.as_str() {
            "obsolete" => auto_memory.mark_obsolete(&action.id),
            "merge" => {
                if let Some(ref body) = action.merged_body {
                    auto_memory.update_consolidated(&action.id, Some(body), None)
                } else {
                    Ok(())
                }
            }
            "update" => auto_memory.update_consolidated(&action.id, None, action.confidence),
            _ => Ok(()),
        };
        if result.is_ok() {
            applied += 1;
        }
    }

    if applied > 0 {
        tracing::info!("model-based consolidation: applied {} actions", applied);
    }

    Ok(())
}

pub async fn run_distill_maintenance(
    auto_memory: &AutoMemoryStore,
    history_store: &HistoryStore,
    model_provider: &dyn ModelProvider,
    model_name: &str,
) -> Result<()> {
    let sessions = history_store.list_sessions()?;
    let mut history_text = String::new();
    for session in sessions.iter().take(3) {
        let events = history_store.get_recent_events(&session.id, Some(50))?;
        for e in events {
            if let Some(ref content) = e.content {
                history_text.push_str(&format!("[Session {}]: {}\n", session.id, content));
            }
        }
    }
    let history_text = sanitize_input(&history_text);

    let prompt = DISTILL_PROMPT.replace("{recent_history}", &history_text);

    let request = ModelRequest {
        model: model_name.to_string(),
        instructions: None,
        messages: vec![
            ModelMessage::system(DISTILL_SYSTEM),
            ModelMessage::user(prompt),
        ],
        thinking: ThinkingConfig::Off,
        tools: vec![],
        session_id: None,
    };

    let response = model_provider.complete(request).await?;
    let text = response.text;

    if let Some(sop_block) = extract_block_with_attr(&text, "<sop_artifact", "</sop_artifact>") {
        let (filename, content) = sop_block;
        if !content.trim().is_empty() {
            let sops_dir = auto_memory
                .db_path
                .parent()
                .unwrap_or(std::path::Path::new("."))
                .join("sops");
            if !sops_dir.exists() {
                std::fs::create_dir_all(&sops_dir).with_context(|| {
                    format!("Failed to create SOPs directory: {}", sops_dir.display())
                })?;
            }
            // Append timestamp to filename to avoid concurrent write collisions
            let timestamp = SystemTime::now()
                .duration_since(UNIX_EPOCH)
                .map(|d| d.as_secs())
                .unwrap_or(0);
            let safe_name = if let Some(stem) = filename.rsplit_once('.') {
                format!("{}_{}.{}", stem.0, timestamp, stem.1)
            } else {
                format!("{}_{}", filename, timestamp)
            };
            let sop_path = sops_dir.join(safe_name);
            crate::memory::memory_store::write_atomic(&sop_path, &content)
                .with_context(|| format!("Failed to write SOP artifact: {}", sop_path.display()))?;
        }
    }

    Ok(())
}

fn extract_block(text: &str, start_tag: &str, end_tag: &str) -> Option<String> {
    let start_idx = text.find(start_tag)?;
    let end_idx = text.find(end_tag)?;
    if start_idx < end_idx {
        Some(text[start_idx + start_tag.len()..end_idx].to_string())
    } else {
        None
    }
}

fn dream_output_dir(auto_memory: &AutoMemoryStore) -> Result<PathBuf> {
    let timestamp = SystemTime::now()
        .duration_since(UNIX_EPOCH)
        .map(|duration| duration.as_secs())
        .unwrap_or_default();
    let memory_root = auto_memory
        .db_path
        .parent()
        .unwrap_or(std::path::Path::new("."))
        .to_path_buf();
    let dreams_dir = memory_root.join("dreams");
    let mut candidate = dreams_dir.join(format!("dream-{timestamp}"));
    let mut suffix = 1;
    while candidate.exists() {
        candidate = dreams_dir.join(format!("dream-{timestamp}-{suffix}"));
        suffix += 1;
    }
    Ok(candidate)
}

fn format_recent_sessions(history_store: &HistoryStore, session_limit: usize) -> Result<String> {
    let sessions = history_store.list_sessions()?;
    if sessions.is_empty() {
        return Ok("No recorded sessions yet.".to_string());
    }

    let mut rendered = String::new();
    for session in sessions.iter().take(session_limit) {
        rendered.push_str(&format!(
            "## Session {}\nStarted: {}\nProject: {}\n",
            session.id, session.started_at, session.project_id
        ));
        let events = history_store.get_recent_events(&session.id, Some(80))?;
        for event in events {
            if event.event_type != "message" {
                continue;
            }
            let role = event.role.as_deref().unwrap_or("unknown");
            if let Some(content) = event.content {
                rendered.push_str(&format!(
                    "[{}] {}\n",
                    role,
                    truncate_chars(content.trim(), 2_000)
                ));
            }
            if let Some(tool_output) = event.tool_output {
                rendered.push_str(&format!(
                    "[tool-output] {}\n",
                    truncate_chars(tool_output.trim(), 1_000)
                ));
            }
        }
        rendered.push_str("\n---\n");
    }

    Ok(truncate_chars(&rendered, 80_000))
}

fn truncate_chars(text: &str, max_chars: usize) -> String {
    if text.chars().count() <= max_chars {
        return text.to_string();
    }

    let mut truncated: String = text.chars().take(max_chars).collect();
    truncated.push_str("\n[truncated]");
    truncated
}

fn extract_block_with_attr(
    text: &str,
    start_tag_prefix: &str,
    end_tag: &str,
) -> Option<(String, String)> {
    let start_idx = text.find(start_tag_prefix)?;
    let end_tag_start = text[start_idx..].find('>')?;
    let start_tag_full_len = end_tag_start + 1;
    let start_tag_content = &text[start_idx..start_idx + start_tag_full_len];

    let filename = if let Some(fn_start) = start_tag_content.find("filename=\"") {
        let fn_sub = &start_tag_content[fn_start + "filename=\"".len()..];
        if let Some(fn_end) = fn_sub.find('"') {
            fn_sub[..fn_end].to_string()
        } else {
            "sop.md".to_string()
        }
    } else {
        "sop.md".to_string()
    };

    let content_start = start_idx + start_tag_full_len;
    let end_idx = text[content_start..].find(end_tag)?;
    let content = text[content_start..content_start + end_idx].to_string();

    Some((filename, content))
}