shep 0.25.1

//! The settings screen, its snapshot, and its dog rows.

use std::path::{Path, PathBuf};
use std::time::Instant;

use shep_core::protocol::{DogSource, ProcessInfo, Response};
use shep_core::status::ProcStatus;

use crate::commands::settings::{DogView, SettingEdit, SettingsSnapshot, Shape};
use crate::lookout::app::{
    App, CatalogueRead, CatalogueRow, Control, DogState, Effect, KeyPress, Msg, Sent, Settings,
    SettingsRow,
};
use crate::lookout::field::shep_toml_shape;
use crate::lookout::pane::PaneRow;
use crate::style::{StyleLevel, StyleSource};

use super::dog_pane::dog_section;
use super::flock::{app_with, flock_of};
use super::palette::plain;

/// A plausible settings snapshot: a `shep.toml` that declares one key in
/// every kind of row the tree draws (a boolean, a closed set, a duration, a
/// path, a list, a map of entries), and two candidate dogs, one enabled, for
/// the tests that need a screen with real rows rather than a fresh home's
/// all-default one.
pub fn settings_snapshot() -> SettingsSnapshot {
    let document = serde_json::json!({
        "daemon": {
            "log_level": "warn",
            "log_json": false,
            "socket": "/home/ada/.shep/run/shep.sock",
            "max_cron_sleep": "30s",
            "environment": "production",
        },
        "whistle": { "allow_control": false },
        "secrets": { "allow_read": false },
        "style": { "level": "full" },
        "interpreters": { "js": "node", "py": "python3" },
        "hosts": ["ada@box"],
    });
    SettingsSnapshot {
        document: document.as_object().cloned().unwrap_or_default(),
        socket_default: PathBuf::from("/home/ada/.shep/run/shep.sock"),
        // The document declares it, so the file and the resolved value
        // agree.
        style: (StyleLevel::Full, StyleSource::Config),
        dogs: vec![
            DogView::built_in("bark", false),
            DogView::built_in("metrics", true),
        ],
    }
}

/// A dashboard with the settings screen already open on
/// [`settings_snapshot`], the gate closed ([`Control::ReadOnly`]).
pub fn app_in_settings() -> App {
    let mut app = app_with(flock_of(3, 0), plain());
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot()),
    });
    app
}

/// The dotted key a settings row stands for: a section's path, a key's own,
/// a map's entry as `map.name`, the row that adds one as `map+`, and anything
/// under a dog as `dog.<name>...` so a test can name a dog's own row the same
/// way it names a key of `shep.toml`.
fn key_of(settings: &Settings, row: SettingsRow) -> Option<String> {
    let shape = shep_toml_shape();
    let fields = shape.fields.fields();
    Some(match row {
        SettingsRow::Table(index) => shape.outline.tables[index].path.clone(),
        SettingsRow::Field(index) => fields[index].key.clone(),
        SettingsRow::Entry { map, index } => {
            let key = &fields[map].key;
            let (name, _) = settings.snapshot().entries(key).into_iter().nth(index)?;
            format!("{key}.{name}")
        }
        SettingsRow::AddEntry(map) => format!("{}+", fields[map].key),
        SettingsRow::Dog(index) => format!("dog.{}", settings.dog(index)?.name),
        SettingsRow::DogKey { dog, key } => {
            format!("dog.{}.{}", settings.dog(dog)?.name, key.label())
        }
        SettingsRow::DogGrant { dog, index } => {
            format!("dog.{}.grant.{}", settings.dog(dog)?.name, index)
        }
        SettingsRow::DogEnv(dog) => format!("dog.{}.env", settings.dog(dog)?.name),
        SettingsRow::DogEnvKey { dog, index } => {
            let dog = settings.dog(dog)?;
            format!("dog.{}.env.{}", dog.name, dog.env_keys.get(index)?)
        }
        SettingsRow::DogEnvNew(dog) => format!("dog.{}.env+", settings.dog(dog)?.name),
        SettingsRow::AvailableDog(index) => {
            format!(
                "available.{}",
                settings.available().get(index)?.dog.adopt_as
            )
        }
        SettingsRow::BrowseDogs => "dogs.browse".to_owned(),
        SettingsRow::DogField { dog, row } => {
            let pane = settings.dog_tree(dog)?.pane()?;
            let PaneRow::Field(field) = pane.rows().get(row)?.to_owned() else {
                return None;
            };
            format!(
                "dog.{}.{}",
                settings.dog(dog)?.name,
                pane.fields().fields().get(field)?.key
            )
        }
    })
}

