-- AD Field View
-- Rene regler for fanen Marker: rækkefølge, statusord, planens tekst og jordtilstand. GUI'et oversætter
-- nøglerne.

ADFieldView = {}

-- Alle gårdens marker (slåafgrøder, høstafgrøder og bare), sorteret efter marknummer.
function ADFieldView.rows(infos, fieldsById)
    local rows = {}
    for _, info in ipairs(infos or {}) do
        table.insert(rows, {info = info, field = fieldsById[info.id] or ADFieldModel.newField(info.id)})
    end
    table.sort(rows, function(a, b) return a.info.id < b.info.id end)
    return rows
end

function ADFieldView.statusKey(field, info)
    if info.markerId == nil then
        return "spu_field_noMarker"
    end
    return "spu_field_stage_" .. tostring(field.stage)
end

-- Planens tekstnøgle ud fra markens art: ensilage/hø for slåafgrøder, høst, eller klargøring (bar mark).
function ADFieldView.planKey(plan, kind)
    if kind == "bare" then return "spu_field_plan_prep" end
    return "spu_field_plan_" .. ADFieldModel.product(plan, kind)
end

-- Hvad jorden trænger til, som korte nøgler i fast rækkefølge: kalk, pløj, gødning, ukrudt.
function ADFieldView.soilParts(info)
    local parts = {}
    local needs = info.needs or {}
    if needs.lime then table.insert(parts, "lime") end
    if needs.plow then table.insert(parts, "plow") end
    if info.fert ~= nil and info.fertMax ~= nil and info.fert < info.fertMax then table.insert(parts, "fert") end
    if (info.weed or 0) >= ADFieldModel.WEED_MIN then table.insert(parts, "weed") end
    return parts
end

-- Afgrødekolonnen: høstet mark = "stub (Hvede)", bar mark = "bar jord", ellers afgrøden.
function ADFieldView.cropText(info, getText)
    if info.kind == "bare" and info.stubbleOf ~= nil then
        return string.format(getText("spu_field_stubble"), tostring(info.stubbleOf))
    end
    if info.kind == "bare" then return getText("spu_field_bare") end
    return tostring(info.cropTitle or "-")
end

-- Lagervalget for en mark: marksilo først, så gæringssiloer, så efter afstand. Valgte, marksiloer og
-- gæringssiloer vises altid; af resten kun de `limit` nærmeste (34 ens "Farma 500"-rækker var ulæselige).
-- entries = {{id, distance, fieldSilo, fermenter, chosen}}.
function ADFieldView.storeRows(entries, limit)
    local sorted = {}
    for _, entry in ipairs(entries or {}) do table.insert(sorted, entry) end
    local function rank(e) return e.fieldSilo and 0 or (e.fermenter and 1 or 2) end
    table.sort(sorted, function(a, b)
        if rank(a) ~= rank(b) then return rank(a) < rank(b) end
        if (a.distance or math.huge) ~= (b.distance or math.huge) then return (a.distance or math.huge) < (b.distance or math.huge) end
        return tostring(a.id) < tostring(b.id)
    end)
    local rows, others, hidden = {}, 0, 0
    for _, entry in ipairs(sorted) do
        if entry.chosen or entry.fieldSilo or entry.fermenter then
            table.insert(rows, entry)
        elseif others < limit then
            others = others + 1
            table.insert(rows, entry)
        else
            hidden = hidden + 1
        end
    end
    return rows, hidden
end

-- "90 m" / "1,4 km"
function ADFieldView.distanceText(meters)
    if meters == nil then return "?" end
    if meters < 1000 then return string.format("%d m", math.floor(meters + 0.5)) end
    return (string.gsub(string.format("%.1f km", meters / 1000), "%.", ","))
end

-- ---- status pr. mark (Fields-listen) ----

-- Årsager der betyder "kan ikke" (rød) — resten er "venter" (gul).
ADFieldView.ERROR_REASONS = {
    spu_field_reason_noRig = true, spu_field_reason_cannotDo = true, spu_field_reason_tooWide = true,
    spu_field_reason_tooNarrow = true, spu_field_reason_widthUnknown = true, spu_field_reason_noSowFruit = true,
}

-- s = {hasMarker, working, awaiting, startRequested, reasonKey} -> "running"|"waiting"|"error"|"stopped"
function ADFieldView.fieldStatus(s)
    if not s.hasMarker then return "error" end
    if s.reasonKey ~= nil and ADFieldView.ERROR_REASONS[s.reasonKey] then return "error" end
    if s.awaiting or s.startRequested then return "waiting" end
    if s.working then return s.reasonKey ~= nil and "waiting" or "running" end
    if s.reasonKey ~= nil then return "waiting" end
    return "stopped"
end

-- Må [Start]/[Stop] trykkes? Stop altid når marken arbejder; Start kræver en markør.
function ADFieldView.canStart(s)
    return s.working == true or s.hasMarker == true
end