Banri: Created page with "-- -- Implements {{navbox}} -- local p = {} local tnavbar = require( 'Module:Tnavbar' ) local yesno = require( 'Module:Yesno' ) local onmain = require('Module:Mainonly').on_m..."

2020-05-31T16:25:54Z

Created page with "-- -- Implements {{navbox}} -- local p = {} local tnavbar = require( 'Module:Tnavbar' ) local yesno = require( 'Module:Yesno' ) local onmain = require('Module:Mainonly').on_m..."

New page

--
-- Implements {{navbox}}
--

local p = {}
local tnavbar = require( 'Module:Tnavbar' )
local yesno = require( 'Module:Yesno' )
local onmain = require('Module:Mainonly').on_main()
local page_title = mw.title.getCurrentTitle().fullText
--
-- Helper for inserting a new row into the navbox
--
-- @param tbl {mw.html table}
-- @return tbl {mw.html table}
--
local function insertRow( tbl )
return tbl:tag( 'tr' )
end

--
-- Creates the navbox table
--
-- @param args {table}
-- @return tbl {mw.html table}
--
local function createTbl( args )

local tbl = mw.html.create( 'table' )

tbl
:addClass( yesno( args.subgroup ) and 'navbox-subgroup' or 'navbox' )
:addClass( 'nowraplinks' )

if not yesno( args.subgroup ) and
( args.state == 'collapsed' or
args.state == 'uncollapsed' or
args.state == 'autocollapse' or
-- defaults to autocollapse
args.state == nil )
then
tbl:addClass( 'mw-collapsible' )

if args.state == 'collapsed' then
tbl:addClass( 'mw-collapsed' )
elseif args.state == 'uncollapsed' then
tbl:addClass('navbox-uncollapsed')
end
end

if yesno( args.collapsible ) then
tbl:addClass( 'navbox-collapsible' )
end

if args.style then
tbl:cssText( args.style )
end

-- manually set collapse/expand messages
-- bug causing the default database messages to be used
tbl
:attr( {
['cellspacing'] = '0',
['data-expandtext'] = 'show',
['data-collapsetext'] = 'hide'
} )

return tbl
end

--
-- Wrapper for [[Module:Tnavbar]]
--
-- @param args {table}
-- @return {string}
--
local function navbar( args )
return tnavbar._collapsible( { [1] = 'RS3 '..args.title, [2] = args.name } )
end

--
-- Creates the header (what you see when the navbox is collapsed)
--
-- @param tbl {mw.html table}
-- @param args {table}
-- @return {mw.html table}
--
local function header( tbl, args )
local div = insertRow( tbl )
:tag( 'th' )
:attr( 'colspan', '2' )
:addClass( 'navbox-title' )
:attr( 'id' , 'navbox-title' )
:tag( 'div' )

-- @todo move this to site css so we can simplify this (hook off a class)
-- to something like div:wikitext( args.name and navbar( args ) or args.title )
-- which can be appended to the above and returned straight away
if args.name then
div
:css( 'padding-right', args.state == 'plain' and '6em' or '0' )
:wikitext( navbar( args ) )
else
div
:css( 'padding-left', args.state == 'plain' and '0' or '6em' )
:wikitext( 'RS3 '..args.title )
end

return div:allDone()
end

--
-- Inserts a row into the navbox
--
-- @param tbl {mw.html table}
-- @param gtitle {string}
-- @param group {string}
-- @param gtype {string}
-- @param gcats {table}
-- @param style {string}
-- @return {mw.html table}
--
local function row( tbl, gtitle, group, gtype, gcats, style, _name, subgroup )
local tr = insertRow( tbl )
local td

if gtitle then
td = tr
:addClass( 'navbox-group' )
:tag( 'td' )
:addClass( 'navbox-group-title' )
:wikitext( gtitle )
:done()
:tag( 'td' )
else
td = tr
:addClass( 'navbox-group' )
:addClass( 'navbox-group-split' )
:tag( 'td' )
:addClass( 'navbox-group-title-hidden' )
:attr( 'colspan', '0' )
:css( 'display', 'none' )
:done()
:tag( 'td' )
:attr( 'colspan', '2' )
end

