auto translate underscores to dashes for attributes

Author: joshday

Project.toml

@@ -1,7 +1,7 @@
 name = "Cobweb"
 uuid = "ec354790-cf28-43e8-bb59-b484409b7bad"
 authors = ["joshday <[email protected]> and contributors"]
-version = "0.7.1"
+version = "0.7.2"
 
 [deps]
 DefaultApplication = "3f0dd361-4fe0-5fc6-8523-80b14ec94d85"

src/Cobweb.jl

@@ -50,7 +50,8 @@ tag(o::Node) = getfield(o, :tag)
 attrs(o::Node) = getfield(o, :attrs)
 children(o::Node) = getfield(o, :children)
 
-attrs(kw::AbstractDict) = OrderedDict(Symbol(k) => string(v) for (k,v) in pairs(kw))
+attr_symbol(x) = Symbol(replace(string(x), '_' => '-'))
+attrs(kw::AbstractDict) = OrderedDict(attr_symbol(k) => string(v) for (k,v) in pairs(kw))
 
 (o::Node)(x...; kw...) = Node(tag(o), merge(attrs(o), attrs(kw)), vcat(children(o), x...))