/// Moves the settings cursor onto the row named by the dotted `key` (see
/// [`key_of`]), from the first row, by real keypresses rather than poking
/// the cursor index directly.
///
/// # Panics
///
/// If the settings screen is not open, or `key` is not a row of it.
#[track_caller]
pub fn select_setting(app: &mut App, key: &str) {
    app.update(Msg::Key(KeyPress::SelectFirst));
    let settings = app.settings().expect("the settings screen is open");
    let target = settings
        .rows()
        .into_iter()
        .position(|row| key_of(settings, row).as_deref() == Some(key))
        .unwrap_or_else(|| panic!("{key} is a row of the settings tree"));
    for _ in 0..target {
        app.update(Msg::Key(KeyPress::SelectDown));
    }
}

/// [`app_in_settings_with_control`] with the cursor already on the row named
/// by the dotted `key`.
pub fn app_in_settings_on(key: &str) -> App {
    let mut app = app_in_settings_with_control();
    select_setting(&mut app, key);
    app
}

/// [`app_in_settings_with_control`], but built from a caller-visible `t0`
/// rather than [`Instant::now`] read inside this function: an expiry test
/// needs to hand `Msg::Tick` an instant it can do arithmetic against.
pub fn app_in_settings_at() -> (App, Instant) {
    let t0 = Instant::now();
    let mut app = App::new(plain(), Control::Allowed, "/home/ada/.shep".to_string(), t0);
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot()),
    });
    (app, t0)
}

/// The settings screen with `[style] level` shadowed: the document says
/// `full`, `source` is the layer that outranked it, and the level in force
/// is `bare`. The cursor sits on the style row.
///
/// The one state where a key's value in force and its value on disk disagree.
pub fn app_in_settings_with_shadowed_style(source: StyleSource) -> App {
    let mut app = app_in_settings_on("style.level");
    let mut snapshot = settings_snapshot();
    snapshot.style = (StyleLevel::Bare, source);
    app.update(Msg::Settings {
        result: Ok(snapshot),
    });
    app
}

/// The settings screen over a `shep.toml` that says nothing about `[style]`,
/// so `full` is in force by default. The cursor sits on the style row.
pub fn app_in_settings_with_silent_style() -> App {
    let mut app = app_in_settings_on("style.level");
    let mut snapshot = settings_snapshot();
    snapshot.document.remove("style");
    snapshot.style = (StyleLevel::Full, StyleSource::Default);
    app.update(Msg::Settings {
        result: Ok(snapshot),
    });
    app
}

/// [`app_in_settings`] with the control gate open, for the one test that
/// proves an action key stays unreachable even when actions would otherwise
/// be permitted.
pub fn app_in_settings_with_control() -> App {
    let mut app = app_in_settings();
    app.set_control_for_tests(Control::Allowed);
    app
}

/// [`app_in_settings_with_control`] with `bark`'s dog row opened: `e` on its
/// row, then the schema its binary answers with, then the section the shepherd
/// answers with, each fed as [`crate::lookout::ui_event_loop`] feeds it.
///
/// The screen never changes: `bark`'s own tree fills in under its header row,
/// which is the whole difference from [`app_in_dog_pane`], where the same two
/// reads replace the dashboard with a pane.
pub fn app_in_settings_with_a_dog_open() -> App {
    let mut app = app_in_settings_with_control();
    open_dog_row(&mut app, "bark");
    app
}