--[[
List styling
This is unlikely to be implemented in the near future due to it requiring extra css to work
and mobile currently not supporting that css.
As an example, it lets you do the following instead if using {{*}} all the time
| group3 =
* {{plink|foo}}
* {{plink|bar}}
* {{plink|baz}}
]]
if mw.ustring.match( group, '^%s*%*' ) then
td:newline()

-- trim whitespace on bullets
local spl = mw.text.split( group, '\n' )

for i = 1, #spl do
spl[i] = mw.text.trim( spl[i] )
end

group = '\n' .. table.concat( spl, '\n' )
end

--local group2 = group
--local group3 = group2
-- analytics

--if _name then
-- local name = mw.ustring.gsub(_name,' ','_')
-- for v in mw.ustring.gmatch(group,'%[%[[^%]]+%]%]') do
-- if mw.ustring.match(v,'%[%[File:.+|link=') then
-- local link = mw.ustring.match(v,'|link=([^%]|]+)')
-- if link then
-- local linkrep = mw.ustring.gsub(link,'([%%%]%[%-^$*()+?])','%%%1')
-- local _link = mw.ustring.gsub(link,' ','_')
-- local newfile = mw.ustring.gsub(v,'|link='..linkrep,string.format('|link=https://wiki.geministation.com/w/%s?f=%s',_link,name))
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')
-- group2 = mw.ustring.gsub(group2,w,newfile)
-- end
-- elseif mw.ustring.match(v,'%[%[Category:') then
-- nothing
-- else
-- local link = mw.ustring.match(v,'%[%[([^%]|]+)')
-- local txt = mw.ustring.match(v,'%|([^%]|]+)') or link

-- local newlink = ''

-- black links if current page
-- if link == page_title then
-- newlink = string.format('%s',txt)
-- else
-- local _link = mw.ustring.gsub(link or '',' ','_')
-- newlink = string.format('[https://wiki.geministation.com/w/%s?n=%s %s]',_link,name,txt)
-- end
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')
-- group2 = mw.ustring.gsub(group2,w,newlink)
-- end
-- end

--[==[
fix [[these kind]]s of [[link]]s post analytics parse
]==]
-- group3 = group2

-- for v in mw.ustring.gmatch(group2,'%[https://wiki.geministation.com/w[^%]]-%]%a') do
-- local rep = mw.ustring.gsub(v,'%]','')
-- rep = rep..']'
-- local w = mw.ustring.gsub(v,'([%%%]%[%-^$*()+?])','%%%1')

-- group3 = mw.ustring.gsub(group2,w,rep)
-- end
--end

td
:addClass( 'navbox-list' )
:wikitext( group ) --group3

if gtype and mw.ustring.lower( gtype ) == 'subgroup' then
td
:addClass( 'navbox-parent' )
:css( {
padding = '0',
['border-bottom'] = '0'
} )
end

if style then
td:cssText( style )
end

-- add subgroup categories
if next(gcats) and onmain then
first_char = page_title:sub(1,1)
title_pattern = "[" .. first_char:upper() .. first_char:lower() .. "]" .. page_title:sub(2)
title_pattern = title_pattern :gsub("%(","%%(")
:gsub("%)","%%)")
:gsub("_"," ")
:gsub(" ","[_ ]")
:gsub("%-","%%-")
local link_patterns = {
"%[%["..title_pattern.."%]%]", "%[%["..title_pattern.."%|", "{{[Pp]link%|"..title_pattern.."}}",
"{{[Pp]link%|"..title_pattern.."%|", "{{[Pp]linkp%|"..title_pattern.."}}",
"{{[Pp]linkp%|"..title_pattern.."%|", "{{[Ii]linkp%|"..title_pattern.."}}",
"{{[Ii]linkp%|"..title_pattern.."%|", "{{[Cc]hatl%|"..title_pattern.."}}",
"{{[Cc]hatl%|"..title_pattern.."%|"
}
for _,v in ipairs(link_patterns) do
if group:match(v) then
for _,cat in ipairs(gcats) do
td:wikitext('[[Category:'..cat..']]')
end
break
end
end
end
return td:allDone()
end

