local args = ...
local ldoc = nil

-- luacheck: globals new_type

-- Configuration file for ldoc

project='awesome' -- luacheck: globals project
title='awesome API documentation'  -- luacheck: globals title
description='API documentation for awesome, a highly configurable X window manager (version @AWESOME_VERSION@).'  -- luacheck: globals description

format='discount'  -- luacheck: globals format
dir='../doc'  -- luacheck: globals dir

-- Make the docs prettier
pretty='lua'  -- luacheck: globals pretty
style=true  -- luacheck: globals style
template=true  -- luacheck: globals template
backtick_references=true  -- luacheck: globals backtick_references
merge=true  -- luacheck: globals merge
use_markdown_titles=true  -- luacheck: globals use_markdown_titles
wrap=true  -- luacheck: globals wrap

 -- luacheck: globals full_description
full_description = [[
Welcome to the documentation for the Awesome window manager. Below you find an
overview of the individual parts which links to the full documentation.

If you are a new user, you may want to read @{07-my-first-awesome.md} to get
started. In @{05-awesomerc.md}, the default configuration is explained.

If you already used awesome in the past, @{89-NEWS.md} and @{17-porting-tips.md}
should be useful for you.

### Default configuration components name:

<center>
  <object class="img-object" data="images/AUTOGEN_awful_popup_defaultconfig.svg" alt="" type="image/svg+xml"></object>
</center>

### Guides

<div class="index_guides">
 <div>
   @{07-my-first-awesome.md|Getting started}
   @{90-FAQ.md|FAQ}
   @{01-readme.md|Read Me}
   @{89-NEWS.md|NEWS}
 </div>
 <div>
   @{03-declarative-layout.md|The widget system}
   @{09-options.md|Startup options}
   @{05-awesomerc.md|The default rc.lua}
   @{08-client-layout-system.md|Window management}
 </div>
</div>

## Major libraries

AwesomeWM ship multiple libraries. Here is an overview of the purpose and scope
of those libraries.

<table class='widget_list' border=1>
  <tr style='font-weight: bold;'>
   <th align='center'>Library</th>
   <th align='center'>Description</th>
  </tr>
  <tr><td>`gears`</td><td>Utilities such as color parsing and objects</td></tr>
  <tr><td>`wibox`</td><td>Awesome own generic widget framework</td></tr>
  <tr><td>`awful`</td><td>Everything related to window managment</td></tr>
  <tr><td>`awful.widget`</td><td>Window management related widgets</td></tr>
  <tr><td>`awful.layout`</td><td>The default stateless client tiling module.</td></tr>
  <tr><td>`ruled`</td><td>Define declarative rules on various events</td></tr>
  <tr><td>`naughty`</td><td>Notifications</td></tr>
  <tr><td>`menubar`</td><td>XDG (application) menu implementation</td></tr>
  <tr><td>`beautiful`</td><td>Awesome theme module</td></tr>
</table>

]]
topics={
    '00-authors.md',
    '01-readme.md',
    '02-contributing.md',
    '03-declarative-layout.md',
    '04-new-widgets.md',
    '05-awesomerc.md',
    '06-appearance.md',
    '07-my-first-awesome.md',
    '08-client-layout-system.md',
    '09-options.md',
    '10-building-and-testing.md',
    '16-using-cairo.md',
    '17-porting-tips.md',
    '90-FAQ.md',
    '89-NEWS.md',
}

-- Rather han copy paste this hundreds of time, unify these special type
-- descriptions.
local type_fallback_description = {
    image = {
        "string Interpreted as a path to an image file." ,
        "string A valid SVG content." ,
        "cairo A cairo image surface: Directly used as-is." ,
        "librsvg A librsvg handle object: Directly used as-is." ,
        "nil Unset the image." ,
    },
    color = {
        "string An hexadecimal color code, such as `\"#ff0000\"` for red." ,
        "string A color name, such as `\"red\"`." ,
        "table A [gradient table](../theme_related_libraries/gears.color.html)." ,
        "cairo.pattern Any valid [Cairo pattern](https://cairographics.org/manual/cairo-cairo-pattern-t.html)." ,
        "cairo.pattern A texture build from an image by [gears.color.create\\_png\\_pattern](../theme_related_libraries/gears.color.html#create_png_pattern)" ,
    },
    shape = {
        "gears.shape Like `gears.shape.circle`",
        "function This can be used for custom shapes or to set parameters of existing shapes.",
    },
    screen = {
        "screen A valid screen object such as retured by `awful.screen.focused()` or `mouse.screen`.",
        "integer A screen global id. Avoid using this since they are unsorted.",
        "string The `\"primary\"` value is also valid.",
    },
    font = {
        "string A Pango [font description](../widgets/wibox.widget.textbox.html#font).",
        "string An [XFT string](https://wiki.archlinux.org/title/X_Logical_Font_Description), such as `\"-*-dejavu sans mono-medium-r-normal--*-80-*-*-*-*-iso10646-1\"`.",

    },
    ["wibox.template"] = {
        "table A table containing a widget tree definition. WARNING: This is really a table"..
        " and **NOT** a widget object. Use the `widget = come.class.here` to define the "..
        " topmost class rather than construct an instance."
    },
    placement = {
        "function A custom callback to generate *and set* the geometry.",
        "placement Any of the `awful.placement` function or constructs."
    }
}

-- Document the "common" function prototypes. Some common types, such as
-- the client layouts, the shapes and placements are just glorified functions.
local callback_fallback_description = {
    shape = {
        {"functionparam", "cairo.context", "cr", "A [Cairo context](https://cairographics.org/manual/cairo-cairo-t.html)"},
        {"functionparam", "number", "width", "The area width."},
        {"functionparam", "number", "height", "The area height."},
    },
    placement = {
        {"functionreturn", "table", "A table with an `x`, `y`, `width` and `height` keys."},
        {"functionparam", "object", "obj", "Any object with a `geometry` property or method."},
        {"functionparam", "table", "args", "The `placement` arguments. See `awful.placement` for a complete list."},
    },
}

-- Try to use a single name for common types. For example, mixing `color` and
-- `gears.color` (which is *not* a type) is confusing. It also allows the
-- type description to be auto-generated from `type_fallback_description`.
local type_name_linting = {
    ["gears.color"]     = "color",
    ["gears.shape"]     = "shape",
    ["wibox.widget"]    = "widget",
    ["gears.surface"]   = "image",
    ["surface"]         = "image",
    ["awful.placement"] = "placement",
    ["double"]          = "number",
    ["float"]           = "number",
    ["bool"]            = "boolean",
    ["template"]        = "wibox.template",
}

local metadata_tags = {
    "propertyunit", "rangestart", "rangestop", "negativeallowed",
}

local databases, named_tags, item_id, is_init = {}, {}, 1, false
local all_theme_vars, delayed_collect = nil, {}

