Модуль:CTD: различия между версиями
мНет описания правки |
мНет описания правки |
||
Строка 131: | Строка 131: | ||
local description = '' | local description = '' | ||
local origin = '' | local origin = '' | ||
local lifetime = '' | local lifetime = '' -- comment: date | ||
local lifetime_short = '' -- just date | |||
local term_link = '' | local term_link = '' | ||
local ctd_title = '<span style="border-bottom: 1px dotted gray; cursor:help;" title="Большой теософский словарь">БТС</span>' | local ctd_title = '<span style="border-bottom: 1px dotted gray; cursor:help;" title="Большой теософский словарь">БТС</span>' | ||
Строка 207: | Строка 208: | ||
lifetime = ' Время существования: '.. frame.args['lifetime'] | lifetime = ' Время существования: '.. frame.args['lifetime'] | ||
end | end | ||
lifetime_short = frame.args['lifetime'] | |||
end | end | ||
if not isempty(frame.args['published']) then | if not isempty(frame.args['published']) then | ||
lifetime = ' Время публикации: '.. frame.args['published'] | lifetime = ' Время публикации: '.. frame.args['published'] | ||
lifetime_short = frame.args['published'] | |||
end | end | ||
if not isempty(frame.args['lifetime']) | if not isempty(frame.args['lifetime']) | ||
Строка 231: | Строка 234: | ||
term_to_show = term_to_show ..', '.. specification | term_to_show = term_to_show ..', '.. specification | ||
end | end | ||
-- considering | -- considering TYPE of VIEW | ||
if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then | if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then | ||
text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="' .. | local popup_str = description .. lifetime | ||
if term_type == 'литература' then | |||
popup_str = term_to_show ..', '.. lifetime | |||
elseif term_type == 'литература с оригиналом' then | |||
popup_str = term_to_show ..', '.. lifetime ..' '.. origin | |||
end | |||
text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="' .. popup_str .. ' (БТС, ' .. term .. ').">' .. text .. '</span>' | |||
end | end | ||
Строка 253: | Строка 262: | ||
if term_type == 'литература' then | if term_type == 'литература' then | ||
comment = term_to_show .. origin | comment = term_to_show ..', '.. lifetime_short | ||
elseif term_type == 'литература с оригиналом' then | |||
comment = term_to_show ..', '.. lifetime_short ..' '.. origin | |||
end | end | ||
Версия от 05:30, 16 июня 2023
В этом модуле хранятся функции для Большого теософского словаря.
Одна из веток использования:
- {{ТД источник}} ← {{ЕПБ.Источник}} ← {{Кратко из БТС}} ← {{Кратко из БТС (оформление)}} ← Модуль:CTD.info()
Для отладки:
=p.info{ args={ ["type"] = "личность", ["term"] = "Понятие", ["term_to_show"] = "Поня́тие для показа", ["description"] = "Полное описание.", ["shortly"] = "Краткое описание.", ["origin"] = "происхождение", ["lifetime"] = "1831-1891", ["wiki_page"] = "Вики страница", ["userparam"] = "текст@сноска@личность@серый" }}
local ctd = {} -- функции для Большого теософского словаря; copied from https://ru.teopedia.org/lib/Module:CTD
local function isempty(s)
return s == nil or s == ''
end
-- Split string 'inputstr' by separator 'sep' and return values in table
-- Issue: do not insert nil value if in the middle; f.e.: текст@@выражение@
local function split_string(inputstr, sep)
if sep == nil then
sep = "%s"
end
local t={}
for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
table.insert(t, str)
end
return t
end
-- Convert local links [[link|text]] and URL [link text] to plain text.
-- See original function in module PM.
local function remove_links( wiki_str )
local str = wiki_str
-- remove local links
i = mw.ustring.find(str,'[[',1,true)
j = mw.ustring.find(str,']]',i,true)
while i ~= nil do
local link_text = mw.ustring.sub(str, i+2, j-1)
local k = mw.ustring.find(link_text, '|', 1, true)
if k ~= nil then
link_text = mw.ustring.sub(link_text, k+1)
end
str = mw.ustring.sub(str, 1, i-1) .. link_text .. mw.ustring.sub(str, j+2, -1)
i = mw.ustring.find(str,'[[',1,true)
j = mw.ustring.find(str,']]',i,true)
end
-- remove URL
i = mw.ustring.find(str,'[http',1,true)
j = mw.ustring.find(str,']',i,true)
while i ~= nil do
local link_text = mw.ustring.sub(str, i+1, j-1)
local k = mw.ustring.find(link_text, ' ', 1, true)
if k ~= nil then
link_text = mw.ustring.sub(link_text, k+1)
end
str = mw.ustring.sub(str, 1, i-1) .. link_text .. mw.ustring.sub(str, j+1, -1)
i = mw.ustring.find(str,'[http',1,true)
j = mw.ustring.find(str,']',i,true)
end
return str
end
-- NOT FINISHED
-- Add a point at the end of text, check for ".." and "...."
local function point_at_end( text )
local str = text .. '.'
-- check for 2 or 4 points at ending restrict to 1 or 3.
return str
end
-- Create short description without hyper links
-- Used in : Шаблон:Понятие БТС
-- Call example:
-- {{#invoke: CTD | shortly
-- | short_text = Short description, if exist
-- | long_text = Long description
-- }}
function ctd.shortly( frame )
local result = ''
-- check if sort description specified
if not isempty(frame.args['short_text']) then
result = frame.args['short_text']
else
result = frame.args['long_text']
-- keep only text before Category
local i = mw.ustring.find(result,'[[Категория',1,true)
if i ~= nil then
result = mw.ustring.sub(result, 1, i-1)
end
-- convert all links to plain text
result = remove_links(result)
-- take only first 100 characters; string.sub() uses bytes instead of chars
if mw.ustring.len(result) > 100 then
result = mw.ustring.sub( result, 1, 100) .. '...'
end
end
-- Use function point_at_end() when finished
-- return point_at_end(result)
return result
end
-- Invoke information from CTD about a TERM and shows it in footnote, pop-up or right next to term in square brackets.
-- Used in : Шаблон:Кратко из БТС (оформление)
-- Based on: Шаблон:Понятие БТС
-- Call example:
-- {{#invoke: CTD | info
-- | term = Term, that is word or phrase
-- | term_to_show = Term with accent or diacritic marks
-- | lifetime = Lifetime (for person or conception) or day of issue (for literature and periodical)
-- | shortly = Short description
-- | description = Full description
-- | origin = Origin
-- | wiki_page = Wiki page title
-- | author = Author of a book or an article; applied to literature
-- | author_short = Name with initials
-- | published = Book or article published; applied to literature
-- | userparam = text@view@type@style@specification
-- }}
-- Where 'userparam' consist of all the parameters that can not be fetched by symantic property:
-- * text = text to show; generally it is the original text of request - term or name
-- * view = style of displaying information: подсказка, сноска, скобки, текст
-- * type = type of term: понятие (по умолчанию), личность, выражение, литература, периодика / conception, person, expression, literature, periodical
-- * style= серый / gray
-- * specification = уточнение к литературному источнику: том, страница, глава и т.п.
-- View, type and style are language dependent parameters, consider changes in code below.
-- TODO: Всплывающую подсказку сделать вики текстом и добавить ссылку [[{{{БТС статья}}}|БТС]]
function ctd.info( frame )
local term = ''
local term_to_show = ''
local reference = ''
local description = ''
local origin = ''
local lifetime = '' -- comment: date
local lifetime_short = '' -- just date
local term_link = ''
local ctd_title = '<span style="border-bottom: 1px dotted gray; cursor:help;" title="Большой теософский словарь">БТС</span>'
-- split 'text@view' value of parameter 'userparam' in two variables
--local i, j = string.find(frame.args['userparam'],'@',1,true)
--local text = string.sub(frame.args['userparam'], 1, i-1)
--local view = string.sub( string.lower(frame.args['userparam']), j+1 )
-- split 'userparam' in variables
--local t = split_string(frame.args['userparam'],'@')
local t = mw.text.split(frame.args['userparam'],'@')
local text_original, view, term_type, style, specification = t[1], t[2], t[3], t[4], t[5]
local text = text_original
if isempty(view) then view = 'подсказка' end
if isempty(term_type) then term_type = 'понятие' end
--if isempty(style) then style = 'серый' end
-- define term to show, i.e. with accent and diacritic
if not isempty(frame.args['term_to_show']) then
term_to_show = frame.args['term_to_show']
elseif not isempty(frame.args['term']) then
term_to_show = frame.args['term']
else
term_to_show = text
end
-- define term in a simple form as a title in dictionary
if not isempty(frame.args['term']) then
term = frame.args['term']
else
term = text
end
-- check if short description is specified
if not isempty(frame.args['shortly']) then
description = frame.args['shortly']
elseif not isempty(frame.args['translation']) then -- for term type = expression
description = frame.args['translation']
else
description = frame.args['description']
end
-- construct origin string
-- style for expression: (lang. origin)
-- all other types: (origin, lifetime)
if not isempty(frame.args['origin'])
or not isempty(frame.args['lifetime'])
or not isempty(frame.args['language']) then
origin = ' ('
if not isempty(frame.args['language']) then
origin = origin ..frame.args['language'] .. '. '
end
if not isempty(frame.args['origin']) then
origin = origin .. frame.args['origin']
end
if not isempty(frame.args['origin']) and
not isempty(frame.args['lifetime']) or not isempty(frame.args['published'])then
origin = origin .. ', '
end
if not isempty(frame.args['lifetime']) then
origin = origin .. frame.args['lifetime']
elseif not isempty(frame.args['published']) then
origin = origin .. frame.args['published']
end
origin = origin .. ')'
end
-- construct lifetime string for pop-up message
if not isempty(frame.args['lifetime']) then
if term_type == 'личность' then
lifetime = ' Время жизни: '.. frame.args['lifetime']
elseif term_type == 'выражение' then
lifetime = ' Время применения: '.. frame.args['lifetime']
else
lifetime = ' Время существования: '.. frame.args['lifetime']
end
lifetime_short = frame.args['lifetime']
end
if not isempty(frame.args['published']) then
lifetime = ' Время публикации: '.. frame.args['published']
lifetime_short = frame.args['published']
end
if not isempty(frame.args['lifetime'])
or not isempty(frame.args['published']) then
lifetime = lifetime .. '.'
end
-- set hyperlink if there is a wiki page for a term
if not isempty(frame.args['wiki_page']) then
term_to_show = '[['.. frame.args['wiki_page'] ..'|'.. term_to_show ..']]'
end
-- set author if we deal with literature
if not isempty(frame.args['author_short']) then
term_to_show = frame.args['author_short'] ..', «'.. term_to_show ..'»'
elseif not isempty(frame.args['author']) then
term_to_show = frame.args['author'] ..', «'.. term_to_show ..'»'
end
-- add volume, chapter, page and so on
if not isempty(specification) then
term_to_show = term_to_show ..', '.. specification
end
-- considering TYPE of VIEW
if view == 'подсказка' or view == 'сноска и подсказка' or view == 'подсказка и сноска' then
local popup_str = description .. lifetime
if term_type == 'литература' then
popup_str = term_to_show ..', '.. lifetime
elseif term_type == 'литература с оригиналом' then
popup_str = term_to_show ..', '.. lifetime ..' '.. origin
end
text = '<span style="border-bottom: 1px dotted gray; cursor: help;" title="' .. popup_str .. ' (БТС, ' .. term .. ').">' .. text .. '</span>'
end
-- вид "сноска" и "текст" одинаковый; второй применяется в случаях, когда сноска указывается вручную, поэтому он повторяет вид "сноска", только без тега <ref>
if view == 'сноска' or view == 'сноска и подсказка' or view == 'подсказка и сноска'
or view == 'текст' then
reference = term_to_show .. origin .. '. – ' .. description .. ' ('.. ctd_title ..').'
if not isempty(style) then -- there is only one additional style for now, so ignore the value
reference = '<span style="color: gray;">' .. reference ..'</span>'
end
if view ~= 'текст' then
reference = '<ref>' .. reference ..'</ref>'
end
end
if view == 'скобки' then
local comment = description
if term_type == 'литература' then
comment = term_to_show ..', '.. lifetime_short
elseif term_type == 'литература с оригиналом' then
comment = term_to_show ..', '.. lifetime_short ..' '.. origin
end
if isempty(style) then
text = text .. ' [' .. comment .. '.]'
else
text = text .. ' <span style="color: gray;">[' .. comment .. '.]</span>'
end
end
local final_output = text .. reference
-- DEBUG
--final_output = 'userparam: '.. frame.args['userparam'] ..'\n- text ='.. text_original ..'\n- view ='.. view ..'\n- type ='.. term_type ..'\n- style ='.. tostring(style) ..'\n- specification ='.. specification ..'\nOUTPUT: '.. text .. reference
--return final_output
return frame:preprocess( final_output )
end
return ctd