/// [`open_dog_row`] for an adopted dog whose binary is `path`: the schema its
/// probe would answer with is one `ratio` number, and its section says
/// `ratio = 1.5`.
///
/// # Panics
///
/// If `name` is not a row of the open settings screen.
#[track_caller]
pub fn open_adopted_dog_row(app: &mut App, name: &str, path: &Path) {
    open_adopted_dog_row_with(
        app,
        name,
        path,
        serde_json::json!({
            "type": "object",
            "properties": { "ratio": { "type": "number" } },
        }),
        "ratio = 1.5\n",
    );
}

/// [`open_adopted_dog_row`] for a dog whose probe answers `schema` and whose
/// section says `toml`.
///
/// # Panics
///
/// If `name` is not a row of the open settings screen.
#[track_caller]
pub fn open_adopted_dog_row_with(
    app: &mut App,
    name: &str,
    path: &Path,
    schema: serde_json::Value,
    toml: &str,
) {
    select_setting(app, &format!("dog.{name}"));
    let effect = app.update(Msg::Key(KeyPress::Edit));
    if !matches!(effect, Effect::LoadDogPane { .. }) {
        panic!("opening a dog row asks for its schema, got {effect:?}");
    }
    app.update(Msg::DogPane {
        name: name.to_owned(),
        adopted_path: Some(path.to_path_buf()),
        env_keys: Vec::new(),
        result: Ok(schema),
    });
    app.update(Msg::Replied {
        sent: Sent::DogSection {
            name: name.to_owned(),
        },
        result: Ok(Response::DogSection {
            toml: toml.to_owned().into(),
        }),
    });
}

/// `e` on the row of the dog named `name`, then the two reads that opening
/// it asks for, answered the way the event loop answers them. A built-in dog
/// only, because the schema comes from this binary rather than a probe.
///
/// # Panics
///
/// If `name` is not a row of the open settings screen, or is not a built-in dog.
#[track_caller]
pub fn open_dog_row(app: &mut App, name: &str) {
    select_setting(app, &format!("dog.{name}"));
    let effect = app.update(Msg::Key(KeyPress::Edit));
    if !matches!(effect, Effect::LoadDogPane { .. }) {
        panic!("opening a dog row asks for its schema, got {effect:?}");
    }
    app.update(Msg::DogPane {
        name: name.to_owned(),
        adopted_path: None,
        env_keys: Vec::new(),
        result: Ok(crate::dog::builtin_schema(name).expect("the fixture's dog is a built-in")),
    });
    app.update(Msg::Replied {
        sent: Sent::DogSection {
            name: name.to_owned(),
        },
        result: Ok(Response::DogSection {
            toml: dog_section().into(),
        }),
    });
}

/// `bark` enabled with a grants record: `flock.read` held, `events:log.` left
/// waiting. The one `shep.toml` state that has a grants checklist to draw.
pub const BARK_RECORDED: &str = "[daemon]\nenabled_dogs = [\"bark\"]\n\n[daemon.dog_grants.bark]\ngranted = [\"flock.read\"]\nwaiting = [\"events:log.\"]\nreviewed = true\n";

/// `otel` adopted and enabled, its entry a table with one `env` key set.
pub const OTEL_WITH_ENV: &str = "[daemon]\nenabled_dogs = [\"otel\"]\n\n[daemon.adopted_dogs.otel]\npath = \"/usr/local/bin/shep-otel\"\nenv = { PADDOCK_KEY = \"hunter2\" }\n";

/// `otel` adopted and enabled as a bare path, with comments around its entry
/// that a write has to keep and a second dog beside it.
pub const OTEL_BARE: &str = "# which dogs run\n[daemon]\nenabled_dogs = [\"otel\"]\n\n[daemon.adopted_dogs]\n# the exporter\notel = \"/usr/local/bin/shep-otel\" # built from main\nzulu = \"/opt/zulu\"\n";

/// A shep home whose `shep.toml` is `text`, and the paths under it. The tempdir
/// is returned so a test that writes through those paths keeps its home alive.
pub fn home_with(text: &str) -> (tempfile::TempDir, shep_core::paths::ShepPaths) {
    let dir = tempfile::tempdir().expect("a temp shep home");
    let paths = shep_core::paths::ShepPaths::resolve(&|_| None, dir.path());
    std::fs::create_dir_all(&paths.home).expect("the home exists");
    std::fs::write(&paths.daemon_config, text).expect("shep.toml is written");
    (dir, paths)
}