local function collect_item_common(tab, mod, item)
    tab[item.name] = tab[item.name] or {}

    local var = tab[item.name]
    var[mod.name] = var[mod.name] or {}
    var[mod.name][#var[mod.name] + 1] = item
end

--- Add another custom tag **value** to an existing item.
-- @tparam string tag_data The raw/unparsed string for the
--  tag. It will be parsed like any other tags.
local function add_custom_tag_common(item, tag_name, meta_tag, tag_data)
    item.tags = item.tags or {}

    item.tags[tag_name] = item.tags[tag_name] or {}

    item.tags[tag_name][#item.tags[tag_name] + 1] = tag_data

    if meta_tag.collect_callback then
        delayed_collect[#delayed_collect+1] = {item, item.module, tag_name, tag_data}
    end
end

-- Wrap the global `new_type` to allow us to extend what types can do, the
-- same is done below for custom tags.
local function create_type(args)
    new_type(args.name, args.title, args.project_level, args.subfield_title)

    databases[args.name] = databases[args.name] or {}
    databases[args.name].collect = args.collect_callback
    databases[args.name].finish  = args.finish_callback

    return args
end

-- Add the @usebeautiful from the optional/default value.
local function auto_add_usebeautiful(item)
    local vars, var_names = {}, {}

    -- Datamine the default values to autogenerate the @usebeautiful.
    for parm in ldoc.modules.iter(item.params) do
        for p in ldoc.modules.iter(item:subparam(parm)) do
            local def = item:default_of_param(p)

            if def and def ~= true then
                for var in def:gmatch("beautiful[.][a-z_]+") do
                    if not var_names[var] then
                        vars[#vars+1] = var
                    end
                    var_names[var] = true
                end
            end
        end
    end

    for _, var in ipairs(vars) do
        named_tags.usebeautiful:add_to_item(item, var)
    end
end

-- Handle both manually specified callback prototypes and common ones.
local function parse_properties_function_metadata(item, types)
    local raw_input  = item.tags["functionnoparam"] and {} or item.tags["functionparam"]
    local raw_output = item.tags["functionnoreturn"] and {} or item.tags["functionreturn"]
    local fallback, input, output = true, {}, {}

    for _, arg in ipairs(raw_input or {}) do
        input[#input+1] = item.parsed_tags["functionparam"][arg]
        fallback = false
    end

    for _, ret in ipairs(raw_output or {}) do
        output[#output+1] = item.parsed_tags["functionreturn"][ret]
        fallback = false
    end

    local has_in  = #input > 0 or item.tags["functionnoparam"] ~= nil
    local has_out = #output > 0 or item.tags["functionnoreturn"] ~= nil

    if fallback then
        for type in pairs(types) do
            if callback_fallback_description[type] then
                for _, row in ipairs(callback_fallback_description[type]) do
                    local dest = row[1] == "functionparam" and input or output

                    dest[#dest+1] = {
                        description = row[#row],
                        type = row[2] and {value = row[2]},
                        name = row[3] and {value = row[3]},
                    }
                end

                -- Assume the fallback is correct.
                has_out, has_in = true, true
                break
            end
        end
    end

    return {
        input      = input,
        output     = output,
        has_input  = has_in,
        has_output = has_out,
    }
end

-- The first stereotype are the constructors.
create_type  {
    name             = "constructorfct",
    title            = "Constructors",
    project_level    = false,
    subfield_title   = "Parameters",
    collect_callback = auto_add_usebeautiful,
}

-- Some constructors like `awful.key` have both a named parameter
-- syntax and a multiple function parameter syntax.
create_type {
    name           = "constructorfct2",
    title          = "ldoc_skip",
    project_level  = false,
    subfield_title = "Parameters",
}

-- Hack to get the functions on top of the signals and properties
create_type {
    name           = "function",
    title          = "Functions",
    project_level  = false,
    subfield_title = "Parameters",
}

-- For "classes", use an explicit type for static functions. This allows
-- @function and its implicit cousin to be banned in the CI.
create_type {
    name           = "staticfct",
    title          = "Static module functions",
    project_level  = false,
    subfield_title = "Parameters",
}

-- Documentation for objects properties
create_type {
    name             = "property",
    title            = "Object properties",
    project_level    = false,
    subfield_title   = "Type constraints",
    collect_callback = auto_add_usebeautiful,
    finish_callback  = function(item)
        -- All properties need to have a type. Otherwise they don't render
        -- properly. Also, because typed properties are kind of the point of
        -- switching to ldoc in the first place.
        if (not item.params) or not item.params[1] then
            print(
                "WARNING: The ".. item.name .." property from "..item.module.name.." is missing it's type."
            )
            return
        end

        local _, sublist = item:subparam(item.params[1])
        local type = item:type_of_param(item.params[1])

        -- Force people to use @tparam because it is easier to lint and allows
        -- multiple types.
        if (not type) or type == "" then
            print(
                "WARNING: Property ".. item.name .." from "..item.module.name.." either "..
                " doesn't have a type or uses @param instead of @tparam. @tparam is required"..
                " because it allows multi-type and better default value handling."
            )
        end

        if type_name_linting[type] then
            print(
                "WARNING: Property ".. item.name .." from "..item.module.name..
                " type is `"..type.."`, please use `"..type_name_linting[type].."`."
            )
        end

        -- One of the repeated problem we have is the first word of the
        -- description being removed because it is used as the property name.
        -- This "rule" might be stupid, but it prevents it from accidentally
        -- happening again.
        if item.params[1] ~= item.name:match("[.]?("..item.params[1]..")$") then
            print(
                "WARNING: Property ".. item.name .." from "..item.module.name.." @tparam name"..
                " doesn't match the property name. For linting purpose, please fix this."
            )
        end

        local def = item:default_of_param(item.params[1])

        -- Check the default value for obvious mistakes.
        if def then
            -- Detect the blatant missing quote marks for string. This is important
            -- to differentiate variables from string literals.
            if type == "string" and def:sub(1,1) ~= '"' and def:sub(-1) ~= '"' and not def:find(".") then
                print(
                    "WARNING: Property ".. item.name .." from "..item.module.name..
                    " is a string, but the default value is not quoted."
                )
            end

            -- If the default value is `nil`, then the property must be nullable.
            if def == "nil" and not type:find("nil") then
                print(
                    "WARNING: Property ".. item.name .." from "..item.module.name..
                    " default value is `nil`, but the type doesn't allow it"
                )
            end

            if type == "boolean" and (not (def == "true" or def == "false")) and (not def:find(".")) then
                print(
                    "WARNING: Property ".. item.name .." from "..item.module.name..
                    " is a boolean, but is neither `true`, `false` or an alias"
                )
            end

            item:add_metadata("Default value", ("<code>%s</code>"):format(def))
        else
            -- Properties should have a default value. If they don't or if the
            -- default depends on the context, then `opt=nil` should be used to
            -- mute this warning.
            local auto_opt = nil

            -- Extract the default value from other metadata.
            if item.tags["propbeautiful"] and item.tags["propbeautiful"][1] then
                auto_opt = "beautiful."..(item.module.name.."_"..item.name):gsub("[.]", "_")
            elseif item.tags["usebeautiful"] and item.tags["usebeautiful"][1] then
                auto_opt = item.tags["usebeautiful"][1]:match("[^ ]+")
            end

            -- This adds a default value. It works for LDoc 1.4.5, but is a
            -- private API and might break in the future.
            if item.tags["propertydefault"] and item.tags["propertydefault"][1] then
                item:add_metadata(
                    "Default value",
                    ldoc.markup(item.tags["propertydefault"][1])
                )
            elseif auto_opt then
                local mods = item.modifiers[item.parameter]

                if mods then
                    mods[item.params[1]].opt = auto_opt
                end

                item:add_metadata("Default value", ("<code>%s</code>"):format(auto_opt))
            elseif not sublist then
                -- The default could not be determined automatically, it requires
                -- an explicit `opt=<value>`.
                print(
                    "WARNING: Property", item.name .." from "..item.module.name,
                    "doesn't have a default value. Add `[opt=value]` to the @tparam"
                )
            end
        end

        local prop_types, prop_type_names, fallback_callback = {}, {}, false

        -- Type validation.
        do
            -- Handle the case where a property has multiple types.
            local metatypes, table_args = {}, {}
            local prop_has_nil, prop_has_obj = false, false

            -- Make a copy of the table to avoid recursion.
            for _, t in ipairs(item.tags["propertytype"] or {}) do
                metatypes[#metatypes+1] = t
            end

            for t in item:type_of_param(item.params[1]):gmatch('[^|]+') do
                if type_name_linting[t] then
                    print(
                        "WARNING: Property", item.name .." from "..item.module.name..
                        " type is '"..t.."'. Please use `"..type_name_linting[t].."'"
                    )
                end

                if not prop_type_names[t] then
                    prop_types[#prop_types+1] = t
                end
                prop_type_names[t] = true
                fallback_callback = fallback_callback or callback_fallback_description[t]
                prop_has_nil = prop_has_nil or t == "nil"
                prop_has_obj = prop_has_obj or (t:find('.') and not t:sub(1,5) == "gears")
            end

            if item.tags["propbeautiful"]
              and item.tags["propbeautiful"][1]
              and not prop_type_names["nil"] then
                print(
                    "WARNING: Property", item.name .." from "..item.module.name..
                    " uses `@propbeautiful`, yet, doesn't have `nil` as a type."
                )
            end

            if #item.params == 0 then
                print(
                    "WARNING: Property", item.name .." from "..item.module.name..
                    " is missing it's `@tparam` section. Please add it."
                )
            elseif #item.params > 1 then
                for i=2, #item.params do
                    local splitted = {}

                    for part in item.params[i]:gmatch("[^.]+") do
                        splitted[#splitted+1] = part
                    end

                    if #splitted == 1 then
                        print(
                            "WARNING: Property", item.name .." from "..item.module.name..
                            " has a `@tparam` named \""..item.params[i].."\". The only"..
                            " valid name is \"..item.name\""
                        )
                    else
                        print(
                            "WARNING: Property", item.name .." from "..item.module.name..
                            " has a `@tparam` named \""..item.params[i].."\". This is"..
                            " not valid. It should be `@tparam[opt=...] <type> "..item.name..
                            ".<something> <description>"
                        )
                    end
                end
            end

            -- Some properties are table with fixed keys.
            local param,sublist = item:subparam(item.params[1])
            if sublist then
                for _, sub_param in pairs(param) do
                    local splitted = {}

                    for part in sub_param:gmatch("[^.]+") do
                        splitted[#splitted+1] = part
                    end

                    -- The first part should match the property name. If it doesn't,
                    -- then it's unclear what it is.
                    if splitted[1] ~= item.name then
                        print(
                            "WARNING: Property", item.name .." from "..item.module.name..
                            " has additional @tparams with unclear meaning. Please"..
                            " use `@tparam[opt=...] type property_name.subparam Desc...`"
                        )
                    else
                        local rebuilt_name = ""

                        for i=2, #splitted do
                            rebuilt_name = rebuilt_name .. ((#rebuilt_name > 0) and "." or "") .. splitted[i]
                        end

                        table_args[#table_args+1] = {
                            name        = rebuilt_name,
                            default     = item:default_of_param(sub_param),
                            type        = item:type_of_param(sub_param),
                            description = item.params.map[sub_param],
                        }
                    end
                end
            end

            if prop_has_obj and not prop_has_nil then
                print(
                    "WARNING: Property", item.name .." from "..item.module.name..
                    " has an object type, however it doesn't define the behavior"..
                    " or `nil` (or lack `@nonnullable`)"
                )
            end

            local type_map = {}

            for _, typeinfo in ipairs(metatypes) do
                local parsed = item.parsed_tags["propertytype"][typeinfo]
                type_map[parsed.typename.value] = type_map[parsed.typename.value] or {}
                type_map[parsed.typename.value][#type_map[parsed.typename.value]+1] = parsed
            end

            local warnings = {}

            -- Check if every possible type is described.
            for _, t in ipairs(prop_types) do
                if not type_map[t] then
                    -- Auto add description for common types.
                    if type_fallback_description[t] then
                        for _, entry in ipairs(type_fallback_description[t]) do
                            metatypes[#metatypes+1] = entry
                            named_tags.propertytype:add_to_item(item, entry)
                            type_map[t] = type_map[t] or {}
                            type_map[t][#type_map[t]+1] = entry
                        end
                    elseif #prop_types > 1 then
                        local warn = "WARNING: Property", item.name .." from "..item.module.name..
                            " has the undescribed object type \""..t.."\", please add"..
                            " one (or more) `@propertytype "..t.." <description>` tag."
                        warnings[t] = warnings[t] or {}
                        warnings[t][#warnings[t]+1] = warn
                    end
                end
            end

            -- Autofill the meaning of `nil` when there is a fallback `beautiful`
            -- variable.
            if prop_type_names["nil"]
              and (not type_map["nil"])
              and item.tags["propbeautiful"]
              and item.tags["propbeautiful"][1] then
                local modname = item.module.name:gmatch("[^.]+$")()
                local fallback = "beautiful."..(modname.."_"..item.name):gsub("[.]", "_")
                local entry = "nil Fallback to the current value of `"..fallback.."`."
                named_tags.propertytype:add_to_item(item, entry)
                metatypes[#metatypes+1] = entry

                warnings["nil"] = nil
            end

            for _, warn in ipairs(warnings) do
                print(warn)
            end

            local mt_by_type = {}

            -- Add the metatype section
            if #metatypes > 0 then
                local mt = item:add_metadata("Type description")

                for _, typeinfo in ipairs(metatypes) do
                    local parsed = item.parsed_tags["propertytype"][typeinfo]
                    local tmt = mt:add_metadata(
                        "<span class='summary_type'>"..parsed.typename.value.."</span>",
                        ldoc.markup(parsed.description)
                    )
                    mt_by_type[parsed.typename.value] = mt_by_type[parsed.typename.value] or {}
                    mt_by_type[parsed.typename.value][#mt_by_type[parsed.typename.value]+1] = tmt
                end
            end

            if #table_args > 0 then
                local mt = mt_by_type["table"] and mt_by_type["table"][1] or item:add_metadata("Table keys")
                for _, key in ipairs(table_args) do
                    mt:add_metadata(
                        key.name,
                        ldoc.markup(key.description),
                        key.type
                    )
                end
            end

            -- Add the function callback parameters section.
            if prop_type_names["function"] or fallback_callback then
                local fp = (mt_by_type["function"] and mt_by_type["function"][1] or item):add_metadata("Function prototype")

                local prototype = parse_properties_function_metadata(item, prop_type_names)

                if not prototype.has_input then
                    print(
                        "WARNING: Property ".. item.name .." from "..item.module.name..
                        " needs either `@functionparam` or  `@functionnoparam` if there"..
                        " is none."
                    )
                elseif #prototype.input == 0 then
                    fp:add_metadata("Parameters:", "The function has no parameters")
                else
                    local fparams = fp:add_metadata("Parameters")
                    for _, parsed in ipairs(prototype.input) do
                        if (not parsed.name) or (not parsed.type) then
                            print(
                                "WARNING: Property ".. item.name .." from "..item.module.name..
                                " has a `@functionparam` improperly formatted. The format is "..
                                 "`<type> <name> [description]`."
                            )
                        else
                            fparams:add_metadata(
                                parsed.name.value,
                                ldoc.markup(parsed.description),
                                parsed.type.value
                            )
                        end
                    end
                end

                args = item.tags["functionnoreturn"] and {} or item.tags["functionreturn"]

                if not prototype.has_output then
                    print(
                        "WARNING: Property ".. item.name .." from "..item.module.name..
                        " needs either `@functionreturn` or  `@functionnoreturn` if there"..
                        " is none."
                    )
                elseif #prototype.output == 0 then
                    fp:add_metadata("Return", "The function returns nothing.")
                elseif #prototype.output == 1 then
                    fp:add_metadata("Return", ldoc.markup(prototype.output[1].description), prototype.output[1].type.value)
                else
                    local md = fp:add_metadata("Return")
                    for _, parsed in ipairs(prototype.output) do
                        md:add_metadata(
                            "",
                            ldoc.markup(parsed.description),
                            parsed.type.value
                        )
                    end
                end
            end

            -- Handle the case where the table is a list.
            if #prop_types == 1 and prop_types[1] == "table"
              and #(item.tags["tablerowtype"] or {}) == 0
              and #table_args == 0 then
                print(
                    "WARNING: Property ".. item.name .." from "..item.module.name..
                    " needs either `@tablerowtype` or additional `@tparam`."
                )
            elseif #(item.tags["tablerowtype"] or {}) > 0 then
                local mt = item:add_metadata("Table content", ldoc.markup(item.tags["tablerowtype"][1]))

                for _, key in ipairs(item.tags["tablerowkey"] or {}) do
                    local parsed = item.parsed_tags["tablerowkey"][key]
                    local type, val, desc = parsed.type.value, parsed.name.value, parsed.description
                    mt:add_metadata("<code>"..val.."</code>", ldoc.markup(desc), type)
                end
            end
        end

        -- Allow the template to be shorter by using a for-loop.
        local has_start, has_allow_negative = false, false
        for _, mt in ipairs(metadata_tags) do
            local tag_desc = named_tags[mt]

            if item.tags[mt] and item.tags[mt][1] then
                has_start = has_start or mt == "rangestart"
                has_allow_negative = has_allow_negative or mt == "negativeallowed"
                local title = tag_desc.title or mt
                item:add_metadata(title, ldoc.markup(item.tags[mt][1]))
            end
        end

        if (prop_type_names["number"] or prop_type_names["integer"]) and not (has_start or has_allow_negative) then
            print(
                "WARNING: Property", item.name .." from "..item.module.name..
                " has numeric type, please add either `@rangestart` or `@negativeallowed false`."
            )
        end

        local tdesc = item.params.map[item.params[1]] and item.params.map[item.params[1]] or ""

        -- Auto add the description for "simple" boolean.
        if #prop_types == 1 and prop_types[1] == "boolean" and tdesc == "" then
            tdesc = "`true` or `false`."
        end

        -- Handle custom type description and string "enum".
        if #(item.tags["propertyvalue"] or {}) > 0 or tdesc ~= "" then

            local mt = item:add_metadata("Valid values", ldoc.markup(tdesc))

            local values, found_default = item.tags["propertyvalue"] or {}, false

            for _, enum_val in ipairs(values) do
                local parsed = item.parsed_tags["propertyvalue"][enum_val]
                local val, desc = parsed.value.value, parsed.description

                if val:sub(1,1) ~= '"' or val:sub(#val,#val) ~= '"' then
                    print(
                        "WARNING: Value `"..val.."` from property ".. item.name
                        .." from module "..item.module.name.. "should be a quoted string."
                    )
                end

                found_default = found_default or val == def

                mt:add_metadata("<code>"..val.."</code>", ldoc.markup(desc))
            end

            if def and #values > 0 and def:sub(1,9) ~= "beautiful" and not found_default then
                print(
                    "WARNING: Property ".. item.name .." from "..item.module.name..
                    " has some `@propertyvalue`, but the default value is not among them."
                )
            end
        end

        -- @return is not displayed for properties, something important
        -- might have been written there, so it's better to block it
        if item.tags["return"] or item.tags["treturn"] then
            print(
                "WARNING: Property ".. item.name .." from "..item.module.name..
                " has a `@return`, it is not rendered. Remove it."
            )
        end
    end
}

-- Documentation for objects deprecated properties
create_type {
    name           = "deprecatedproperty",
    title          = "Deprecated object properties",
    project_level  = false,
    subfield_title = "Type constraints",
}

-- Documentation for objects deprecated methods
create_type {
    name           = "deprecatedmethod",
    title          = "Deprecated object methods",
    project_level  = false,
    subfield_title = "Parameters",
}

-- Use a custom type for the methods to bypass the faulty ldoc built-in detection.
-- (yes, the space after Methods *is* on purpose to avoid clashing with ldoc
--  internal "methods" concept)
create_type {
    name           = "method",
    title          = "Object methods ",
    project_level  = false,
    subfield_title = "Parameters",
}

-- New type for signals.
local all_signals
all_signals = create_type {
    name           = "signal",
    title          = "Signals",
    project_level  = false,
    subfield_title = "Arguments",
    collection     = {},
    collect_callback = function(item, mod)
        collect_item_common(all_signals.collection, mod, item)
    end,
}

-- Deprecated signals.
create_type {
    name           = "deprecatedsignal",
    title          = "Deprecated signals",
    project_level  = false,
    subfield_title = "Arguments",
}

-- New type for signals connections
create_type {
    name           = "signalhandler",
    title          = "Request handlers",
    project_level  = false,
    subfield_title = "Arguments",
}

-- Allow objects to define a set of beautiful properties affecting them
all_theme_vars = create_type {
    name           = "beautiful",
    title          = "Theme variables",
    project_level  = false,
    subfield_title = "Type constraints",
    collection     = {},
    collect_callback = function(item, mod)
        if item.name:sub(1,4) ~= "beau" then
            -- This would be a bug.
            if item.name:match("[.]") then
                print("WANRING: A beautiful variable is called `", item.name, "`. This name is invalid.")
            end

            -- This happens because the `ldoc` messes with the name. All variables
            if item.module.name == "beautiful" then
                item.name = "beautiful." .. item.name
            else
                print(
                    "WARNING: All theme variable need a `beautiful.` prefix. It appears",
                    item.name,
                    " lacks it"
                )
            end
        end

        collect_item_common(all_theme_vars.collection, mod, item)

        -- Those are global variables, there can be only one per name.
        if all_theme_vars.collection[item.name] then
            local mod = pairs(all_theme_vars.collection[item.name])(all_theme_vars.collection[item.name])

            if mod ~= item.module.name then
                print("ERROR: "..item.name, "from", item.module.name, "is already defined in module ", mod)
            end
        end
    end,
    finish_callback = function(item)
        if not item.tags["beautiful_used_by"] then
            -- Every variable should be consumed by something. Better "park" some
            -- variable in the constructors than leave them disconnected from the
            -- global model.
            print("WARNING: ", item.name, "is not used by anything, add @usebeautiful or @propbeautiful")
        else
            local prop, mn = nil, item.module.name:match("[.]?([^.]+)$")
            -- If there is a property with the corresponding name and it doesn't
            -- mention the `beautiful` variable, that's nearly always a bug.
            for kind, items in item.module.kinds() do
                if kind == "Object properties" then
                    for k in items do
                        for k2,v2 in k do
                            if item.name:match("[.]"..mn.."_"..k2.name.."$") then
                                prop = k2
                                break
                            end
                            if prop then break end
                        end
                        break
                    end
                end
            end

            if prop then
                local mention = false

                if prop.tags.propbeautiful then mention = true end

                if (not mention) and prop:default_of_param(prop.params[1]) == item.name then
                    mention = true
                end

                for _, v in ipairs((not mention) and prop.tags.usebeautiful or {}) do
                    local parsed = prop.parsed_tags.usebeautiful[v]
                    if parsed.name.value == item.name then
                        mention = true
                        break
                    end
                end

                if not mention then
                    print(
                        "WARNING: `"..item.name.. "` from `"..item.module.name.."` "..
                        "seems to match a property called `"..prop.name.."`. However, "..
                        "there is no mention of this `beautiful` "..
                        "variable in its documentation. Please add `@propbeautiful` or "..
                        "`[opt="..item.module.name.."]"
                    )
                end
            end
        end
    end
}

-- Put deprecated methods in their own section
create_type {
    name           = "deprecated",
    title          = "Deprecated functions",
    project_level  = false,
    subfield_title = "Parameters",
}

-- For the legacy stateless layout related functions
create_type {
    name           = "legacylayout",
    title          = "Layout related functions",
    project_level  = false,
    subfield_title = "Parameters",
}

-- Have a category for the client layouts
create_type {
    name           = "clientlayout",
    title          = "Client layouts",
    project_level  = false,
    subfield_title = "Parameters",
}

-- Source functions for the taglist/tasklist/layoutlist
create_type {
    name          = "sourcefunction",
    title         = "List source functions",
    project_level = false,
}

-- Document some callback prototypes
create_type {
    name           = "callback",
    title          = "Callback functions prototype",
    project_level  = false,
    subfield_title = "Parameters",
}

-- gears.matcher / awful.rules sources
create_type {
    name           = "rulesources",
    title          = "Rule sources",
    project_level  = false,
    subfield_title = "Parameters",
}

-- gears.matcher / awful.rules rule components
create_type {
    name           = "rulecomponent",
    title          = "Rule components",
    project_level  = false,
    subfield_title = "Type",
}

-- Filter functions for the taglist/tasklist/layoutlist
create_type {
    name          = "filterfunction",
    title         = "List filters",
    project_level = false,
}

-- Extra client properties available only in awful.rules/spawn constructs
create_type {
    name           = "clientruleproperty",
    title          = "Extra properties available in the rules",
    project_level  = false,
    subfield_title = "Type",
}

-- Extra *matching* properties for rules.
create_type {
    name           = "matchingproperty",
    title          = "Extra matching properties used in rules",
    project_level  = false,
    subfield_title = "Type",
}

-- Simulate the default "params" parser format, except the optional "[]" section
-- needs a space.
local function parse_custom_tags(text, params)
    text = text:gmatch("[ ]*(.*)$")()
    local raw_extra = ""

    if text:sub(1,1) == '[' then
        local count = 1

        -- Find the matching ']'
        for i=2, text:len() do
            local char = text:sub(i,i)

            if char == '[' then
                count = count + 1
            elseif char == ']' then
                count = count - 1
            end

            raw_extra = raw_extra..char

            if count == 0 then
                text = text:sub(i+2)
                break
            end
        end
    end

    -- Split the remaining text into words.
    local words, values, description = {}, {}, {}

    for word in text:gmatch("[^ \n\r]*") do
        if word ~= "" then
            words[#words+1] = word
        end
    end

    for idx, word in ipairs(words) do
        if idx <= #params then
            local name = params[idx].name
            values[name] = {
                name  = name,
                title = params[idx].title or name,
                value = word
            }
        else
            description[#description+1] = word
            values.description = values.description and
                values.description.." "..word or
                word
        end
    end

    return values
end

-- Mimic the template classes.
local function default_format_callback(self, params, _, md)
    local ret = ""

    if self.table then
        -- All columns are mandatory
        for _, p in ipairs(self.params) do
            local content = params[p.name] and params[p.name].value or ""
            ret = ret.."<td>"..(p.markdown and md("`"..content.."`") or content).."</td>"
        end
        return ret .. "<td>"..md(params.description).."</td>"
    else
        if params.name then
            ret = '<span class="parameter">'..
                md("`"..params.name.value.."`")..
            "</span> "
        end

        if params.type then
            ret = ret .. '<span class="types">'..
                md("`"..params.type.value.."`")..
            "</span>"
        end

        return ret.." "..md(params.description)
    end
end

-- Generate a format function.
local function default_format(self, callback, name)
    return function(raw, item, md)
        local p = name and item.parsed_tags and item.parsed_tags[name] and item.parsed_tags[name][raw]

        if not p then
            p = parse_custom_tags(raw, self.params or {})
        end

        return (callback or default_format_callback)(self, p, item, md)
    end
end

-- Add a new @something which can be used in any types.
-- @tparam table args
-- @tparam string args.name The name.
-- @tparam string args.hidden Show in the doc or for internal use only.
-- @tparam table args.table Show the items in a table rather than a list. The
--  content is the list of header names.
-- @tparam table args.params The parameters (table with name, tilte, format).
-- @tparam boolean[opt=true] args.auto_subtags Create the usage and tparams subtags.
local add_custom_tag
add_custom_tag = function(args)
    local name = args.name

    args.name, args[1] = nil, name

    custom_tags = custom_tags or {}

    databases[name] = databases[name] or {}
    databases[name].collect = args.collect_callback

    local f = args.format

    args.format = default_format(args, f, name)

    function args:add_to_item(item, tag_value)
        add_custom_tag_common(item, name, args, tag_value)

        local parsed = parse_custom_tags(tag_value, args.params or {})

        if parsed then
            item.parsed_tags = item.parsed_tags or {}
            item.parsed_tags[name] = item.parsed_tags[name] or {}
            item.parsed_tags[name][tag_value] = parsed
        end

        item.has_show_more = item.has_show_more or (not args.hidden)

        return parsed
    end

    custom_tags[#custom_tags+1] = args
    named_tags[name] = args

    -- Auto create @name_tparams and @name_usage for each custom tags.
    if args.auto_subtags ~= false then
        add_custom_tag {
            name         = name.."tparam",
            auto_params  = true,
            parent       = args,
            auto_subtags = false,
            params       = {
                { name   = "type" },
                { name   = "name" },
            }
        }
        add_custom_tag {
            name         = name.."usage",
            auto_usage   = true,
            parent       = args,
            auto_subtags = false,
        }
    end
end

-- When a type will request a permission.
-- @emits class signal Message[...]
add_custom_tag {
    name   = "emits",
    title  = "Emit signals",
    hidden = false,
    params = {
        {
            name = "name"
        }
    },
    collect_callback = function(item, mod, tag, value)
        local parsed = parse_custom_tags(value, named_tags.emits.params)

        all_signals.collection[parsed.name.value] = all_signals.collection[parsed.name.value] or {}

        local var = all_signals.collection[parsed.name.value]

        var[mod.name] = var[mod.name] or {}
        var[mod.name][#var[mod.name] + 1] = item
    end
}

-- Avoid repetitive boilerplate code for property signals.
-- Add true if the signal has the value or false if it doesn't.
-- @propemits true/false true/false description[...]
add_custom_tag {
    name   = "propemits",
    title  = "Emit signals",
    hidden = false,
    params = {{name = "new_value"}, {name = "old_value"}},
    format = function(self, params, item, md)
        -- Add an automatic fallback description.
        local description = params.description ~= "" and params.description or
            "When the `"..item.name.."` value changes."
        local new_value = params.new_value.value == "true"
        local old_value = params.old_value.value == "true"

        -- Add the sub-tags.
        local subs = {}
        item.auto_params["propemitstparam_override"] = subs

        -- The first argument is always the object which changes.
        subs[1] = item.module.name.." self ".." The object which changed ("..
            "useful when connecting many object to the same callback)."

        -- Most signals also have the new value.
        if new_value then
            local type = item.params[1] or "unknown"
            subs[2] = type.." ".."new_value The new value affected to the property."
        end

        -- Some also have the old value.
        if old_value then
            local type = item.params[1] or "unknown"
            subs[3] = type.." ".."old_value The property's old value."
        end

        local new_params = {
            name = { name  = item.name, value = "property::"..item.name },
            description = description
        }

        return default_format_callback(self, new_params, item, md)
    end
}

-- List the beautiful variables used by the method or property fallbacks.
-- @usebeautiful beautiful.varname usage[...]
add_custom_tag {
    name   = "usebeautiful",
    title  = "Consumed theme variables",
    hidden = false,
    table  = {
        "Variable", "Usage"
    },
    params = {
        {
            name     = "name",
            markdown = true,
        }
    },
    collect_callback = function(item, mod, tag, value)
        local params = parse_custom_tags(value, named_tags.usebeautiful.params)

        if all_theme_vars.collection[params.name.value] then
            local sig_mods = all_theme_vars.collection[params.name.value]
            local _, themed_items = pairs(sig_mods)(sig_mods)
            local themed_item = themed_items[1]

            named_tags.beautiful_used_by:add_to_item(themed_item, item.name.." "..item.summary)

            -- Auto fill the description if its empty.
            if (not params.description) or params.description == "" then
                params.description = themed_item.summary
            end
        else
            print("WARNING: Could not find theme variable", params.name.value)
        end
    end
}

-- For all properties which have a standard `@beautiful` variable for them
-- @propbeautiful fallback1 fallback2 fallback3 fallback4
add_custom_tag {
    name   = "propbeautiful",
    title  = "Consumed theme variables",
    params = {
        { name = "fallback1" },
        { name = "fallback2" },
        { name = "fallback3" },
        { name = "fallback4" },
    },
    table  = {
        "Variable", "Usage"
    },
    format = function(self, p, item, md)
        local modname = item.module.name:gmatch("[^.]+$")()
        local last = "beautiful."..(modname.."_"..item.name):gsub("[.]", "_")
        local ret = "<td>"..md("`"..last.."`").."</td><td>Fallback when "..md("`"..item.name.."`")..
            " isn't set.</td>"

        for _, fallback in ipairs({p.fallback1, p.fallback2, p.fallback3, p.fallback4 }) do
            ret = ret .. "</tr><tr>"..
                "<td>"..md("`"..fallback.value.."`").."</td><td>Fallback when "..md("`"..last.."`")..
            " isn't set.</td>"
            last = fallback.value
        end

        return ret
    end,
    finish_callback = function(item, raw, params, modules)
        local modname = item.module.name:gmatch("[^.]+$")()
        local name = "beautiful."..(modname.."_"..item.name):gsub("[.]", "_")

        if all_theme_vars.collection[name] then
            local sig_mods = all_theme_vars.collection[name]
            local _, themed_items = pairs(sig_mods)(sig_mods)
            local themed_item = themed_items[1]

            named_tags.beautiful_used_by:add_to_item(themed_item, item.name.." "..item.summary)
        end
    end
}

-- Define the base class where a method/property is implemented.
-- @baseclass my_module.my_submodule.my_baseclass
add_custom_tag {
    name   = "baseclass",
    hidden = true
}

-- Define which interface a method or property implements.
-- @interface container
add_custom_tag {
    name   = "interface",
    hidden = true
}

-- Define when a signal is only emitted on a class rather than on objects.
add_custom_tag {
    name   = "classsignal",
    hidden = true,
}

-- Specify when this an item was deprecated.
-- @deprecatedin 4.4 Optional message.
add_custom_tag {
    name   = "deprecatedin",
    hidden = true,
    params = {
        { name = "api_level" },
    },
}

-- Specify when this an item was deprecated because it was renamed.
-- @renamedin 4.4 new_name Optional message.
add_custom_tag {
    name   = "renamedin",
    hidden = true,
    params = {
        { name = "api_level" },
        { name = "new_name"  },
    },
}

-- Specify when this an item was deprecated because it was moved.
-- @movedin 4.4 new_class new_name Optional message.
add_custom_tag {
    name   = "movedin",
    hidden = true,
    params = {
        { name = "api_level" },
        { name = "new_class" },
        { name = "new_name"  },
    },
}

-- Specify when an item was added.
-- @introducedin 4.4
add_custom_tag {
    name   = "introducedin",
    hidden = true,
    params = {
        { name = "api_level" },
    },
}

add_custom_tag {
    name   = "request",
    title  = "Requested actions or permissions",
    params = {
        { name = "class"   },
        { name = "type"    },
        { name = "context" },
        { name = "default" },
    },
    table  = {
        "Class", "Permission", "Context", "Default", "Description"
    },
}

-- Define the supermodule class.
-- This tag should be used at the module level. All properties from the
-- supermodule will be recursively added to the module by our ldoc template.
-- @supermodule supermodule
add_custom_tag {
    name = "supermodule",
    hidden = true,
    auto_subtags = false
}

-- Mark the item as hidden.
-- This tag should be used to hide items from the documentation.
-- @hidden
add_custom_tag {
    name = "hidden",
    hidden = true,
}

-- Mark the item as readonly.
-- This tag should be used to mark readonly properties.
-- @readonly
add_custom_tag {
    name = "readonly",
    hidden = true,
    auto_subtags = false
}

-- Forces every method and function to have either `@treturn` or `@noreturn`.
-- This avoids the many case where the return value was forgotten.
add_custom_tag {
    name = "noreturn",
    hidden = true,
    auto_subtags = false
}

-- When a property cannot be `nil` or a function/method cannot return `nil`.
add_custom_tag {
    name = "nonnullable",
    hidden = true,
    auto_subtags = false
}

-- When properties are integers, the value usually has a meaning, like the PID,
-- apoint or a pixel.
add_custom_tag {
    name = "propertyunit",
    title = "Unit",
    hidden = true,
    auto_subtags = false
}

-- Some string properties are de-facto enums. Only a small set of value is valid.
-- This tag provides a consistent rendering for such properties.
add_custom_tag {
    name = "propertyvalue",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "value" },
    },
}

-- Some defaults are not values. They are either algorithms, chains od fallbacks
-- or somehow inherited. `ldoc` `opt` can only parse single "words", thus a new
-- tag is needed for textual description of the default value.
add_custom_tag {
    name = "propertydefault",
    hidden = true,
    auto_subtags = false,
}

-- Some properties have multiple possible types. Some also might support multiple
-- "logical type" for the same datatype. For example `string` can be a path or
-- some CSS/SVG or an integer have different meaning for positive vs.
-- negative/zeroed.
--
-- This tag helps document those nuances.
add_custom_tag {
    name = "propertytype",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "typename" },
    },
}

-- Some values, mostly bytes, have a minimum and maximum value.
add_custom_tag {
    name = "rangestart",
    title = "Minimum value",
    hidden = true,
    auto_subtags = false
}
add_custom_tag {
    name = "rangestop",
    title = "Maximum value",
    hidden = true,
    auto_subtags = false
}
add_custom_tag {
    name = "negativeallowed",
    title = "Negative allowed",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "allowed" },
    },
}

-- A lot of properties have the `table` value. Lua tables can be anything from
-- "struct" to list to objects. For lists, then the type of the row needs to
-- be specified.
add_custom_tag {
    name = "tablerowtype",
    title = "Table content",
    hidden = true,
    auto_subtags = false,
}
add_custom_tag {
    name = "tablerowkey",
    title = "Row keys",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "type" },
        { name = "name" },
    },
}

-- When a `@property` takes a `function` value, then the function arguments
-- much be provided. If there is none, then `@functionnoparam` must be explicitly
-- specified. Same for the return value(s).
add_custom_tag {
    name = "functionnoparam",
    hidden = true,
    auto_subtags = false,
}
add_custom_tag {
    name = "functionparam",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "type" },
        { name = "name" },
    },
}
add_custom_tag {
    name = "functionnoreturn",
    hidden = true,
    auto_subtags = false,
}
add_custom_tag {
    name = "functionreturn",
    hidden = true,
    auto_subtags = false,
    params = {
        { name = "type" },
    },
}

add_custom_tag {
    name   = "signalhandler",
    hidden = false,
    title  = "Request handler",
    auto_subtags = false,
    params = {
        { name = "source" },
    },
    format = function(self, params, item, md)
        return ldoc.markup("`"..params.source.value.."`") .. " " .. params.description
    end
}

add_custom_tag {
    name = "beautiful_used_by",
    hidden = false,
    title = "Used by",
    auto_subtags = false,
    params = {
        { name = "source" },
    },
    format = function(self, params, item, md)
        return ldoc.markup("`"..params.source.value.."`") .. " " .. params.description
    end
}

-- Auto generate some code for replacing request handlers.
add_custom_tag {
    name   = "sourcesignal",
    title  = "Source signal",
    hidden = false,
    params = {
        { name = "class"   },
        { name = "signal"  },
    },
    format  = function(self, params, item, md)
        return ldoc.markup("`"..params.signal.value.."` from the `"..params.class.value.."` module.")..
            " This code allows to disconnect this handler and implement your own:"
    end,
    finish_callback = function(item, raw, params, modules)
        if all_signals.collection[params.signal.value] then
            local sig_mods = all_signals.collection[params.signal.value]
            local _, signal_items = pairs(sig_mods)(sig_mods)
            local signal_item = signal_items[1]

            -- Auto generate some code.
            local code = "-- Disconnect the original handler.\n"
            code = code .. signal_item.module.name .. ".disconnect_signal('".. params.signal.value .."', "..item.name..")\n\n"
            code = code .. "-- Connect a custom handler.\n"
            code = code .. signal_item.module.name .. ".connect_signal('".. params.signal.value .."', function("


            if signal_item.type == "signal" then
                for idx, parm in ipairs(signal_item.params) do
                    code = code .. parm .. (idx == #signal_item.params and "" or ", ")
                end

                code = code .. ")\n    -- code here\nend)"

                named_tags.signalhandler:add_to_item(signal_item, item.name.." "..item.summary)
            end

            item.tag_extra_data = item.tag_extra_data or {}
            item.tag_extra_data["sourcesignal"] = item.tag_extra_data["sourcesignal"] or {}
            item.tag_extra_data["sourcesignal"][raw] = item.tag_extra_data["sourcesignal"][raw] or {}
            item.tag_extra_data["sourcesignal"][raw].usage = ldoc.prettify(code)

            item.has_show_more = true
        end
    end
}

-- More fitting section names
kind_names={topic='Documentation', module='Libraries', script='Sample files'}

-- Sort modules alphabetically
sort_modules=true

-- Add more project level (left side index) types.
new_type("coreclassmod", "Core_components"  , true)
new_type("inputmodule" , "Input_handling"   , true)
new_type("ruleslib"    , "Declarative_rules", true)
new_type("widgetmod"   , "Widgets"          , true)
new_type("containermod", "Widget_containers", true)
new_type("layoutmod"   , "Widget_layouts"   , true)
new_type("popupmod"    , "Popups_and_bars"  , true)
new_type("utillib"     , "Utility_libraries", true)
new_type("themelib"    , "Theme_related_libraries", true)

file = {
    -- C parts of libraries
    '../dbus.c',
    '../luaa.c',
    '../mouse.c',
    '../mousegrabber.c',
    '../root.c',
    '../selection.c',
    '../spawn.c',
    '../xkb.c',
    '../objects/client.c',
    '../objects/drawable.c',
    '../objects/screen.c',
    '../objects/tag.c',
    '../objects/window.c',

    -- LUA libraries
    '../lib/',
    -- Auto generated scripts
    '../script_files/',
    exclude = {
        -- exclude these modules, as they do not contain any written
        -- documentation
        '../lib/awful/autofocus.lua',
        '../lib/awful/client/shape.lua',
        '../lib/awful/dbus.lua',
        '../lib/awful/_compat.lua',
        '../lib/awful/init.lua',
        '../lib/awful/remote.lua',
        '../lib/awful/screen/dpi.lua',
        '../lib/awful/startup_notification.lua',
        '../lib/awful/mouse/drag_to_tag.lua',
        '../lib/awful/permissions/_common.lua',
        '../lib/awful/client/urgent.lua',
        '../lib/gears/init.lua',
        '../lib/wibox/layout/init.lua',
        '../lib/wibox/container/init.lua',
        '../lib/naughty/constants.lua',
        '../lib/naughty/dbus.lua',
        '../lib/beautiful/gtk.lua',
        '../lib/ruled/init.lua',

        -- Ignore some parts of the widget library
        '../lib/awful/widget/init.lua',
        '../lib/naughty/layout/init.lua',
        '../lib/naughty/widget/init.lua',
        '../lib/naughty/container/init.lua',
        '../lib/naughty/list/init.lua',
        '../lib/naughty/widget/_default.lua',

        -- Ignore components that provide no value to users and have confusing
        -- names
        '../objects/button.c',
        '../objects/key.c',

        -- Deprecated classes for one years or more don't deserve entries
        -- in the index
        '../lib/awful/widget/graph.lua',
        '../lib/awful/widget/progressbar.lua',
        '../lib/awful/widget/textclock.lua',
        '../lib/awful/wibox.lua',
        '../lib/awful/ewmh.lua',
        '../lib/wibox/layout/constraint.lua',
        '../lib/wibox/layout/margin.lua',
        '../lib/wibox/layout/mirror.lua',
        '../lib/wibox/layout/rotate.lua',
        '../lib/wibox/layout/scroll.lua',
        '../lib/wibox/widget/background.lua',
        '../lib/wibox/drawable.lua',
    }
}

-- Wrap the module name for the CSS highlight.
local function wrap_modname(str, item)
    if (not item.module) or str:sub(1, #item.module.name+1) ~= item.module.name.."." then return str end

    return "<span class='function_modname'>"..item.module.name..".</span>"
        .. str:sub(#item.module.name+2, 9999)
end

local named_args = {
    [ "(args)"                                     ] = true,
    [ "([args])"                                   ] = true,
    [ "([args=nil])"                               ] = true,
    [ "([args={}])"                                ] = true,
    [ '(<span class="optional_param">args</span>)' ] = true,
}

-- Some values come from external sources, we can't enforce the naming conventions
-- on them. So far, they are all keyboard related.
local param_name_whitelist = {
    Mod2 = true, Lock = true, Control = true, Mod1 = true, ISO_Level3_Shift = true,
    Mod4 = true, Insert = true, Delete = true, Next = true, Prior = true, Left = true,
    Up = true, Right = true, Down = true, KP_End = true, KP_Down = true,
    KP_Next = true, KP_Left = true, KP_Begin = true, KP_Right = true,
    KP_Home = true, KP_Up = true, KP_Prior = true, KP_Insert = true, KP_Delete = true,
    KP_Divide = true, KP_Multiply = true, KP_Subtract = true, KP_Add = true,
    KP_Enter = true, Escape = true, Tab = true, space = true, Return = true,
    XF86MonBrightnessUp = true, XF86MonBrightnessDown = true,
    XF86AudioRaiseVolume = true, XF86AudioLowerVolume = true, XF86AudioMute = true,
    XF86AudioPlay = true, XF86AudioPrev = true, XF86AudioNext = true, XF86AudioStop = true,
}

-- Sections which are hidden by default, but visible when clicked.
local summarize = {
    is_deprecated = {index = 1, title = "deprecated"      , count = false},
    emits         = {index = 2, title = "signal"          , count = true },
    propemits     = {index = 3, title = "signal"          , count = true },
    usebeautiful  = {index = 4, title = "theme variable"  , count = true },
    propbeautiful = {index = 5, title = "theme variable"  , count = true },
    request       = {index = 6, title = "permission"      , count = true },
    classsignal   = {index = 7, title = "Class level only", count = false},
    readonly      = {index = 8, title = "read only"       , count = false},
}

local delimiter_for_tag = {
    usebeautiful  = { "table class='widget_list' border=1", "table", "tr", "tr", {"Theme variable", "Usage"}},
    propbeautiful = { "table class='widget_list' border=1", "table", "tr", "tr", {"Theme variable", "Usage"}},
    request       = { "table class='widget_list' border=1", "table", "tr", "tr", {"Class", "Permission", "Context", "Default", "Description"}},
    sourcesignal  = { "div", "div", "span", "span" }
}

--- If the title is short and descritive, there is no point to bloat it.
--
-- That test is mostly to catch empty or lazy description (such as the module
-- name and nothing else).
local short_title_whitelist = {
    [ "rc.lua"                  ] = true,
    [ "naughty.action"          ] = true,
    [ "naughty.layout.box"      ] = true,
    [ "naughty.widget.title"    ] = true,
    [ "theme.lua"               ] = true,
    [ "wibox.container.margin"  ] = true,
    [ "wibox.container.arcchart"] = true,
    [ "wibox.widget.checkbox"   ] = true,
    [ "wibox.widget.imagebox"   ] = true,
    [ "wibox.widget.separator"  ] = true,
    [ "wibox.widget.progressbar"] = true,
    [ "naughty"                 ] = true,
    [ "xproperties"             ] = true,
}

-- Use the first word of the subtag content to map it to its tag.
local function sort_subtags(item, tag, subtag, values)
    local ret = {}

    for _, value in ipairs(values) do
        local parsed = parse_custom_tags(value, {{name = "maps_to"}})
        ret[parsed.maps_to.value] = ret[parsed.maps_to.value] or {}
        ret[parsed.maps_to.value][#ret[parsed.maps_to.value]+1] = parsed.description
    end

    return ret
end

-- Gather a summary of the tags hidden by default .
local function generate_summary(item)
    local tgs = {}

    for k, v in pairs(summarize) do
        tgs[v.index] = {title=v.title, count=0, showcount=v.count}
    end

    for tag, value in pairs(item.tags) do
        if summarize[tag] then
            tgs[summarize[tag].index].count = #value
        end
    end

    local ret, has_show_more = {}, item.has_show_more or false

    for k, v in ipairs(tgs) do
        if v.count > 0 then

            if v.count > 1 then
                v.title = v.title .. "s"
            end

            ret[#ret+1] = v
            has_show_more = v.showcount or has_show_more
        end
    end

    item.extra_summary = #ret > 0 and ret or nil
    item.has_show_more = has_show_more
end

-- We have custom types, sub-types and different rendering.
--
-- To avoid added too much business logic in the template, handle this now.
-- Note that this works because the name handler is called when doing the table
-- of content, which is before any custom types is used.
local function init_custom_types(item)
    if item.is_init then return end

    generate_summary(item)

    -- Give each item an unique identifier so the JavaScript can locate them.
    item.uid, item_id = item_id, item_id + 1

    item.delims, item.auto_usage, item.auto_params, item.metadata = {}, {}, {}, {}

    local to_rm = {}

    for tag, values in pairs(item.tags) do
        -- Remove the sub-tags so they don't get rendered as top level ones.
        if named_tags[tag] and named_tags[tag].auto_usage then
            item.auto_usage[tag] = sort_subtags(
                item, named_tags[tag].parent, named_tags[tag], values
            )
            to_rm[#to_rm+1] = tag
        elseif named_tags[tag] and named_tags[tag].auto_params then
            item.auto_params[tag] = sort_subtags(
                item, named_tags[tag].parent, named_tags[tag], values
            )
            to_rm[#to_rm+1] = tag
        end
    end

    -- Remove from the top-level tag list.
    for _, rm in ipairs(to_rm) do
        item.tags[rm] = nil
    end

    -- Set the item base class.
    if item.tags["baseclass"] then
        item.baseclass = item.tags["baseclass"][1]
    end

    if not item.baseclass and item.module then
        item.baseclass = item.module.name
    end

    -- Some methods and properties can be inherited from parent classes.
    -- in those case, they need the explicit `@baseclass` tag.
    item.inherited = item.baseclass and item.module
        and item.module.name ~= item.baseclass

    function item.get_delim(tag)
        if delimiter_for_tag[tag] then
            return delimiter_for_tag[tag][1],
                   delimiter_for_tag[tag][2],
                   delimiter_for_tag[tag][3],
                   delimiter_for_tag[tag][4],
                   delimiter_for_tag[tag][5]
        else
            return "ul", "ul", "li", "li", nil
        end
    end

    -- Allow the template to fetch the right sub-tags.
    function item.get_auto_params(tag, value)
        local extra = (item.tag_extra_data and item.tag_extra_data[tag] and item.tag_extra_data[tag][value]) or {}

        -- Makes auto-generated subtags easier to implement.
        if item.auto_params[tag.."tparam_override"] then
            return item.auto_params[tag.."tparam_override"], named_tags[tag.."tparam"], extra
        end

        local parsed = nil

        if item.parsed_tags and item.parsed_tags[tag] and item.parsed_tags[tag][value] then
            parsed = item.parsed_tags[tag][value]
        end

        if not item.auto_params[tag.."tparam"] then return nil, nil, extra end

        if parsed.name and item.auto_params[tag.."tparam"][parsed.name.value] then
            return item.auto_params[tag.."tparam"][parsed.name.value], named_tags[tag.."tparam"], extra
        end

        return nil, nil, extra
    end

    -- Recursive way to annotate property-like objects.
    local amt
    amt = function(self, title, description, datatype)
        self.metadata[#self.metadata+1] = {
            title        = title,
            datatype     = datatype,
            description  = description,
            metadata     = {},
            add_metadata = amt
        }
        return self.metadata[#self.metadata]
    end
    item.add_metadata = amt

    item.is_init = true
end

-- Wrap the arguments for the CSS highlight.
local function wrap_args(item)
    if not item.args then return "" end

    -- Display named args with `{}` and ordered args with `()`
    if named_args[item.args] then
        item.is_named_call = true
        return "<span class='function_named_args'><b>{</b>[args]<b>}</b></span>"
    end

    local new_args = item.args:sub(2, item.args:len()-1)

    return "<span class='function_args'> <b>(</b>"..new_args.."<b>)</b></span>"
end

-- Mimics the ldoc built-in method style, but better.
--
-- This custom renderer exists because using ldoc built-in method detection
-- turned out to be too unreliable and upstream is dead.
local function render_methods(item)
    local ret = item.name

    -- Some methods will have it depending on the weather. Most wont.
    if not ret:find(":") then
        ret = ":"..ret
    end

    return ret .. " " .. wrap_args(item)
end

-- Replace the "|" in alternative types by "or".
local function pipe_to_or(s)
    s = s:gsub("|"," <i>or</i> ")

    if s:sub(1,1) == "?" then
        s = s:gsub("?","nil <i>or</i> ")
    end

    return s
end

-- Parse the magic parameters to type in something the template eats.
local function sanitize_type(item)
    for parm in ldoc.modules.iter(item.params) do
        local t = item:type_of_param(parm)

        -- Remove the value.
        t = t:gsub("(\\[[^\\]]])","")
        t = t:gsub("?","")

        -- Add " or " between alternatives
        t = pipe_to_or(t)

        -- Fallback.
        t = t == "" and parm or t
        t = t == "" and "N/A" or t

        item.display_type = "<span class='summary_type'>"..t.."</span>"

        -- There is no value in repeating the type a second time.
        if item.params.map[parm] == "" then
            item.hide_params = true
        end

        if t ~= "N/A" then return end
    end

    -- It has to be set, otherwise the table will have different col count.
    item.display_type = "<span class='summary_type'>N/A</span>"
end

-- Detect error prone markdown formatting.
local function detect_markdown_footguns(string)
    for line in string:gmatch("[^\n]*") do
        if line:sub(1,4) ~= "    " then
            local is_tick = false

            -- Detect unquoted code with 2 underscores. They will render as italic,
            -- which is definitively not wanted. Add "`" to fix.
            for part in line:gmatch("[^`]*`?") do
                if not is_tick then
                    local count = 0

                    for under in part:gmatch("[^\\]_") do
                        count = count + 1
                    end

                    if count > 1 then
                        return false
                    end
                end

                is_tick = not is_tick
            end
        end
    end

    return true
end

-- Add parentheses when there is alternative return types.
local function generate_return_tuple(item, group)
    local tuple = {}

    for r in group:iter() do
        local type = item:return_type(r);

        type = pipe_to_or(type)

        if type ~= nil and type ~= "" then
            tuple[#tuple+1] = type
        end
    end

    if #tuple == 1 then
        return tuple[1]
    else
        local ret = "("
        for i, elem in ldoc.ipairs(tuple) do
            ret = ret..elem

            if i ~= #tuple then
                ret = ret..", "
            end
        end
        ret = ret..")"

        return ret
    end
end

-- Create a return type string.
local function sanitize_return_type(item)

    local groups = item.retgroups

    item.display_type = ""

    if groups then
        item.display_type = "<span class='summary_type'> -&gt;&nbsp;"

        for i,group in ldoc.ipairs(groups) do
            item.display_type = item.display_type .. generate_return_tuple(
                item,
                group,
                ldoc
            )

            if i ~= #groups then
                item.display_type = item.display_type  .. " <i>or</i> "
            end
        end

        item.display_type = item.display_type .. "</span>"
    elseif not item.tags["noreturn"] then
        print(
            "WARNING:", item.name, "from", item.module.name,
            "doesn't have a return value or @noreturn"
        )
    end

    item.compact_signature = true
end

-- Traverse the entire doc and reverse-map the links between our custom
-- tags and the content it is pointing toward. From that, we add some
-- "consumers"/"providers" tables to each (relevant) item.
local function global_init(_ldoc)
    ldoc = _ldoc

    if is_init then return end
    is_init = true

    local module_by_name = {}

    -- First pass, gather the providers.
    for _, mod in ipairs(ldoc.modules) do
        module_by_name[mod.name] = mod

        if mod.type ~= "topic" and ((not mod.summary) or mod.summary == "" or mod.summary:lower():sub(1,8) == "awesome") then
            print("WARNING: Each module needs a good summary as its first line", mod.name, "doesn't")
        end

        local sum_count = 0

        for line in (mod.summary or ""):gmatch("[^\n]*") do
            sum_count = sum_count + 1
        end

        if sum_count > 1 and #mod.summary > 120 then
            print("WARNING:", mod.name, "summary has to be only 1 line.")
        end

        if mod.summary and #mod.summary < 30 and not short_title_whitelist[mod.name] then
            print("WARNING:", mod.name, "summary is too short.")
        end

        for tag, values in pairs(mod.tags) do
            for _, value in ipairs(values.gmatch and {values} or values) do
                -- Collect instances of some types.
                if databases[tag] and databases[tag].collect then
                    delayed_collect[#delayed_collect+1] = {mod, mod, tag, value}
                end
            end
        end

        for kind, items in mod.kinds() do
            for item in items() do
                -- Decorate the item with our customizations.
                init_custom_types(item)

                -- print(item.description)

                if item.summary and not detect_markdown_footguns(item.summary) then
                    print(
                        "WARNING: "..item.name.." from "..item.module.name.." seems to have"..
                        " ambiguous markdown in its summary, probably underscores. Please either"..
                        " use '`' or HTML."
                    )
                end

                -- Collect instances of some types.
                if databases[item.type] and databases[item.type].collect then
                    databases[item.type].collect(item, mod)
                end

                for tag, values in pairs(item.tags) do
                    for _, value in ipairs(values.gmatch and {values} or values) do
                        -- Collect instances of some types.
                        if databases[tag] and databases[tag].collect then
                            delayed_collect[#delayed_collect+1] = {item, mod, tag, value}
                        end
                    end
                end

                -- Lint the parameters too.
                for parm in ldoc.modules.iter(item.params) do
                    local first = parm:match("^[ ]*(.)")

                    -- If the first letter of a parameter is capital, the type is probably missing.
                    -- That's what happen if you rename @param to @tparam without actually adding the type.
                    if first and first ~= first:lower() and parm:upper() ~= parm and not param_name_whitelist[parm] then
                        print(
                            "ERROR: Parameter "..parm.." from ".. item.name .. " ".. item.module.name..
                            " starts with a capital letter. This is forbidden."
                        )
                    end

                    for p in ldoc.modules.iter(item:subparam(parm)) do
                        local desc = item.params.map[p]

                        if not detect_markdown_footguns(desc) then
                            print(
                                "WARNING: Always use '`' to encapsulate code in the parameters." ..
                                p .. " from " .. item.name .. " " .. item.module.name .. " contains " ..
                                "some ambiguous markup. If this is a false positive, use HTML."
                            )
                        end

                        -- It *sometime* works, but is at risk if being  interpreted as code by markdown.
                        if desc:match("^ [ ]+") then
                            print(
                                "WARNING: ", item.name, "from", item.module.name, "has a parameter description "..
                                "with leading spaces. This will not render correctly", "'"..desc.."'"
                            )
                        end

                        first = desc:match("^[ ]*([a-z])")

                        if first and first ~= first:upper() then
                            print("WARNING: Sentences starts with a capital letter. Please fix", item.module.name, item.name)
                        end

                        --TODO convert @propbeautiful to @usebeautiful and lint them
                        --TODO check the module summary.
                    end
                end
            end
        end
    end

    -- Second pass, collect the custom tags. This is delayed because
    -- the tags depend on the items. Not all items have been processed if
    -- this was called during the first pass. Also, collect callbacks can
    -- themselves create more delayed_collect entries recursively.
    for _, to_collect in ipairs(delayed_collect) do
        databases[to_collect[3]].collect(to_collect[1], to_collect[2], to_collect[3], to_collect[4])
    end

    -- Third pass, parse every custom tags and fill the consumers tables.
    for _, mod in ipairs(ldoc.modules) do
        for kind, items in mod.kinds() do
            for item in items() do
                for tag_name, values in pairs(item.tags) do
                    for _, tag in ipairs(values.gmatch and {values} or values) do
                        local parsed = named_tags[tag_name]
                            and named_tags[tag_name].params
                            and parse_custom_tags(tag, named_tags[tag_name].params)

                        -- Allow the tags to, ie, auto-generate some extra content.
                        if named_tags[tag_name] and named_tags[tag_name].finish_callback then
                            named_tags[tag_name].finish_callback(item, tag, parsed, module_by_name)
                        end

                        -- Save the parsed content to be used in get_auto_params.
                        if parsed then
                            item.parsed_tags = item.parsed_tags or {}
                            item.parsed_tags[tag_name] = item.parsed_tags[tag_name] or {}
                            item.parsed_tags[tag_name][tag] = parsed
                        end
                    end
                end

                -- Mostly for linting.
                if databases[item.type] and databases[item.type].finish then
                    databases[item.type].finish(item, mod, module_by_name)
                end
            end
        end
    end
end

-- Work around the fact that tag/awful.tag client/awful.client pages
-- are merged.
local function compare_module_name(input, module)
    for _, mod in ipairs { module, "awful."..module } do
        if input:sub(1, #mod) == mod then return true end
    end

    return false
end

local no_prefix = {
    property           = true,
    signal             = true,
    clientruleproperty = true,
    deprecatedproperty = true,
}

-- These modules merge the doc of their `awful` siblings.
local coreclassmap = {
    tag    = "tag<span class='listplusign'> and awful.tag</span>",
    screen = "screen<span class='listplusign'> and awful.screen</span>",
    client = "client<span class='listplusign'> and awful.client</span>",
    mouse  = "mouse<span class='listplusign'> and awful.mouse</span>",
}

-- Add the full module name in front.
local add_mod = {
    ["function"]    = true,
    constructorfct  = true,
    constructorfct2 = true,
    staticfct       = true,
    deprecated      = true,
    field           = true,
    signalhandler   = true,
    table           = true,
}

-- Add the arguments.
local add_args = {
    constructorfct  = true,
    constructorfct2 = true,
    staticfct       = true,
    signalhandler   = true,
    callback        = true,
    deprecated      = true,
}

-- Add a type column to the summary and type field in the description.
local display_type = {
    property           = true,
    beautiful          = true,
    field              = true,
    deprecatedproperty = true,
    clientruleproperty = true,
    matchingproperty   = true,
    rulecomponent      = true,
}

-- Add the `-> ret_type` annotation.
local display_return_type = {
    method           = true,
    deprecatedmethod = true,
    staticfct        = true,
}

-- Show return values.
local show_return = {
    ["function"]     = true,
    constructorfct   = true,
    constructorfct2  = true,
    legacylayout     = true,
    staticfct        = true,
    method           = true,
    deprecated       = true,
    deprecatedmethod = true,
}

-- The different type of deprecation.
local is_deprecated = {
    deprecated         = true,
    deprecatedproperty = true,
    deprecatedmethod   = true,
    deprecatedsignal   = true,
}

custom_display_name_handler = function(item, default_handler)
    item.global_init = global_init

    if is_deprecated[item.type] then
        item.tags.is_deprecated = {true}
    end

    init_custom_types(item)

    -- Do not use the default handler. It encodes the parameters using
    -- the optchain convention. Not everybody is confortable with this.
    -- It is also unreadable.
    item.args = ""

    if item.params then
        item.args = "("
        for key, line in ipairs(item.params) do
            local name, comment = item:split_param(line)
            local def = item:default_of_param(line)
            if def then
                item.args = item.args .. '<span class="optional_param">' .. name .. "</span>" .. (key < #item.params and ", " or "")
            else
                item.args = item.args .. name .. (key < #item.params and ", " or "")
            end
        end
        item.args = item.args .. ")"
    end

    local ret = default_handler(item)

    -- Edit the input so the template is notified.
    if display_type[item.type] then
        -- Punch a hole in the sandbox and inject the `ldoc` object.
        item.sanitize_type = sanitize_type
    elseif display_return_type[item.type] then
        item.sanitize_type = sanitize_return_type
    end

    -- LDoc hardcode the "Returns" section for "function" only, fix that.
    if show_return[item.type] and item.tags["return"] then
        item.ret = item.tags["return"]
        item:build_return_groups()
    end

    -- Remove the "namespace" from the signals and properties
    if no_prefix[item.type] then
        local name = item.name:match("%.([^.]+)$")
        return name ~= "" and name or item.name
    end

    -- Handle the left sidebar modules.
    if item.type == "coreclassmod" and coreclassmap[item.name] then
        return coreclassmap[item.name]
    end

    -- Undocumented API to make the libraries and classmod "function" section
    -- more consistent. Right now some have their full awful.foo.bar while other
    -- have "just" `bar`. Given we use constructors from metatables, we have no
    -- choice but to use the full function name. It also makes copy/paste easier.
    if add_mod[item.type] then
        local is_field = item.type == "field" or item.type == "tfield"

        if (not ret:find(".", 1, true)) and (not ret:find(":", 1, true))  then
            ret = item.module.name .. "." .. ret
        elseif is_field and not compare_module_name(ret, item.module.name) then
            ret = item.module.name .. "." .. ret
        end
    end

    if item.type:match("method") then
        ret = render_methods(item)
    end

    -- Get rid of the "module:" in front of method names. It is either wrong or
    -- just redundant.
    ret = ret:gsub("([^:]*)(:[^:])","%2")

    -- Undocumented API to get rid of `module.rounded_rect` rather than
    -- `gears.shape.rounded_rect`
    if ret:sub(1, 7) == "module." and module then
        return ret:gsub("^module", item.module.name)
    end

    -- It isn't there by default.
    if add_args[item.type] then
        ret = ret .. " " .. wrap_args(item)
    end

    -- Beautify.
    ret = wrap_modname(ret, item)

    return ret
end

-- vim: filetype=lua:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80