Module:Sandbox/Jts1882/CladeN: Difference between revisions

Revision as of 10:32, 29 December 2019

Latest revision as of 21:14, 23 October 2022

(10 intermediate revisions by one other user not shown)

Line 8:

now uses templatestyles

]]

require('Module:No globalsstrict')

local p = {}

local pargs = {} -- parent arguments

Line 239:

local classString = ''

local reverseClass = ''

local widthClass = ''

-- class to add if using reverse (rtl) cladogram;

Line 275 ⟶ 276:

-- .. 'overflow:hidden;' -- clip labels longer than the max-width

-- .. 'text-overflow:clip;' -- ellipsis;'

--if pargs['noclip'] then

if string.find(nodeLabel, '<div style="position:absolute;') then

branchLengthStyle = branchLengthStyle .. 'overflow:visible;'

end

widthClass = " clade-fixed-width"

end

styleString = 'style="' .. borderStyle .. branchLengthStyle .. branchStyle .. labelStyle .. '"'

Line 280 ⟶ 287:

if childNumber == 1 then

classString= 'class="clade-label first'.. widthClass .. '" ' -- add class "first" for top row

else

classString = 'class="clade-label' .. reverseClass .. widthClass .. '" ' -- add "reverse" class if ltr cladogram

end

Line 313 ⟶ 320:

it also means there are two newlines when it is a clade structure (which might explain some past issues)

]]

local content = '\n' .. nodeLeaf -- the newlinnewline is not necessary, but keep for backward compatibility

-- test using image parameter

local image = pargs['image'..tostring(childNumber)] or ""

if image ~= "" then

--content = content .. image -- simplebasic version

content = '\n{| class="clade" style="width:auto;" ' --defaults to width:100% because of class "clade"

.. '\n| class="clade-leaf" ' .. '|\n' .. nodeLeaf

.. '\n| class="clade-leaf" ' .. '|\n' .. image

.. '\n|}'

-- note: the classes interfere with the node counter, so try simpler version with style

content = '\n{| style="width:100%;border-spacing:0;" ' --width:auto is "tight"; 100% needed for image alignment

.. '\n| style="border:0;padding:0;" ' .. '|\n' .. nodeLeaf

.. '\n| style="border:0;padding:0;" ' .. '|\n' .. image

.. '\n|}'

end

Line 386 ⟶ 398:

end

end

if borderStyle ~= '' or branchStyle ~= '' or branchLength ~= '' or sublabelStyle ~= "" then

local branchLengthStyle = ""

styleString = ' style="' .. borderStyle .. branchStyle .. sublabelStyle .. '"'

if branchLength ~= "" then

if childNumber == 1 then

--only set for label branchLengthStyle = 'width:' .. branchLength .. ';' -- add width to first element

end

--if childNumber > 1 then prefix = 'max-' end

branchLengthStyle = branchLengthStyle --= prefix .. 'width:' .. branchLength .. ';'

.. 'max-width:' .. branchLength ..';'

.. 'padding:0em;' -- remove padding to make calculation easier

--if pargs['noclip'] then

if string.find(subLabel, '<div style="position:absolute;') then

branchLengthStyle = branchLengthStyle .. 'overflow:visible;'

end

end

styleString = 'style="' .. borderStyle .. branchLengthStyle .. branchStyle .. sublabelStyle .. '"'

--styleString = ' style="' .. borderStyle .. branchStyle .. sublabelStyle .. '"'

end

Line 393 ⟶ 420:

if childNumber == lastNode then

classString = 'class="clade-slabel last' .. widthClass .. '" '

else

classString = 'class="clade-slabel' .. reverseClass .. widthClass .. '" '

end

local sublabelCellString = '\n|' .. classString .. styleString .. '|' .. p.addLabel(childNumber,subLabel)

Line 427 ⟶ 454:

function p.addLabel(childNumber,nodeLabel)

--local nodeLabel = mw.getCurrentFrame():getParent().args['label'..tostring(childNumber)] or ""

--local firstChars = string.sub(nodeLabel, 1,2) -- get first two characters; will be {{ if no parameter (for Old method?)

--if firstChars == "{{{" or nodeLabel == "" then

if nodeLabel == "" then

--return '<br/>' --'&nbsp;<br/>' -- remove space to reduce post-expand include size (the width=1.5em handles spacing)

--return '<br/>' -- must return something; this is critical for clade structure

--return '&#8239;' -- &nbsp; &thinsp; &#8239;(thin nbsp)

else

-- spaces can cause wrapping and can break tree structure, hence use span with nowrap class

Line 446 ⟶ 469:

--TODO test following alternative

--if nodeLabel:find( "%b<>") then stylingElementDetected = true end

-- we know the no break is handled when using {{clade label}}

if string.find(nodeLabel, '<div style="position:absolute;') then stylingElementDetected = false end

if stylingElementDetected == true then

return '<span class="nowrap">' .. nodeLabel .. '</span>'

else

--local nowrapString = string.gsub(nodeLabel," ", "&nbsp;") -- replace spaces with non-breaking space

local nowrapString = nodeLabel -- spaces are now handled by CSS "white-space:nowrap;""

if not nowrapString:find("UNIQ.-QINU") then -- unless a strip marker

nowrapString = string.gsub(nowrapString,"-", "&#8209;") -- replace hyphen with non-breaking hyphen (&#8209;)