Module:File link: Difference between revisions

    From Nonbinary Wiki
    (allow nil values as input to most of the functions, to make call-chaining with conditional variables easier)
    m (24 revisions imported from wikipedia:Module:File_link: see Topic:Vtixlm0q28eo6jtf)
     
    (15 intermediate revisions by 3 users not shown)
    Line 1: Line 1:
    -- This module provides a library for formatting image wikilinks.
    -- This module provides a library for formatting file wikilinks.


    local libraryUtil = require('libraryUtil')
    local yesno = require('Module:Yesno')
    local checkType = libraryUtil.checkType
    local checkType = require('libraryUtil').checkType


    local image = {}
    local p = {}


    function image.new(filename)
    function p._main(args)
    checkType('image.new', 1, filename, 'string', true)
    checkType('_main', 1, args, 'table')
    local obj, data = {}, {}
     
    -- This is basically libraryUtil.checkTypeForNamedArg, but we are rolling our
    local checkSelf = libraryUtil.makeCheckSelfFunction(
    -- own function to get the right error level.
    'image',
    local function checkArg(key, val, level)
    'image',
    if type(val) ~= 'string' then
    obj,
    'image object'
    )
    -- Set the filename if we were passed it as an input to image.new.
    if filename then
    data.theName = filename
    end
    function data:name(s)
    checkSelf(self, 'image:name')
    checkType('image:name', 1, s, 'string')
    data.theName = s
    return self
    end
    function data:format(s, filename)
    checkSelf(self, 'image:format')
    checkType('image:format', 1, s, 'string', true)
    checkType('image:format', 2, format, 'string', true)
    local validFormats = {
    thumb = true,
    thumbnail = true,
    frame = true,
    framed = true,
    frameless = true
    }
    if s == nil or validFormats[s] then
    data.theFormat = s
    data.theFormatFilename = filename
    else
    error(string.format(
    error(string.format(
    "bad argument #1 to 'image:format' ('%s' is not a valid format)",
    "type error in '%s' parameter of '_main' (expected string, got %s)",
    s
    key, type(val)
    ), 2)
    ), level)
    end
    end
    return self
    end
    end


    local function sizeError(methodName)
    local ret = {}
    -- Used for formatting duplication errors in size-related methods.
     
    error(string.format(
    -- Adds a positional parameter to the buffer.
    "duplicate size argument detected in '%s'"
    local function addPositional(key)
    .. " ('upright' cannot be used in conjunction with height or width)",
    local val = args[key]
    methodName
    if not val then
    ), 3)
    return nil
    end
    function data:width(px)
    checkSelf(self, 'image:width')
    checkType('image:width', 1, px, 'number', true)
    if px and data.isUpright then
    sizeError('image:width')
    end
    end
    data.theWidth = px
    checkArg(key, val, 4)
    return self
    ret[#ret + 1] = val
    end
    end
     
    function data:height(px)
    -- Adds a named parameter to the buffer. We assume that the parameter name
    checkSelf(self, 'image:height')
    -- is the same as the argument key.
    checkType('image:height', 1, px, 'number', true)
    local function addNamed(key)
    if px and data.isUpright then
    local val = args[key]
    sizeError('image:height')
    if not val then
    return nil
    end
    end
    data.theHeight = px
    checkArg(key, val, 4)
    return self
    ret[#ret + 1] = key .. '=' .. val
    end
    end
     
    function data:upright(isUpright, factor)
    -- Filename
    checkSelf(self, 'image:upright')
    checkArg('file', args.file, 3)
    checkType('image:upright', 1, isUpright, 'boolean', true)
    ret[#ret + 1] = 'File:' .. args.file
    checkType('image:upright', 2, factor, 'number', true)
     
    if isUpright and (data.theWidth or data.theHeight) then
    -- Format
    sizeError('image:upright')
    if args.format then
    end
    checkArg('format', args.format)
    data.isUpright = isUpright
    if args.formatfile then
    data.uprightFactor = factor
    checkArg('formatfile', args.formatfile)
    return self
    ret[#ret + 1] = args.format .. '=' .. args.formatfile
    end
    function data:resetSize()
    checkSelf(self, 'image:resetSize')
    for i, field in ipairs{'theWidth', 'theHeight', 'isUpright', 'uprightFactor'} do
    data[field] = nil
    end
    return self
    end
    function data:location(s)
    checkSelf(self, 'image:location')
    checkType('image:location', 1, s, 'string', true)
    local validLocations = {
    right = true,
    left = true,
    center = true,
    none = true
    }
    if s == nil or validLocations[s] then
    data.theLocation = s
    else
    else
    error(string.format(
    ret[#ret + 1] = args.format
    "bad argument #1 to 'image:location' ('%s' is not a valid location)",
    s
    ), 2)
    end
    end
    return self
    end
    end
     
    function data:alignment(s)
    -- Border
    checkSelf(self, 'image:alignment')
    if yesno(args.border) then
    checkType('image:alignment', 1, s, 'string', true)
    ret[#ret + 1] = 'border'
    local validAlignments = {
    baseline = true,
    middle = true,
    sub = true,
    super = true,
    ['text-top'] = true,
    ['text-bottom'] = true,
    top = true,
    bottom = true
    }
    if s == nil or validAlignments[s] then
    data.theAlignment = s
    else
    error(string.format(
    "bad argument #1 to 'image:alignment' ('%s' is not a valid alignment)",
    s
    ), 2)
    end
    return self
    end
    end
     
    function data:border(hasBorder)
    addPositional('location')
    checkSelf(self, 'image:border')
    addPositional('alignment')
    checkType('image:border', 1, hasBorder, 'boolean', true)
    addPositional('size')
    data.hasBorder = hasBorder
    addNamed('upright')
    return self
    addNamed('link')
    addNamed('alt')
    addNamed('page')
    addNamed('class')
    addNamed('lang')
    addNamed('start')
    addNamed('end')
    addNamed('thumbtime')
    addPositional('caption')
     
    return string.format('[[%s]]', table.concat(ret, '|'))
    end
     
    function p.main(frame)
    local origArgs = require('Module:Arguments').getArgs(frame, {
    wrappers = 'Template:File link'
    })
    if not origArgs.file then
    error("'file' parameter missing from [[Template:File link]]", 0)
    end
    end
    function data:link(s)
    checkSelf(self, 'image:link')
    checkType('image:link', 1, s, 'string', true)
    data.theLink = s
    return self
    end
    function data:alt(s)
    checkSelf(self, 'image:alt')
    checkType('image:alt', 1, s, 'string', true)
    data.theAlt = s
    return self
    end
    function data:caption(s)
    checkSelf(self, 'image:caption')
    checkType('image:caption', 1, s, 'string', true)
    data.theCaption = s
    return self
    end
    function data:render()
    checkSelf(self, 'image:render')
    local ret = {}
    -- Image name.
    if not data.theName then
    error('image:render: no image name was found')
    end
    ret[#ret + 1] = 'File:' .. data.theName
    -- Image format
    if data.theFormat and data.theFormatFilename then
    ret[#ret + 1] = data.theFormat .. '=' .. data.theFormatFilename
    elseif data.theFormat then
    ret[#ret + 1] = data.theFormat
    end
    -- Border
    if data.hasBorder then
    ret[#ret + 1] = 'border'
    end
    -- Location
    ret[#ret + 1] = data.theLocation


    -- Alignment
    -- Copy the arguments that were passed to a new table to avoid looking up
    ret[#ret + 1] = data.theAlignment
    -- every possible parameter in the frame object.
    local args = {}
    -- Size
    for k, v in pairs(origArgs) do
    if data.isUpright and data.uprightFactor then
    -- Make _BLANK a special argument to add a blank parameter. For use in
    ret[#ret + 1] = 'upright=' .. tostring(data.uprightFactor)
    -- conditional templates etc. it is useful for blank arguments to be
    elseif data.isUpright then
    -- ignored, but we still need a way to specify them so that we can do
    ret[#ret + 1] = 'upright'
    -- things like [[File:Example.png|link=]].
    elseif data.theWidth and data.theHeight then
    if v == '_BLANK' then
    ret[#ret + 1] = string.format('%dx%dpx', data.theWidth, data.theHeight)
    v = ''
    elseif data.theWidth then
    ret[#ret + 1] = tostring(data.theWidth) .. 'px'
    elseif data.theHeight then
    ret[#ret + 1] = string.format('x%dpx', data.theHeight)
    end
    -- Link
    if data.theLink then
    ret[#ret + 1] = 'link=' .. data.theLink
    end
    -- Alt
    if data.theAlt then
    ret[#ret + 1] = 'alt=' .. data.theAlt
    end
    end
    args[k] = v
    -- Caption
    ret[#ret + 1] = data.theCaption
    return string.format('[[%s]]', table.concat(ret, '|'))
    end
    local privateFields = {
    theName = true,
    theFormat = true,
    theFormatFilename = true,
    theWidth = true,
    theHeight = true,
    isUpright = true,
    uprightFactor = true,
    theLocation = true,
    theAlignment = true,
    hasBorder = true,
    theLink = true,
    theAlt = true,
    theCaption = true
    }
    local readOnlyFields = {}
    for field in pairs(data) do
    readOnlyFields[field] = true
    end
    readOnlyFields.theName = nil -- This is set if a filename is given to image.new, so remove it.
    local function restrictedFieldError(key, restriction)
    error(string.format(
    "image object field '%s' is %s",
    tostring(key),
    restriction
    ), 3)
    end
    end
    return p._main(args)
    setmetatable(obj, {
    __index = function (t, key)
    if privateFields[key] then
    restrictedFieldError(key, 'private')
    else
    return data[key]
    end
    end,
    __newindex = function (t, key, value)
    if privateFields[key] then
    restrictedFieldError(key, 'private')
    elseif readOnlyFields[key] then
    restrictedFieldError(key, 'read-only')
    else
    data[key] = value
    end
    end,
    __tostring = function (t)
    return t:render()
    end,
    __pairs = function ()
    local temp = {}
    for k, v in pairs(data) do
    if not privateFields[k] then
    temp[k] = v
    end
    end
    return pairs(temp)
    end
    })
    return obj
    end
    end


    return image
    return p

    Latest revision as of 11:42, 21 May 2021

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

    -- This module provides a library for formatting file wikilinks.
    
    local yesno = require('Module:Yesno')
    local checkType = require('libraryUtil').checkType
    
    local p = {}
    
    function p._main(args)
    	checkType('_main', 1, args, 'table')
    
    	-- This is basically libraryUtil.checkTypeForNamedArg, but we are rolling our
    	-- own function to get the right error level.
    	local function checkArg(key, val, level)
    		if type(val) ~= 'string' then
    			error(string.format(
    				"type error in '%s' parameter of '_main' (expected string, got %s)",
    				key, type(val)
    			), level)
    		end
    	end
    
    	local ret = {}
    
    	-- Adds a positional parameter to the buffer.
    	local function addPositional(key)
    		local val = args[key]
    		if not val then
    			return nil
    		end
    		checkArg(key, val, 4)
    		ret[#ret + 1] = val
    	end
    
    	-- Adds a named parameter to the buffer. We assume that the parameter name
    	-- is the same as the argument key.
    	local function addNamed(key)
    		local val = args[key]
    		if not val then
    			return nil
    		end
    		checkArg(key, val, 4)
    		ret[#ret + 1] = key .. '=' .. val
    	end
    
    	-- Filename
    	checkArg('file', args.file, 3)
    	ret[#ret + 1] = 'File:' .. args.file
    
    	-- Format
    	if args.format then
    		checkArg('format', args.format)
    		if args.formatfile then
    			checkArg('formatfile', args.formatfile)
    			ret[#ret + 1] = args.format .. '=' .. args.formatfile
    		else
    			ret[#ret + 1] = args.format
    		end
    	end
    
    	-- Border
    	if yesno(args.border) then
    		ret[#ret + 1] = 'border'
    	end
    
    	addPositional('location')
    	addPositional('alignment')
    	addPositional('size')
    	addNamed('upright')
    	addNamed('link')
    	addNamed('alt')
    	addNamed('page')
    	addNamed('class')
    	addNamed('lang')
    	addNamed('start')
    	addNamed('end')
    	addNamed('thumbtime')
    	addPositional('caption')
    
    	return string.format('[[%s]]', table.concat(ret, '|'))
    end
    
    function p.main(frame)
    	local origArgs = require('Module:Arguments').getArgs(frame, {
    		wrappers = 'Template:File link'
    	})
    	if not origArgs.file then
    		error("'file' parameter missing from [[Template:File link]]", 0)
    	end
    
    	-- Copy the arguments that were passed to a new table to avoid looking up
    	-- every possible parameter in the frame object.
    	local args = {}
    	for k, v in pairs(origArgs) do
    		-- Make _BLANK a special argument to add a blank parameter. For use in
    		-- conditional templates etc. it is useful for blank arguments to be
    		-- ignored, but we still need a way to specify them so that we can do
    		-- things like [[File:Example.png|link=]].
    		if v == '_BLANK' then
    			v = ''
    		end
    		args[k] = v
    	end
    	return p._main(args)
    end
    
    return p