Module:EveryCRTImages

Documentation for this module may be created at Module:EveryCRTImages/doc

local p = {}

local function trim(s)
  return (s:gsub("^%s+", ""):gsub("%s+$", ""))
end

local function normalize_file_title(s)
  s = trim(s or "")
  if s == "" then return nil end

  -- If user pasted "File:Something.jpg", drop the prefix and re-add consistently
  s = s:gsub("^%s*[Ff]ile%s*:%s*", "")

  -- MediaWiki titles prefer underscores internally; spaces usually work too,
  -- but underscores avoid edge cases in SMW "Page" values.
  s = s:gsub("%s+", "_")

  return "File:" .. s
end

local function split_csv(s)
  local out = {}
  if not s or s == "" then return out end
  for part in tostring(s):gmatch("([^,]+)") do
    table.insert(out, part)
  end
  return out
end

-- Helper: get a named arg from frame.args first, then frame:getParent().args
local function getArg(frame, name, default)
  local val = frame.args[name]
  if val and val ~= "" then return val end
  local parent = frame:getParent()
  if parent then
    val = parent.args[name]
    if val and val ~= "" then return val end
  end
  return default or ""
end

-- Module-level storage: persists across all #invoke calls within one page parse
local storedImages = nil

-- Store the images list for later retrieval by recallGallery.
-- Called by {{CRT model}} when suppress_gallery is set.
-- Outputs nothing.
function p.storeImages(frame)
  storedImages = getArg(frame, "images", "")
  return ""
end

-- Render a gallery using the images previously stored by storeImages.
-- Called by {{CRT gallery}}.
function p.recallGallery(frame)
  if not storedImages or storedImages == "" then
    return ""
  end

  local mode = getArg(frame, "mode", "packed")
  local heights = getArg(frame, "heights", "160")

  local lines = {}
  for _, raw in ipairs(split_csv(storedImages)) do
    local title = normalize_file_title(raw)
    if title then
      table.insert(lines, title)
    end
  end

  if #lines == 0 then return "" end

  local wikitext = string.format(
    '<gallery mode="%s" heights="%s">\n%s\n</gallery>',
    mode, heights, table.concat(lines, "\n")
  )

  return frame:preprocess(wikitext)
end

-- Emits SMW annotations for a multi-image list:
-- [[Has images::File:...]] repeated
function p.annotate(frame)
  local args = frame:getParent().args
  local prop = args.prop or "Has images"
  local list = args.images or ""

  local out = {}
  for _, raw in ipairs(split_csv(list)) do
    local title = normalize_file_title(raw)
    if title then
      table.insert(out, string.format("{{#set:%s=%s}}", prop, title))
    end
  end

  return frame:preprocess(table.concat(out, "\n"))
end

-- Renders a gallery from the list (optional)
function p.gallery(frame)
  local args = frame:getParent().args
  local list = args.images or ""
  local mode = args.mode or "packed"
  local heights = args.heights or "160"

  local lines = {}
  for _, raw in ipairs(split_csv(list)) do
    local title = normalize_file_title(raw)
    if title then
      table.insert(lines, title)
    end
  end

  if #lines == 0 then return "" end

  local wikitext = string.format(
    '<gallery mode="%s" heights="%s">\n%s\n</gallery>',
    mode, heights, table.concat(lines, "\n")
  )

  return frame:preprocess(wikitext)
end

return p