/// The socket default the settings fixtures report, the same stand-in
/// [`settings_snapshot`] uses. A fixture's own temp dir would reach a snapshot
/// as this machine's path, which is a different string on every machine that
/// runs the test.
const FAKE_SOCKET: &str = "/home/ada/.shep/run/shep.sock";

/// [`home_with`], with the settings screen open over it and the control gate
/// open. The snapshot is the one [`load_settings`] reads off the file, so a
/// dog's grants record and its checklist are the real ones. Only the socket
/// default is [`FAKE_SOCKET`]: nothing here reads that socket, and a drawn
/// snapshot must not name the machine that drew it.
pub fn settings_over(text: &str) -> (tempfile::TempDir, shep_core::paths::ShepPaths, App) {
    let (dir, paths) = home_with(text);
    let snapshot = crate::commands::settings::load_settings(
        &paths.daemon_config,
        Path::new(FAKE_SOCKET),
        (StyleLevel::Full, StyleSource::Default),
    )
    .expect("the fixture's shep.toml parses");
    let mut app = app_with(flock_of(3, 0), plain());
    app.set_control_for_tests(Control::Allowed);
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(snapshot),
    });
    (dir, paths, app)
}

/// [`settings_snapshot`]'s own keys, with `dogs` replaced, for the tests
/// that need particular names, `enabled` bits, and a matching or mismatching
/// flock.
fn settings_snapshot_with_dogs(dogs: Vec<DogView>) -> SettingsSnapshot {
    SettingsSnapshot {
        dogs,
        ..settings_snapshot()
    }
}

/// The settings screen on a bare install: [`settings_snapshot`]'s keys and no
/// dog at all, the gate closed.
pub fn app_in_settings_without_dogs() -> App {
    let mut app = app_with(flock_of(3, 0), plain());
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot_with_dogs(Vec::new())),
    });
    app
}

/// One row of a cached dog index, as the catalogue builds it: `name` is also
/// what it is adopted as.
pub fn catalogue_row(name: &str, category: &str, state: DogState) -> CatalogueRow {
    let document = serde_json::json!({
        "version": 1,
        "dogs": [{
            "name": name,
            "package": format!("shep-{name}"),
            "adopt_as": name,
            "description": format!("{name} does a thing."),
            "repo": format!("https://github.com/shep-pm/shep-{name}"),
            "license": "MIT",
            "category": category,
            "source": { "kind": "cargo", "version": "0.1.0" },
        }],
    });
    let index = crate::dog_index::parse_index(document.to_string().as_bytes())
        .expect("the fixture row parses");
    CatalogueRow {
        dog: index.dogs[0].clone(),
        version: "0.1.0".to_owned(),
        state,
    }
}

/// The settings screen with `rotate` adopted, and a cached index of three
/// dogs landed after it: `rotate` installed, `otel` and `tail-grep` not.
pub fn app_in_settings_with_an_index() -> App {
    let mut app = app_with(flock_of(3, 0), plain());
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot_with_dogs(vec![DogView::adopted(
            "rotate",
            true,
            Path::new("/opt/rotate"),
        )])),
    });
    app.update(Msg::Catalogue {
        result: Ok(Box::new(CatalogueRead {
            rows: vec![
                catalogue_row("rotate", "logs", DogState::Installed),
                catalogue_row("otel", "metrics", DogState::NotInstalled),
                catalogue_row("tail-grep", "logs", DogState::NotInstalled),
            ],
            refreshing: false,
        })),
    });
    app
}

