Βικιλεξικό

Module:auto cat: Διαφορά μεταξύ των αναθεωρήσεων

Περιήγηση ιστορικού διαδραστικά
Δείτε την προηγούμενη 'διαφορά'Μετάβαση στην επόμενη 'διαφορά'
Περιεχόμενο που διαγράφηκε Περιεχόμενο που προστέθηκε
όχι, λάθος -- Ανάκληση της επεξεργασίας 5394320 του Sarri.greek (Συζήτηση)
Ετικέτα: Αναίρεση
Γραμμή 2.933:
-- e.g. [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *gʷelH- (αρχαία ελληνικά)]]
-- ============ from root: match the part of the cat_title with Module:languages param. frm
local autosort = ''
local sort = args[1] or args['sort'] or ''
 
function get_langapotin_text(langapotin_text)
-- languages apo = feminine article+accusative e.g. την αραβική, την πρωτοελληνική
Γραμμή 2.974 ⟶ 2.977 :
-- -------------------- APPLICATIONS langapotin root -------------------------
if mw.ustring.find(cat_title, 'Προέλευση λέξεων από') and mw.ustring.find(cat_title, 'ρίζα')
then
lang_iso2 = get_apotin(langapotin_text)
langapotin_label = get_langapotin_label(cat_title)
Γραμμή 2.995 ⟶ 2.998 :
-- cat a
if languages[lang_iso2].sublang then
if root_word:sub(1, 1)sort == '*' or sort == nil then
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
end else▼
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'▼
end end▼
else
if root_word:sub(1, 1) == '*' then▼
▲ cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1)sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character ▼
▲ end
end else▼
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_wordsort .. ']]'▼
end
end -- close sort
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' ' .. languages[lang_iso2].host_apota .. '|' .. languages[lang_iso2].apota_key .. ']]' .. "\n"
else
if sort == '' or sort == nil then -- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *(s)teyg-]]
▲ if root_word:sub(1, 1) == '*' then
if root_word:sub(1, 1) == '*' then
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'▼
end
else
if root_word:sub(1, 1) == '*' then▼
▲ cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. root_word .. ']]'
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
▲ end
end else
cat = '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες|' .. sort .. ']]'
end
end -- close sort
end -- close sublang
else
-- apota b mode -- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *gʷelH- (αρχαία ελληνικά)]]
Γραμμή 3.018 ⟶ 3.038 :
.. ' « [[:Κατηγορία:Ετυμολογία (' .. languages[lang_iso2].name .. ')|<i>Ετυμολογία</i>]]'
.. ' « [[:Κατηγορία:' .. languages[lang_iso2].cat .. '|<i>' .. mw.getContentLanguage():ucfirst(languages[lang_iso2].name) .. '</i>]]'
-- ## need sort here
 
-- cat b ##### sublangs not checked
if languages[lang_iso].sublang == true and not languages[lang_iso2].sublang == true then
Γραμμή 3.034 ⟶ 3.054 :
else
cat = '[[Κατηγορία:' .. cat_title .. '|' .. languages[lang_iso]['key'].. ']]' .. "\n"
-- [[:Κατηγορία:Προέλευση λέξεων από την πρωτοϊνδοευρωπαϊκή ρίζα *(s)teyg- (αρχαία ελληνικά)]]
▲ if root_word:sub(1, 1) == '*' then
if sort == '' or sort == nil then
▲ cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
if root_word:sub(1, 1) == '*' then
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word:sub(2, -1) .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'
end
else
if root_word:sub(1, 1) == '*' then
▲ cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. root_word .. ']]'
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. sort .. ']]' .. "\n" -- sort without asterisc: start from 2nd character
▲ end
else
cat = cat .. '[[Κατηγορία:' .. write_cat .. ' ' .. apota_text .. ' - ρίζες (' .. languages[lang_iso].name .. ')|' .. sort .. ']]'
end
end -- close sort
end
end -- close parenthesis
Ανακτήθηκε από "https://el.wiktionary.org/wiki/Module:auto_cat"