--
-- Inserts a footer into the navbox
--
-- @param tbl {mw.html table}
-- @param args {table}
-- @return {mw.html table}
--
local function footer( tbl, args )
local th = insertRow( tbl )
:tag( 'th' )
:attr( 'colspan', '2' )
:addClass( 'navbox-footer' )

if args.fstyle then
th:cssText( args.fstyle )
end

if mw.ustring.match( args.footer, '^%s*%*' ) then
th:newline()

-- trim whitespace on bullets
local spl = mw.text.split( args.footer, '\n' )

for i = 1, #spl do
spl[i] = mw.text.trim( spl[i] )
end

args.footer = table.concat( spl, '\n' )

th:addClass( 'navbox-list' )
end

th:wikitext( args.footer )

return th:allDone()
end

--
-- Adds [[Category:Navigational templates]] to navbox template pages
--
-- @return {string}
--
local function categories()
local title = mw.title.getCurrentTitle()
local page = title.text
local ns = title.nsText

if ns == 'Template' then
-- sort in category by pagename
return '[[Category:Navigational templates|' .. page .. ']]'
else
return ''
end

end

--
-- Adds [[Template:Navbox/doc]] to navbox template pages
--
-- @param args {table}
-- @return {string}
--
local function docs( args )
local frame = mw.getCurrentFrame()
local title = mw.title.getCurrentTitle()
local base = title.baseText
local ns = title.nsText

-- not if a subpage of [[Template:Navbox]]
if base ~= 'Navbox' and
-- in template ns
ns == 'Template' and
-- not a navbox group within a navbox
not yesno( args.subgroup ) and
-- not a collapsible navbox within a navbox
not yesno( args.collapsible ) and
-- not if the doc argument is set to "no"
( args.doc == nil or yesno( args.doc ) )
then
return frame:expandTemplate{ title = 'Navbox/doc' }
else
return ''
end

end

--
-- Navbox method to allow it to be called by other modules
--
-- @param _args {table}
-- @return {string}
--
function p._navbox( _args )
local args = {}
local wkCss = ''
local wkDiv = ''
local j

-- preserves parser function behaviour where an empty string is considered undefined
-- or nil in lua's case
for k, v in pairs( _args ) do
if v ~= '' then
args[k] = v
end
end

local tbl = createTbl( args )

if not yesno( args.subgroup ) then
tbl = header( tbl, args )
end

-- insert up to 20 rows
--
-- 20 is a limit inherited from wikipedia when we copied this over
-- and we've never had a reason to extend it
for i = 1, 20 do
j = tostring( i )

if args['group' .. j] then
local gcats = {}
for p = 1, 20 do
local q = tostring ( p )

if args['g' .. j .. 'cat' .. q] then
table.insert(gcats, args['g' .. j .. 'cat' .. q])
else
break
end
end

tbl = row( tbl, args['gtitle' .. j], args['group' .. j], args['gtype' .. j], gcats, args['style' .. j], args.name, args.subgroup )
else
break
end
end

if args.footer then
tbl = footer( tbl, args )
end

tbl = tostring( tbl )

local cats = ''
if not yesno(args.subgroup) and not yesno(args.hidecat) then
cats = categories()
end
local docs = docs( args )

return tbl .. cats .. docs
end

--
-- Main navbox method accessed through #invoke
--
-- @param frame {table}
-- @return {string}
--
function p.navbox( frame )
local args = frame:getParent().args
return p._navbox( args )
end

return p
-- </nowiki>

Module:Navbox - Revision history

Banri: Created page with "-- -- Implements {{navbox}} -- local p = {} local tnavbar = require( 'Module:Tnavbar' ) local yesno = require( 'Module:Yesno' ) local onmain = require('Module:Mainonly').on_m..."