Модуль:Cite tweet/пісочниця
 | Ця сторінка — пісочниця для модуля Модуль:Cite tweet (різн.). |
Документація модуля[створити] | Зараз цей модуль не має відповідної документації. Якщо вам відомі призначення та засади використання цього модуля, будь ласка, напишіть хоча б коротеньку документацію. |
| Документація вище включена з Модуль:Cite tweet/документація. (ред. | історія) Дописувачі можуть експериментувати на підсторінках пісочниці (ред. | різн.) та тести (створити) цього модуля. Підсторінки цієї сторінки. |
local p = {}
local TwitterSnowflake = require('Module:TwitterSnowflake')
local CiteWeb = require('Module:Cite web')['']
local err_msgs_t = { -- a sequence of snowflake date error messages; all must be terminated with a semicolon (;)
' Розбіжність дати в параметрах <kbd>|date=</kbd> / <kbd>|number=</kbd>;', -- [1]
' Вимагається параметр <kbd>|date=</kbd>;', -- [2]
' Недійсне значення параметра <kbd>|number=</kbd>;', -- [3]
' Відсутній або пустий параметр <kbd>|number=</kbd>;', -- [4]
' Відсутній або пустий параметр <kbd>|user=</kbd>;', -- [5]
' Перевірте значення дати у: <kbd>|date=</kbd>;' -- [6]
}
--[[--------------------------< M A I N >----------------------------------------------------------------------
]]
p.main = function(frame)
return p[''](frame)
end
--[[--------------------------< S U P P R E S S _ U R L _ I N _ T I T L E >------------------------------------
This function searches for and suppresses urls in |title=, |script-title=, and |trans-title= parameters so that
{{cite web}} won't emit 'External link in |title=' error messages when rendered In the redering, urls are correctly
formed as they were in the original tweet. The function looks for valid schemes and then wraps them in
<nowiki>..</nowiki> tags.
]]
local function suppress_url_in_title (frame, title)
local schemes = { -- schemes commonly found in tweets
'https://',
'http://',
'ftp://',
}
if title then -- when there is a title, suppress any urls with known schemes; abandon else
for _, scheme in ipairs (schemes) do -- spin through the list of schemes looking for a match
title = title:gsub (scheme, frame:callParserFunction ('#tag', {'nowiki', scheme})); -- replace the scheme with its nowiki'd form (a strip marker)
end
end
return title; -- done; return <title> modified or not
end
--[[--------------------------< D A T E _ N U M B E R _ U R L _ G E T >----------------------------------------
extract |date= and |number= parameter values if present. Extract date from |number= and compare to |date=.
contruct |url= for {{cite web}} from the base url and |number= and |user=
returns nothing; adds date, number, url to <cite_args_t>; adds error message(s) to <errors_t>.
]]
local function date_number_url_get (args_t, cite_args_t, errors_t)
local err_msg_index;
cite_args_t.url = 'https://twitter.com/'; -- initialize with minimal base url because {{cite web}} requires |url=
if not args_t.user then
table.insert (errors_t, err_msgs_t[5]); -- error: missing or empty |user=
end
if not args_t.date and not args_t.number then
err_msg_index = 4; -- error: missing or empty |number=
elseif tonumber (args_t.number) then -- |number= without |date=? use number
cite_args_t.date = TwitterSnowflake.snowflakeToDate ({ args = {id_str = args_t.number} }); -- sets cite_args_t.date post-date or to 'November 4, 2010' when tweet posted before that date
-- cite_args_t.number = args_t.number;
if args_t.user then -- |number= appears to have a valid value; if |user= has a value
cite_args_t.url = cite_args_t.url .. args_t.user .. '/status/' .. args_t.number; -- construct |url= for {{cite web}}
end
elseif args_t.number then -- |number= with a value that can't be converted to a number; invalid
err_msg_index = 3; -- error: invalid number (couldn't convert to number)
elseif not args_t.number then -- |date= without |number= use date
cite_args_t.date = args_t.date; -- |date= has a value, use it
err_msg_index = 4; -- error: missing or empty |number=
end
if err_msg_index then
table.insert (errors_t, err_msgs_t[err_msg_index]); -- invalid number or missing necessary parameters so abandon
return;
end
err_msg_index = TwitterSnowflake.datecheck ({ args = { -- returns error message index number on error; nil else
id_str = args_t.number or '',
date = args_t.date or '',
error1 = 1, -- these numbers are indexes into <err_msgs_t> to override snowflake default error messages
error2 = 2, -- done this way to avoid long string comparison looking for
error3 = 3, -- the undated-pre-twitter-epoch-post message
error4 = 6 -- date in unsupported format
}});
if 2 == err_msg_index then -- when no date and posted before twitter epoch
cite_args_t.date = nil; -- suppress default date because {{cite tweet}} should not claim in its own voice that the undated post was posted 2010-11-04
end
table.insert (errors_t, err_msgs_t[err_msg_index]); -- add error message
end
--[[--------------------------< p[''] >------------------------------------------------------------------------
construct parameter set for {{cite web}} from {{cite tweet}} parameters; do some error checking
]]
p[''] = function(frame)
local args_t = require ('Module:Arguments').getArgs (frame);
--Нижче переприсвоєння параметрів для підтримки україномовних параметрів
args_t.date = args_t.date or args_t['дата']
args_t.user = args_t.user or args_t['користувач']
args_t.number = args_t.number or args_t['номер']
args_t.retweet = args_t.retweet or args_t['ретвіт'] -- краще тут переприсвоїти ніж потім двічі писати цей код
args_t.link = args_t.link or args_t['посилання'] -- така ж ситуації і для посилання
if not (args_t.date == nil or args_t.date == '') then
args_t.date = args_t.date:gsub(" року", "") -- прибираємо слово «року» разом із пробілом, щоб не заважав перевіряти дату (в TwitterSnowflake ширша перевірка на неправильний формат здійснюється)
end
local is_link_true = (args_t.link == 'no' or args_t.link == 'ні') -- отримуємо булеве значення тут, що додати підтримку слова «ні»
local cite_args_t = {
title = suppress_url_in_title (frame, args_t.title or args_t['назва']),
['script-title'] = suppress_url_in_title (frame, args_t['script-title'] or args_t['переклад-назви']),
['trans-title'] = suppress_url_in_title (frame, args_t['trans-title'] or args_t['письмо-назви']),
language = args_t.language or args_t['мовою'],
last1 = args_t.last1 or args_t.last or args_t['прізвище'] or args_t['прізвище1'],
first1 = args_t.first1 or args_t.first or args_t['ім\'я'] or args_t['ім\'я1'],
author1 = args_t.author1 or args_t.author or args_t['автор'] or args_t['автор1'],
['author-link'] = args_t['author-link'] or args_t.authorlink or args_t['автор-посилання'],
others = args_t.retweet and ('Ретвіт від ' .. args_t.retweet),
via = is_link_true and 'Твіттер' or '[[Твіттер]]',
type = 'Твіт',
location = args_t.location or args_t['місце'], -- why |location=? tweets are online; there is no publication place
['access-date'] = args_t['access-date'] or args_t.accessdate or args_t['дата-доступу'],
['archive-date'] = args_t['archive-date'] or args_t.archivedate or args_t['дата-архіву'],
['archive-url'] = args_t['archive-url'] or args_t.archiveurl or args_t['url-архіву'],
['url-status'] = args_t['url-status'] or args_t['статус-url'],
['dead-url'] = args_t['dead-url'] or args_t.deadurl or args_t['мертвий-url'],
quote = args_t.quote or args_t['цитата'],
ref = args_t.ref or args_t['якірець'],
df = args_t.df or args_t['фд'],
mode = args_t.mode or args_t['режим']
}
local errors_t = {'<span class="cs1-visible-error citation-comment"> <kbd>{{[[Шаблон:Cite tweet|Cite tweet]]}}</kbd>:'}; -- initialize sequence of error messages with style tag
date_number_url_get (args_t, cite_args_t, errors_t); -- add |date=, |number=, |url= to <cite_args_t>
local author = ((cite_args_t.last1 and cite_args_t.first1) and cite_args_t.last1 .. ', ' .. cite_args_t.first1) or -- concatenate |last= with |first= for |author-mask=
(cite_args_t.last1 and cite_args_t.last1) or -- only |last= for |author-mask=
(cite_args_t.author1 and cite_args_t.author1:gsub('^%(%((.+)%)%)$', '%1')); -- |author= or |author1= stripped of accept-as-written markup for |author-mask=
if author and args_t.user then
cite_args_t['author-mask'] = author .. ' [@' .. (args_t.user or '') .. ']' -- concatenate <author> and |user= into |author-mask=
elseif args_t.user then
cite_args_t.author1 = '((' .. args_t.user .. '))'; -- just the user name for cs1|2 metadata
cite_args_t['author-mask'] = '@' .. args_t.user; -- make a mask for display
else -- here when neither <author> nor |user=
cite_args_t.author1 = nil; -- so unset
end
frame.args = cite_args_t; -- overwrite frame arguments
local rendering = CiteWeb (frame); -- render the template
---------- error messaging ----------
if errors_t[2] then -- errors_t[2] nil when no errors
if rendering:find ('cs1-visible-error', 1, true) then -- rendered {{cite web}} with errors will have this string
errors_t[1] = errors_t[1]:gsub ('> <', '>; <'); -- insert semicolon to terminate cs1|2 error message string
end
errors_t[#errors_t] = errors_t[#errors_t]:gsub (';$',' ([[Шаблон:Cite_tweet#Помилки|довідка]])'); -- replace trailing semicolon with help link
table.insert (errors_t, '</span>'); -- close style span tag
if mw.title.getCurrentTitle():inNamespace (0) then -- mainspace only
table.insert (errors_t, '[[Категорія:Шаблони Cite tweet з помилками]]'); -- add error category
end
rendering = rendering .. table.concat (errors_t); -- append error messaging, help links and catagories
end
return rendering;
end
return p