/// `otel` runs online while the file disables it: a removed name still
/// running. `ledger` is enabled in the file and absent from the flock: a dog
/// that failed to start. Exercises [`dog_header_line`]'s join, not
/// the toggle.
pub fn app_in_settings_with_dog_drift() -> App {
    let flock = vec![
        ProcessInfo::builder(90, "otel", ProcStatus::Online)
            .pid(Some(90_000))
            .dog(Some(DogSource::BuiltIn {
                grants: None,
                events: Vec::new(),
            }))
            .build(),
    ];
    let mut app = app_with(flock, plain());
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot_with_dogs(vec![
            // Real paths, not `None`: `otel` and `ledger` are adopted dogs,
            // and every value in `[daemon] adopted_dogs` is a path.
            DogView::adopted("otel", false, Path::new("/usr/local/bin/shep-otel")),
            DogView::adopted("ledger", true, Path::new("/opt/ledger/bin/dog")),
        ])),
    });
    app
}

/// `bark` is up but has never completed a handshake
/// (`handshook: Some(false)`), so [`dog_header_line`] must read it
/// `silent`, not `online`, the same correction [`crate::vocabulary::Reported`]
/// makes for the flock table.
pub fn app_in_settings_with_silent_dog() -> App {
    let flock = vec![
        ProcessInfo::builder(91, "bark", ProcStatus::Online)
            .pid(Some(91_000))
            .dog(Some(DogSource::BuiltIn {
                grants: None,
                events: Vec::new(),
            }))
            .handshook(Some(false))
            .build(),
    ];
    let mut app = app_with(flock, plain());
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot_with_dogs(vec![DogView::built_in(
            "bark", true,
        )])),
    });
    app
}

/// Two candidate dogs for the toggle tests: `metrics` disabled, `otel`
/// enabled, so a test can pick whichever direction it means to arm.
fn settings_snapshot_for_toggle_tests() -> SettingsSnapshot {
    settings_snapshot_with_dogs(vec![
        DogView::built_in("metrics", false),
        DogView::adopted("otel", true, Path::new("/usr/local/bin/shep-otel")),
    ])
}

/// A dashboard with the settings screen open on
/// [`settings_snapshot_for_toggle_tests`], the control gate open, and the
/// cursor moved onto `name`'s dog row by real `SelectDown` keypresses.
///
/// The tree rows always sort first in `Settings::rows`, so the dog at index
/// `i` of [`settings_snapshot_for_toggle_tests`]'s own list sits at the row
/// the `Dog(i)` variant names.
pub fn app_in_settings_on_dog(name: &str) -> App {
    let mut app = app_with(flock_of(3, 0), plain());
    app.set_control_for_tests(Control::Allowed);
    app.update(Msg::Key(KeyPress::Settings));
    app.update(Msg::Settings {
        result: Ok(settings_snapshot_for_toggle_tests()),
    });
    let dog_index = settings_snapshot_for_toggle_tests()
        .dogs
        .iter()
        .position(|dog| dog.name == name)
        .expect("name is one of settings_snapshot_for_toggle_tests's own dogs");
    let target = app
        .settings()
        .unwrap()
        .rows()
        .into_iter()
        .position(|row| row == SettingsRow::Dog(dog_index))
        .expect("the dog is a row");
    for _ in 0..target {
        app.update(Msg::Key(KeyPress::SelectDown));
    }
    app
}

/// [`app_in_settings_on_dog`], named for the test that means to start on an
/// already-enabled dog: same fixture, same mechanism, a name that reads
/// what the test is asserting on without checking the dogs list.
pub fn app_in_settings_on_enabled_dog(name: &str) -> App {
    app_in_settings_on_dog(name)
}

/// The edit that writes `value` at the dotted `key`, shaped as the tree
/// shapes that key.
///
/// # Panics
///
/// If `key` is not a row of the settings tree.
#[track_caller]
pub fn setting_set(key: &str, value: &str) -> SettingEdit {
    let shape = shep_toml_shape();
    let field = shape.fields.by_key(key).expect("key is a row");
    SettingEdit::Set {
        path: shape.paths[key].clone(),
        shape: Shape::of(&field.kind).expect("the key is typed in place"),
        value: value.to_string(),
    }
}

/// The edit that removes the dotted `key`.
///
/// # Panics
///
/// If `key` is not a row of the settings tree.
#[track_caller]
pub fn setting_unset(key: &str) -> SettingEdit {
    SettingEdit::Unset {
        path: shep_toml_shape().paths[key].clone(),
    }
}