jbe@81: --[[--
jbe@81: ui.anchor{
jbe@81:   name    = name,    -- name of anchor
jbe@81:   attr    = attr,    -- table of HTML attributes
jbe@81:   content = content  -- string to be HTML encoded, or function to be executed
jbe@81: }
jbe@81: 
jbe@81: This function writes an HTML anchor into the active slot.
jbe@81: 
jbe@81: --]]--
jbe@81: 
jbe@81: function ui.anchor(args)
bsw@82:   local attr = table.new(args.attr)
jbe@81:   attr.name = args.name
jbe@81:   return ui.tag{
jbe@81:     tag = "a",
jbe@81:     attr = attr,
bsw@82:     content = args.content
jbe@81:   }
jbe@81: end