lib/metanorma/standoc/lists.rb
module Metanorma
module Standoc
module Lists
def li(xml_ul, item)
xml_ul.li do |xml_li|
if item.blocks?
xml_li.p(**attr_code(id_attr(item))) { |t| t << item.text }
xml_li << item.content
else
xml_li.p(**attr_code(id_attr(item))) { |p| p << item.text }
end
end
end
def ul_li(xml_ul, item)
xml_ul.li **ul_li_attrs(item) do |xml_li|
xml_li.p(**attr_code(id_attr(item))) { |t| t << item.text }
if item.blocks?
xml_li << item.content
end
end
end
def ul_attrs(node)
attr_code(id_attr(node).merge(keep_attrs(node)))
end
def ul_li_attrs(node)
c = node.attr?("checked")
attr_code(
uncheckedcheckbox: node.attr?("checkbox") ? !c : nil,
checkedcheckbox: node.attr?("checkbox") ? c : nil,
)
end
def ulist(node)
return reference(node) if in_norm_ref? || in_biblio?
noko do |xml|
xml.ul **ul_attrs(node) do |xml_ul|
list_caption(node, xml_ul)
node.items.each { |item| ul_li(xml_ul, item) }
end
end.join("\n")
end
def olist_style(style)
return "alphabet" if style == "loweralpha"
return "roman" if style == "lowerroman"
return "roman_upper" if style == "upperroman"
return "alphabet_upper" if style == "upperalpha"
style
end
# node.attributes[1] == node.style only if style explicitly set
# as a positional attribute
def ol_attrs(node)
attr_code(id_attr(node).merge(keep_attrs(node)
.merge(type: olist_style(node.style),
"explicit-type": olist_style(node.attributes[1]))))
end
def olist(node)
noko do |xml|
xml.ol **ol_attrs(node) do |xml_ol|
list_caption(node, xml_ol)
node.items.each { |item| li(xml_ol, item) }
end
end.join("\n")
end
def dt(terms, xml_dl)
terms.each_with_index do |dt, idx|
xml_dl.dt { |xml_dt| xml_dt << dt.text }
if idx < terms.size - 1
xml_dl.dd
end
end
end
def dd(ddefn, xml_dl)
if ddefn.nil?
xml_dl.dd
return
end
xml_dl.dd do |xml_dd|
xml_dd.p { |t| t << ddefn.text } if ddefn.text?
xml_dd << ddefn.content if ddefn.blocks?
end
end
def dl_attrs(node)
attr_code(id_attr(node).merge(keep_attrs(node)
.merge(
metadata: node.option?("metadata") ? "true" : nil,
key: node.option?("key") ? "true" : nil,
)))
end
def dlist(node)
noko do |xml|
xml.dl **dl_attrs(node) do |xml_dl|
list_caption(node, xml_dl)
node.items.each do |terms, dd|
dt(terms, xml_dl)
dd(dd, xml_dl)
end
end
end.join("\n")
end
def colist(node)
noko do |xml|
node.items.each_with_index do |item, i|
xml.annotation **attr_code(id: i + 1) do |xml_li|
xml_li.p { |p| p << item.text }
end
end
end.join("\n")
end
def list_caption(node, out)
a = node.title and out.name { |n| n << a }
end
end
end
end