git.lua

local path_module = require('path')
local git = require('gitutil')
local matchers = require('matchers')
local w = require('tables').wrap
local clink_version = require('clink_version')
local color = require('color')
require('arghelper')
local parser = function (...)
    local p = clink.arg.new_parser(...)
    p._deprecated = nil
    return p
end

-- luacheck: globals matchicons

local argexpected = "Argument expected:  "
local argoptional = "Optional argument:  "
local function hintpfx(optional)
    return optional and argoptional or argexpected
end
local function inc_num_args(user_data, word_index)
    user_data.num_args = (user_data.num_args or 0) + 1
    user_data.word_index = word_index
end
local function is_optional(user_data, word_index)
    local u_num_args = user_data.num_args or 0
    local u_word_index = user_data.word_index
    return (u_num_args > 1) or (u_word_index and u_word_index < word_index)
end

if clink_version.supports_color_settings then
    settings.add('color.git.star', 'bright green', 'Color for preferred branch completions')
end

local file_matches = clink.filematches or matchers.files
local dir_matches = clink.dirmatches or matchers.dirs
local files_parser = parser({file_matches})
local dirs_parser = parser({dir_matches})

local looping_files_parser = clink.argmatcher and clink.argmatcher():addarg(clink.filematches):loop()

local function extract_sgr(c)
    return c and c:match("^\x1b%[(.*)m$") or c
end

local color_git = "38;2;240;80;50" -- the git orange

local function addicon(m, icon, c)
    if matchicons and matchicons.addicontomatch then
        if not c and m.type and m.type:find("file") then
            if rl.getmatchcolor then
                c = extract_sgr(rl.getmatchcolor(m.match, m.type))
            end
        end
        return matchicons.addicontomatch(m, icon, c)
    else
        return m
    end
end

local function addicons(matches)
    if matchicons and matchicons.addicontomatch then
        for _, m in ipairs(matches) do
            local old_type = m.type
            m.type = "file"
            addicon(m)
            m.type = old_type
        end
    end
    return matches
end

local map_file
if rl and rl.getmatchcolor then
    map_file = function (file)
        if type(file) == "table" then
            return file
        else
            return { match=file, display='\x1b[m'..rl.getmatchcolor(file, 'file')..file, type='arg' }
        end
    end
else
    map_file = function (file)
        if type(file) == "table" then
            return file
        else
            return { match=file, display='\x1b[m'..file, type='arg' }
        end
    end
end

local function has_dot_dirs(token)
    for _, t in ipairs(string.explode(token, '/\\')) do
        if t == '.' or t == '..' then
            return true
        end
    end
end

local function get_relative_prefix(git_dir)
    local cwd = clink.lower(path.join(os.getcwd(), ''))
    git_dir = clink.lower(path.join(path.toparent(git_dir), ''))
    return cwd:sub(#git_dir + 1)
end

local function adjust_relative_prefix(dir, rel)
    local len = string.matchlen(dir, rel)
    if len < 0 then
        return ''
    end
    return dir:sub(len + 1)
end

---
 -- Lists remote branches based on packed-refs file from git directory
 -- @param string [dir]  Directory where to search file for
 -- @return table  List of remote branches
local function list_packed_refs(dir, kind)
    local result = w()
    local git_dir = dir or git.get_git_common_dir()
    if not git_dir then return result end

    kind = kind or "remotes"

    local packed_refs_file = io.open(git_dir..'/packed-refs')
    if packed_refs_file == nil then return {} end

    for line in packed_refs_file:lines() do
        -- SHA is 40 char length + 1 char for space
        if #line > 41 then
            local match = line:sub(41):match('refs/'..kind..'/(.*)')
            if match then table.insert(result, match) end
        end
    end

    packed_refs_file:close()
    return result
end

local function list_remote_branches(dir)
    local git_dir = dir or git.get_git_common_dir()
    if not git_dir then return w() end

    return w(path_module.list_files(git_dir..'/refs/remotes', '/*',
        --[[recursive=]]true, --[[reverse_separator=]]true))
    :concat(list_packed_refs(git_dir))
    :sort():dedupe()
end

local function list_tags(dir)
    local git_dir = dir or git.get_git_common_dir()
    if not git_dir then return w() end

    local result = w(path_module.list_files(git_dir..'/refs/tags', '/*',
        --[[recursive=]]true, --[[reverse_separator=]]true))
    :concat(list_packed_refs(git_dir, 'tags'))

    if string.comparematches then -- luacheck: no global
        table.sort(result, string.comparematches) -- luacheck: no global
    else
        result = result:sort()
    end
    return result
end

local function list_git_status_files(token, flags) -- luacheck: no unused args
    local result = w()
    local git_dir = git.get_git_common_dir()
    if git_dir then
        local rel_pfx = get_relative_prefix(git_dir)
        local f = io.popen(git.make_command("status --porcelain "..(flags or "").." **"))
        if f then
            if string.matchlen then -- luacheck: no global
                --[[
                token = path.normalise(token)
                --]]
                for line in f:lines() do
                    line = line:match("^.[^ ] (.+)$")
                    if line then
                        line = path.normalise(line)
                        --[[
                        -- TODO: Maybe use match display filtering to show the number of files in each dir?
                        local mlen = string.matchlen(line, token) -- luacheck: no global
                        if mlen < 0 then
                            table.insert(result, { match = line, type = "file" })
                        else
                            local dir = path.getdirectory(line:sub(1, mlen))
                            local child = line:sub(mlen + 1):match("^([^/\\]*[/\\]?)")
                            local m = dir and path.join(dir, child) or child
                            local isdir = m:sub(-1):find("[/\\]")
                            table.insert(result, { match = m, type = (isdir and "dir" or "file") })
                        end
                        --]]
                        table.insert(result, adjust_relative_prefix(line, rel_pfx))
                    end
                end
            else
                for line in f:lines() do
                    table.insert(result, adjust_relative_prefix(line:sub(4), rel_pfx))
                end
            end
            f:close()
        end
    end
    return result
end

---
 -- Lists local branches for git repo in git_dir directory.
 --
 -- @param string [dir]  Git directory, where to search for remote branches
 -- @return table  List of branches.
local function list_local_branches(dir)
    local git_dir = dir or git.get_git_common_dir()
    if not git_dir then return w() end

    local result = w(path_module.list_files(git_dir..'/refs/heads', '/*',
        --[[recursive=]]true, --[[reverse_separator=]]true))
    :concat(list_packed_refs(git_dir, 'heads'))
    :sort():dedupe()

    return result
end

local function branches()
    local git_dir = git.get_git_common_dir()
    if not git_dir then return w() end

    return list_local_branches(git_dir)
end

-- Function to get the list of git aliases.
local function get_git_aliases()
    local res = w()

    local f = io.popen(git.make_command("config --get-regexp alias"))
    if f == nil then return res end

    for line in f:lines() do
        local name, command = line:match("^alias.([^ ]+) +(.+)$")
        if name then
            table.insert(res, { name=name, command=command })
        end
    end

    f:close()

    return res
end

-- Function to generate completions for alias
local cached_aliases
local index_aliases = {}
local function alias(token) -- luacheck: no unused args
    if cached_aliases then
        return cached_aliases
    end

    local res = w()

    local aliases = get_git_aliases()
    if clink_version.supports_display_filter_description then
        for _, a in ipairs(aliases) do
            table.insert(res, { match=a.name, description="Alias: "..a.command })
        end
    else
        for _, a in ipairs(aliases) do
            table.insert(res, a.name)
        end
    end

    index_aliases = {}
    for _, a in ipairs(aliases) do
        index_aliases[a.name] = true
    end

    if clink.onbeginedit then
        cached_aliases = res
    end
    return res
end

-- Function to generate completions for all command names
local cached_commands
local function catchall(token) -- luacheck: no unused args
    if cached_commands then
        return cached_commands
    end

    local res = w()

    local f = io.popen(git.make_command("help -a --no-aliases"))
    if f then
        for line in f:lines() do
            local name, desc = line:match("^   ([^ ]+) *(.*)$") -- luacheck: no unused
            if name then
                -- Currently the descriptions are discarded; only the main
                -- commands will list descriptions, so that more columns can
                -- fit on the screen.
                table.insert(res, name)
            end
        end
        f:close()
    end

    res:sort()

    if clink.onbeginedit then
        cached_commands = res
    end
    return res
end

local function remotes(token)  -- luacheck: no unused args
    local result = w()
    local git_dir = git.get_git_common_dir()
    if not git_dir then return result end

    local git_config = io.open(git_dir..'/config')
    -- if there is no gitconfig file (WAT?!), return empty list
    if git_config == nil then return result end

    for line in git_config:lines() do
        local remote = line:match('%[remote "(.*)"%]')
        if (remote) then
            table.insert(result, remote)
        end
    end

    git_config:close()
    return result
end

local function local_or_remote_branches(token)
    -- Try to resolve .git directory location
    local git_dir = git.get_git_common_dir()
    if not git_dir then return w() end

    return list_local_branches(git_dir)
    :concat(list_remote_branches(git_dir))
    :filter(function(branch)
        return clink.is_match(token, branch)
    end)
end

local function add_spec_generator(token)
    if has_dot_dirs(token) then
        return addicons(file_matches(token))
    end
    return addicons(list_git_status_files(token, "-uall"):map(map_file))
end

local function checkout_spec_generator_049(token)
    local function is_token_match(value)
        return clink.is_match(token, value)
    end

    local git_dir = git.get_git_common_dir()

    local files = list_git_status_files(token, "-uno"):filter(is_token_match)
    local local_branches = branches():filter(is_token_match)
    local remote_branches = list_remote_branches(git_dir):filter(is_token_match)

    local predicted_branches = list_remote_branches(git_dir)
        :map(function (remote_branch)
            return remote_branch:match('.-/(.+)')
        end)
        :filter(function(branch)
            return branch
                and clink.is_match(token, branch)
                -- Filter out those predictions which are already exists as local branches
                and not local_branches:contains(branch)
        end)

    if (#local_branches + #remote_branches + #predicted_branches) == 0 then return files end

    -- if there is any refspec that matches token then:
    --   * disable readline's filename completion, otherwise we'll get a list of these specs
    --     treated as list of files (without 'path' part), ie. 'some_branch' instead of 'my_remote/some_branch'
    --   * create display filter for completion table to append path separator to each directory entry
    --     since it is not added automatically by readline (see previous point)
    clink.matches_are_files(0)
    clink.match_display_filter = function ()
        local star = '*'
        if clink_version.supports_query_rl_var and rl.isvariabletrue('colored-stats') then
            star = color.get_clink_color('color.git.star')..star..color.get_clink_color('color.filtered')
        end
        return files:map(function(file)
            return clink.is_dir(file) and file..'\\' or file
        end)
        :concat(local_branches)
        :concat(predicted_branches:map(function(branch) return star..branch end))
        :concat(remote_branches)
    end

    return files
        :concat(local_branches)
        :concat(predicted_branches)
        :concat(remote_branches)
end

local function checkout_spec_generator_usedisplay(token)
    -- NOTE:  The only reason this needs to use clink.is_match() is because the
    -- match_display_filter function defined here ignores the list of matches it
    -- receives, which is already filtered correctly and has had duplicates
    -- removed.
    local function is_token_match(value)
        return clink.is_match(token, value)
    end

    local git_dir = git.get_git_common_dir()

    local files = list_git_status_files(token, "-uno"):filter(is_token_match)
    local local_branches = branches(token):filter(is_token_match)
    local remote_branches = list_remote_branches(git_dir):filter(is_token_match)

    local predicted_branches = list_remote_branches(git_dir)
        :map(function (remote_branch)
            return remote_branch:match('.-/(.+)')
        end)
        :filter(function(branch)
            return branch
                and clink.is_match(token, branch)
                -- Filter out those predictions which are already exists as local branches
                and not local_branches:contains(branch)
        end)

    -- if there is any refspec that matches token then:
    --   * disable readline's filename completion, otherwise we'll get a list of these specs
    --     treated as list of files (without 'path' part), ie. 'some_branch' instead of 'my_remote/some_branch'
    --   * create display filter for completion table to append path separator to each directory entry
    --     since it is not added automatically by readline (see previous point)
    clink.match_display_filter = function ()
        local star = '*'
        if clink_version.supports_query_rl_var and rl.isvariabletrue('colored-stats') then
            star = color.get_clink_color('color.git.star')..star..color.get_clink_color('color.filtered')
        end
        local matches
        if clink_version.supports_display_filter_description then
            matches = files:map(function(file)
                return addicon({ match=file, display='\x1b[m'..file }, "", color_git)
            end)
        else
            matches = files:map(function(file) return '\x1b[m'..file end)
        end
        return matches
            :concat(local_branches:map(function(branch)
                return addicon({ match=branch }, "", color_git)
            end))
            :concat(predicted_branches:map(function(branch)
                return addicon({ match=branch, display=star..branch }, "", color_git)
            end))
            :concat(remote_branches:map(function(branch)
                return addicon({ match=branch }, "", color_git)
            end))
    end

    return files
        :concat(local_branches)
        :concat(predicted_branches)
        :concat(remote_branches)
end

local function make_indexed_table(input)
    local output = {}
    for _, value in ipairs(input) do
        output[value] = true
    end
    return output
end

local function checkout_spec_generator_nosort(token)
    local git_dir = git.get_git_common_dir()

    local local_branches = branches(token)
    local local_branches_idx = make_indexed_table(local_branches)

    local remote_branches = list_remote_branches(git_dir)
    local remote_branches_idx = make_indexed_table(remote_branches)

    local predicted_branches = list_remote_branches(git_dir)
        :map(function (remote_branch)
            return remote_branch:match('.-/(.+)')
        end)
        :filter(function(name)
            -- Filter out predictions that already exist as local branches.
            return not local_branches_idx[name]
        end)
    local predicted_branches_idx = make_indexed_table(predicted_branches)

    local tag_names = list_tags(git_dir)

    local files = list_git_status_files(token, "-uno")
        :filter(function(name)
            name = path.normalise(name, '/')
            return not predicted_branches_idx[name] and not remote_branches_idx[name] and not local_branches_idx[name]
        end)

    local filtered_color = color.get_clink_color('color.filtered')
    local local_pre = filtered_color
    local predicted_pre = '*'
    local remote_pre = filtered_color
    local tag_pre = color.get_clink_color('color.doskey')
    if clink_version.supports_query_rl_var and rl.isvariabletrue('colored-stats') then
        predicted_pre = color.get_clink_color('color.git.star')..predicted_pre..filtered_color
    end

    local mapped = {
        files:map(map_file):map(function (match) return addicon(match, "", color_git) end),
        local_branches:map(function(branch)
            return addicon({ match=branch, display=local_pre..branch, type='arg' }, "", color_git)
        end),
        predicted_branches:map(function(branch)
            return addicon({ match=branch, display=predicted_pre..branch, type='arg' }, "", color_git)
        end),
        remote_branches:map(function(branch)
            return addicon({ match=branch, display=remote_pre..branch, type='arg' }, "", color_git)
        end),
        tag_names:map(function(tag)
            return addicon({ match=tag, display=tag_pre..tag, type='arg' }, "", extract_sgr(tag_pre))
        end),
    }

    local result = {}
    for _, t in ipairs(mapped) do
        for _, m in ipairs(t) do
            table.insert(result, m)
        end
    end
    result.nosort = true
    return result
end

local function checkout_spec_generator(token)
    if has_dot_dirs(token) then
        return file_matches(token)
    end

    if clink_version.supports_argmatcher_nosort then
        return checkout_spec_generator_nosort(token)
    elseif clink_version.supports_display_filter_description then
        return checkout_spec_generator_usedisplay(token)
    else
        return checkout_spec_generator_049(token)
    end
end

local function checkout_dashdash(token, _, _, _, user_data)
    if user_data and user_data.shared_user_data and user_data.shared_user_data.has_arg1 then
        return file_matches(token)
    end

    if has_dot_dirs(token) then
        return file_matches(token)
    end

    local status_files = list_git_status_files(token, "-uno")
    if clink_version.supports_display_filter_description then
        return status_files:map(function(file) return { match=file, display='\x1b[m'..file, type='arg' } end)
    else
        clink.matches_are_files(false)
        return status_files
    end
end

local function push_branch_spec(token)
    local git_dir = git.get_git_common_dir()
    if not git_dir then return w() end

    local plus_prefix = token:sub(0, 1) == '+'
    -- cut out leading '+' symbol as it is a part of branch spec
    local branch_spec = plus_prefix and token:sub(2) or token
    -- check if there a local/remote branch separator
    local s, e = branch_spec:find(':')

    -- starting from here we have 2 options:
    -- * if there is no branch separator complete word with local branches
    if not s then
        -- setup display filter to prevent display '+' symbol in completion list
        if clink_version.supports_display_filter_description then
            local b = branches(branch_spec):map(function(branch)
                -- append '+' to results if it was specified
                return { match=plus_prefix and '+'..branch or branch, display=branch }
            end)
            clink.ondisplaymatches(function ()
                return b
            end)
            return b
        else
            local b = branches(branch_spec)
            clink.match_display_filter = function ()
                return b
            end
            return b:map(function(branch)
                -- append '+' to results if it was specified
                return plus_prefix and '+'..branch or branch
            end)
        end
    else
    -- * if there is ':' separator then we need to complete remote branch
        local local_branch_spec = branch_spec:sub(1, s - 1)
        local remote_branch_spec = branch_spec:sub(e + 1)

        -- TODO: show remote branches only for remote that has been specified as previous argument
        local b = w(clink.find_dirs(git_dir..'/refs/remotes/*'))
        :filter(function(remote) return path_module.is_real_dir(remote) end)
        :reduce({}, function(result, remote)
            return w(path_module.list_files(git_dir..'/refs/remotes/'..remote, '/*',
                --[[recursive=]]true, --[[reverse_separator=]]true))
            :filter(function(remote_branch)
                return clink.is_match(remote_branch_spec, remote_branch)
            end)
            :concat(result)
        end)

        -- setup display filter to prevent display '+' symbol in completion list
        if clink_version.supports_display_filter_description then
            b = b:map(function(branch)
                return {
                    match=(plus_prefix and '+'..local_branch_spec or local_branch_spec)..':'..branch,
                    display=branch
                }
            end)
            clink.ondisplaymatches(function ()
                return b
            end)
            return b
        else
            clink.match_display_filter = function ()
                return b
            end
            return b:map(function(branch)
                return (plus_prefix and '+'..local_branch_spec or local_branch_spec)..':'..branch
            end)
        end
    end
end

local stashes = function(token, _, _, builder)  -- luacheck: no unused args

    local git_dir = git.get_git_dir()
    if not git_dir then return w() end

    local stash_file = io.open(git_dir..'/logs/refs/stash')
    -- if there is no stash file, return empty list
    if stash_file == nil then return w() end

    local stashes = {}
    -- make a dictionary of stash time and stash comment to
    -- be able to sort stashes by date/time created
    for stash in stash_file:lines() do
        local stash_time, stash_name = stash:match('(%d%d%d%d%d%d%d%d%d%d) [+-]%d%d%d%d%s+(.*)')
        if (stash_name and stash_name) then
            stashes[stash_time] = stash_name
        end
    end

    stash_file:close()

    -- get times for available stashes into separate table and sort it
    -- from newest to oldest. This is required because of stash@{0}
    -- represents _latest_ stash, not the last one in file
    local stash_times = {}
    for k in pairs(stashes) do
        table.insert(stash_times, k)
    end

    table.sort(stash_times, function (a, b)
        return a > b
    end)

    -- generate matches and match filter table
    local ret = {}
    local ret_filter = {}
    for i,v in ipairs(stash_times) do
        local match = "stash@{"..(i-1).."}"
        table.insert(ret, match)
        if clink_version.supports_display_filter_description then
            -- Clink now has a richer match interface.  By returning a table,
            -- the script is able to provide the stash name separately from the
            -- description.  If the script does so, then the popup completion
            -- window is able to show the stash name plus a dimmed description,
            -- but only insert the stash name.
            table.insert(ret_filter, { match=match, type="none", description=stashes[v] })
        else
            table.insert(ret_filter, match.."    "..stashes[v])
        end
    end

    local function filter()
        return ret_filter
    end

    if builder and builder.setforcequoting then
        builder:setforcequoting()
    end

    if clink_version.supports_display_filter_description then
        clink.ondisplaymatches(filter)
    else
        clink.match_display_filter = filter
    end

    return ret
end

local function tags()
    local tag_names = list_tags()
    local tag_pre = color.get_clink_color('color.doskey')
    return tag_names:map(function(tag) return { match=tag, display=tag_pre..tag, type='arg' } end)
end

local cached_guides
local function concept_guides()
    if cached_guides then
        return cached_guides
    end

    local matches = {}
    local r = io.popen(git.make_command("help -g"))
    if r then
        local sgr = "\x1b[m"
        local mark = " \x1b[22;32m*"
        for line in r:lines() do
            local guide, desc = line:match("^   ([^ ]+) *(.*)$")
            if guide then
                if clink_version.supports_display_filter_description then
                    table.insert(matches, { match=guide, display=sgr..guide..mark, description="Guide: "..desc } )
                else
                    table.insert(matches, guide)
                end
            end
        end
        r:close()
    end

    if clink.onbeginedit then
        cached_guides = matches
    end
    return matches
end

local cached_all_commands
local index_main_commands = {}
local function all_commands()
    if cached_all_commands then
        return cached_all_commands
    end

    local matches = {}
    local r = io.popen(git.make_command("help -a"))
    if r then
        local prefix = "Command: "
        local mode = {}
        for line in r:lines() do
            local command, desc = line:match("^   ([^ ]+) *(.*)$")
            if command then
                if clink_version.supports_display_filter_description then
                    local mtype = (mode.aliases and "alias") or (index_main_commands[command] and "cmd")
                    table.insert(matches, { match=command, description=prefix..desc, type=mtype } )
                else
                    table.insert(matches, command)
                end
            elseif line == "Command aliases" then
                prefix = "Alias: "
                mode = { aliases=true }
            elseif line == "External commands" then
                prefix = "External command"
                mode = { external=true }
            end
        end
        r:close()
    end

    if clink.onbeginedit then
        cached_all_commands = matches
    end
    return matches
end

-- luacheck: push
-- luacheck: no max line length

local mergesubtree_arg = parser({dir_matches})
local placeholder_required_arg = parser({})
-- Note: All these separate fromhistory parsers are necessary in order to
-- collect from history separately.
local abbrev_lengths = parser({5, 6, 8, 10, 12, 16, 20, 24, 32, 40})
local batch_format_arg = parser({fromhistory=true, "%(objectname)", "%(objecttype)", "%(objectsize)", "%(objectsize:disk)", "%(deltabase)", "%(rest)"})
local branches_args = parser({branches, hint="branch"}):loop(1)
local clone_filter_arg = parser({fromhistory=true})
local color_opts = parser({"true", "false", "always"})
local commit_trailer_arg = parser({fromhistory=true})
local config_arg = parser({fromhistory=true})
local contextlines_arg = parser({fromhistory=true})
local depth_arg = parser({fromhistory=true})
local diff_filter_arg = parser({fromhistory=true})
local difftool_extcmd_arg = parser({fromhistory=true})
local gpg_keyid_arg = parser({fromhistory=true})
local merge_recursive_options = parser():_addexarg({
    --ort and recursive
    "ours", "theirs",
    "ignore-space-change", "ignore-all-space", "ignore-space-at-eol", "ignore-cr-at-eol",
    "renormalize", "no-renormalize",
    "find-renames",
    { "find-renames="..placeholder_required_arg, "n", "" },
    { "rename-threshold="..placeholder_required_arg, "n", "" },
    "subtree",
    { "subtree="..mergesubtree_arg, "path", "" },
    --recursive
    "patience",
    { "diff-algorithm="..parser({"patience", "minimal", "histogram", "myers"}), "algorithm", "" },
    "no-renames",
})
local merge_strategies = parser({"resolve", "recursive", "ours", "octopus", "subtree"})
local number_commits_arg = parser({"10", "25", "50"})
local origin_arg = parser({fromhistory=true})
local person_arg = parser({fromhistory=true})
local pretty_formats_parser = parser({"oneline", "short", "medium", "full", "fuller", "reference", "email", "mboxrd", "raw", "format:"})
local receive_pack_arg = parser({fromhistory=true})
local regex_ignorelines_arg = parser({fromhistory=true})
local regex_refs_arg = parser({fromhistory=true})
local regex_worddiff_arg = parser({fromhistory=true})
local repo_arg = parser({fromhistory=true})
local shallow_since_arg = parser({fromhistory=true})
local summary_limit_arg = parser({fromhistory=true})
local untracked_files_arg = parser({"no", "normal", "all"})
local x_cmd_arg = parser({fromhistory=true})

local flag__colorequals = "--color="..parser({"always", "auto", "never"})
local flag__columnequals = "--column="..parser({"always", "auto", "never", "column", "row", "plain", "dense", "nodense"})
local flag__conflictequals = '--conflict='..parser({'merge', 'diff3', 'zdiff3'})
local flag__dateequals = "--date="..parser({"relative", "local", "iso", "iso-strict", "rfc", "short", "raw", "human", "unix", "default", "format:", "format-local:"})
local flag__ignore_submodules = "--ignore-submodules="..parser({"none", "untracked", "dirty", "all"})
local flag__whitespaceequals = "--whitespace="..parser({"nowarn", "warn", "fix", "error", "error-all"})

local flagex__abbrevequals = { '--abbrev='..abbrev_lengths, 'n', '' }
local flagex__cleanupequals = { opteq=true, "--cleanup="..parser({"strip", "whitespace", "verbatim", "scissors", "default"}), 'option', '' }
local flagex_c_config = { '-c'..config_arg, ' key=value', 'Set config variable' }
local flagex__config = { '--config'..config_arg, ' key=value', '' }
local flagex__depthdepth = { opteq=true, '--depth'..depth_arg, ' depth', '' }
local flagex__encoding = { opteq=true, '--encoding='..parser({fromhistory=true, "ASCII", "UTF-8", "UTF-16", "UTF-16BE", "UTF-16LE", "UTF-32", "UTF-32BE", "UTF-32LE"}), 'encoding', '' }
local flagex__gpgsignequals = { '--gpg-sign='..gpg_keyid_arg, 'keyid', '' }
local flagex_s_mergestrategy = { '-s'..merge_strategies, ' strategy', 'Use the given merge strategy' }
local flagex__strategy = { opteq=true, '--strategy'..merge_strategies, ' strategy', '' }
local flagex_u_uploadpack = { '-u'..placeholder_required_arg, ' upload-pack', 'Shortcut for --upload-pack' }
local flagex__uploadpack = { opteq=true, '--upload-pack'..placeholder_required_arg, ' upload-pack', '' }
local flagex_X_strategyoption = { '-X'..merge_recursive_options, ' option', 'Pass option into the merge strategy' }
local flagex__strategyoption = { opteq=true, '--strategy-option'..merge_recursive_options, ' option', '' }

local git_options = {
    "core.editor",
    "core.pager",
    "core.excludesfile",
    "core.autocrlf"..parser({"true", "false", "input"}),
    "core.trustctime"..parser({"true", "false"}),
    "core.whitespace"..parser({
        "cr-at-eol",
        "-cr-at-eol",
        "indent-with-non-tab",
        "-indent-with-non-tab",
        "space-before-tab",
        "-space-before-tab",
        "trailing-space",
        "-trailing-space"
    }),
    "commit.template",
    "color.ui"..color_opts, "color.*"..color_opts, "color.branch"..color_opts,
    "color.diff"..color_opts, "color.interactive"..color_opts, "color.status"..color_opts,
    "help.autocorrect",
    "merge.tool", "mergetool.*.cmd", "mergetool.trustExitCode"..parser({"true", "false"}), "diff.external",
    "user.name", "user.email", "user.signingkey",
}

--------------------------------------------------------------------------------
-- Reusable groups of flags.

local help_flags = {
    "--help",
}

local log_flags = {
    concat_one_letter_flags=true,
    "--decorate", "--decorate="..parser({"short", "full", "auto", "no"}), "--no-decorate",
    "--decorate-refs="..regex_refs_arg, "--decorate-refs-exclude="..regex_refs_arg,
    "--source",
    "--mailmap", "--no-mailmap",
    "--full-diff",
    "--log-size",
    { "-n"..placeholder_required_arg, " number", "Limit number of commits to output" },
    { opteq=true, "--max-count="..placeholder_required_arg, "number", "" },
    { opteq=true, "--skip="..placeholder_required_arg, "number", "" },
    { opteq=true, "--since="..placeholder_required_arg, "date", "" },
    { opteq=true, "--after="..placeholder_required_arg, "date", "" },
    { opteq=true, "--until="..placeholder_required_arg, "date", "" },
    { opteq=true, "--before="..placeholder_required_arg, "date", "" },
    { opteq=true, "--author="..person_arg, "pattern", "" },
    { opteq=true, "--committer="..person_arg, "pattern", "" },
    { opteq=true, "--grep="..placeholder_required_arg, "pattern", "" },
    "--all-match",
    "--invert-grep",
    { "-i", "Case insensitive regex matching" },
    "--regexp-ignore-case",
    "--basic-regexp",
    { "-E", "Use extended regex patterns" },
    "--extended-regexp",
    { "-F", "Use fixed strings (no regex patterns)" },
    "--fixed-strings",
    { "-P", "Use Perl-compatible regex patterns" },
    "--perl-regexp",
    "--merges", "--no-merges",
    { opteq=true, "--min-parents="..placeholder_required_arg, "number", "" }, "--no-min-parents",
    { opteq=true, "--max-parents="..placeholder_required_arg, "number", "" }, "--no-max-parents",
    "--first-parent",
    "--not",
    "--all",
    { opteq=true, "--glob="..placeholder_required_arg, "glob", "" },
    { opteq=true, "--exclude="..placeholder_required_arg, "glob", "" },
    "--single-worktree",
    "--ignore-missing",
    "--merge",
}

local log_history_flags = {
    concat_one_letter_flags=true,
    "--follow",
    { "-L"..parser({fromhistory=true}), " start,end:file", "Trace evolution of range" },
    { "-L:"..parser({fromhistory=true}), "funcname:file", "Trace evolution of function" },
    { opteq=true, "--grep-reflog="..placeholder_required_arg, "pattern", "" },
    "--remove-empty",
    --"--reflog",
    --"--alternate-refs",
    "--bisect",
    "--stdin",
    "--cherry-mark",
    "--cherry-pick",
    "--left-only",
    "--right-only",
    "--cherry",
    { "-g", "Walk reflogs, not commit ancestry" },
    "--walk-reflogs",
    "--boundary",
    "--simplify-by-decoration",
    "--show-pulls",
    "--full-history",
    "--dense",
    "--sparse",
    "--simplify-merges",
    "--ancestry-path",
    "--date-order",
    "--author-date-order",
    "--topo-order",
    "--reverse",
}

local commit_formatting_flags = {
    concat_one_letter_flags=true,
    "--pretty",
    "--pretty="..pretty_formats_parser,
    "--format="..pretty_formats_parser,
    "--oneline",
    "--abbrev-commit",
    "--no-abbrev-commit",
    flagex__encoding,
    { "--expand-tabs="..placeholder_required_arg, "n", "" },
    "--expand-tabs",
    "--no-expand-tabs",
    "--notes",
    { "--notes="..placeholder_required_arg, "ref", "" },
    "--no-notes",
    "--first-parent",
    flag__dateequals,
    "--parents",
    "--children",
    "--left-right",
    "--graph",
    "--show-linear-break",
    { "--show-linear-break="..placeholder_required_arg, "barrier", "" },
}

local diff_flags = {
    concat_one_letter_flags=true,
    "--no-index",
    "--cached",
    "--staged",
    "--merge-base",
    { "-p", "Generate patch (this is the default)" },
    { "-u", "Generate patch (this is the default)" },
    "--patch",
    { "-s", "Suppress diff output" },
    "--no-patch",
    { "-U", "n", "Generate diffs with <n> context lines" },
    "--unified",
    { opteq=true, "--output="..files_parser },
    { opteq=true, "--output-indicator-new="..placeholder_required_arg, "char", "" },
    { opteq=true, "--output-indicator-old="..placeholder_required_arg, "char", "" },
    { opteq=true, "--output-indicator-context="..placeholder_required_arg, "char", "" },
    "--raw",
    "--patch-with-raw",
    "--indent-heuristic",
    "--no-indent-heuristic",
    "--minimal",
    "--patience",
    "--histogram",
    { opteq=true, "--anchored="..placeholder_required_arg, "text", "" },
    { opteq=true, "--diff-algorithm="..parser({"patience", "minimal", "histogram", "default", "myers"}) },
    "--stat",
    { "--stat="..placeholder_required_arg, "width[,name-width[,count]]", "" },
    "--compact-summary",
    "--numstat",
    "--shortstat",
    { "-X", "Shortcut for --dirstat" },
    "--dirstat",
    "--dirstat="..parser({"changes", "lines", "files", "cumulative", "noncumulative", "{LIMIT_PERCENT}"}),
    "--cumulative",
    "--dirstat-by-file",
    "--dirstat-by-file="..parser({"cumulative", "noncumulative", "{LIMIT_PERCENT}"}),
    "--summary",
    "--patch-with-stat",
    { "-z", "Use NUL as output field terminator" },
    "--name-only",
    "--name-status",
    "--color",
    flag__colorequals,
    "--no-color",
    "--color-moved",
    "--color-moved="..parser({"no", "default", "plain", "blocks", "zebra", "dimmed-zebra"}),
    "--no-color-moved",
    "--color-moved-ws="..parser({"no", "ignore-space-at-eol", "ignore-space-change", "ignore-all-space", "allow-indentation-change"}),
    "--no-color-moved-ws",
    "--word-diff",
    "--word-diff="..parser({"color", "plain", "porcelain", "none"}),
    { opteq=true, "--word-diff-regex="..regex_worddiff_arg },
    "--color-words", --"--color-words="..regex_worddiff_arg,
    "--no-renames",
    "--rename-empty",
    "--no-rename-empty",
    "--check",
    "--ws-error-highlight="..parser({"context", "old", "new", "all", "default"}),
    "--full-index",
    "--binary",
    "--abbrev",
    flagex__abbrevequals,
    { "-B", "[n][/m]", "Break rewrites into delete+create" },
    "--break-rewrites",
    { "--break-rewrites="..placeholder_required_arg, "[n]/[/m]", "" },
    { "-M", "[n]", "Detect renames; <n> is threshold %" },
    "--find-renames",
    { "--find-renames="..placeholder_required_arg, "n", "" },
    { "-C", "[n]", "Detect copies; <n> is threshold %" },
    "--find-copies",
    { "--find-copies="..placeholder_required_arg, "n", "" },
    "--find-copies-harder",
    { "-D", "Shortcut for --irreversible-delete" },
    "--irreversible-delete",
    { "-l"..placeholder_required_arg, " n", "Limit expensive rename/copy checks" },
    { opteq=true, "--diff-filter="..diff_filter_arg, "[ACDMRTUXB...*]", "" },
    --{ "-S", "string", "" },
    --{ "-G", "regex", "" },
    { opteq=true, "--find-object="..placeholder_required_arg, "objid", "" },
    "--pickaxe-all", "--pickaxe-regex",
    { "-O", " file", "Control order of files in output" },
    { opteq=true, "--skip-to="..files_parser },
    { opteq=true, "--rotate-to="..files_parser },
    { "-R", "Reverse diffs inputs" },
    "--relative",
    "--relative="..dirs_parser,
    "--no-relative",
    { "-a", "Treat all files as text" },
    "--text",
    "--ignore-cr-at-eol",
    "--ignore-space-at-eol",
    { "-b", "Ignore changes in amount of whitespace" },
    "--ignore-space-change",
    { "-w", "Ignore whitespace when comparing files" },
    "--ignore-all-space",
    "--ignore-blank-lines",
    { "-I", " regex", "Ignore changes matching regex on all lines" },
    { "--ignore-matching-lines="..regex_ignorelines_arg, "regex", "" },
    { "--inter-hunk-context="..contextlines_arg, "numlines", "" },
    { "-W", "Show whole function as context lines" },
    "--function-context",
    "--exit-code",
    "--quiet",
    "--ext-diff", "--no-ext-diff",
    "--text-conv", "--no-text-conv",
    "--ignore-submodules",
    flag__ignore_submodules,
    "--submodule", "--submodule="..parser({"short", "log", "diff"}),
    { opteq=true, "--src-prefix="..parser({fromhistory=true}), "prefix", "" },
    { opteq=true, "--dst-prefix="..parser({fromhistory=true}), "prefix", "" },
    "--no-prefix",
    { opteq=true, "--line-prefix="..parser({fromhistory=true}), "prefix", "" },
    "--ita-invisible-in-index",
    { "-1", "Compare working tree with 'base'" },
    "--base",
    { "-2", "Compare working tree with 'our branch'" },
    "--ours",
    { "-3", "Compare working tree with 'their branch'" },
    "--theirs",
    { "-0", "Omit diff output for unmerged entries" },
    { opteq=true, "--diff-merges="..parser({"off", "none", "on", "first-parent", "1", "separate", "m", "combined", "c", "dense-combined", "cc"}) },
    "--no-diff-merges",
    { "-c", "Show combined diffs or merge diffs" },
    "--cc",
    "-m",
    "-t",
    "--combined-all-paths",
}

local fetch_flags = {
    concat_one_letter_flags=true,
    '--all',
    { '-a', 'Synonym for --append' },
    '--append',
    '--atomic',
    { opteq=true, '--depth='..placeholder_required_arg, 'depth', '' },
    { opteq=true, '--deepen='..placeholder_required_arg, 'depth', '' },
    { opteq=true, '--shallow-since='..shallow_since_arg, 'date', '' },
    { opteq=true, '--shallow-exclude='..placeholder_required_arg, 'rev', '' },
    '--unshallow',
    '--update-shallow',
    { opteq=true, '--negotiation-tip='..placeholder_required_arg, 'commit|glob', '' },
    '--negotiate-only',
    '--dry-run',
    { '-f', 'Synonym for --force' },
    '--force',
    { '-k', 'Keep downloaded pack' },
    '--keep',
    '--prefetch',
    { '-p', 'Synonym for --prune' },
    '--prune',
    '--no-tags',
    { opteq=true, '--refmap='..placeholder_required_arg, 'refspec', '' },
    { '-t', 'Also fetch tags' },
    '--tags',
    { '-j', 'Number of parallel jobs for fetching' },
    { opteq=true, '--jobs='..placeholder_required_arg, 'n', '' },
    '--set-upstream',
    flagex__uploadpack,
    --'--progress',
    '--no-progress',
    --'-o'..placeholder_required_arg, '--server-option='..placeholder_required_arg,
    '--show-forced-updates',
    '--no-show-forced-updates',
    { '-4', 'Use only IPv4 addresses' },
    '--ipv4',
    { '-6', 'Use only IPv6 addresses' },
    '--ipv6',
}

local merge_flags_common = {
    concat_one_letter_flags=true,
    flagex_s_mergestrategy,
    flagex__strategy,
    flagex_X_strategyoption,
    flagex__strategyoption,
    { "-S", "GPG-sign the resulting merge commit" },
    "--gpg-sign", "--no-gpg-sign",
    flagex__gpgsignequals,
    --"--verify",
    "--no-verify",
    "--verify-signatures", "--no-verify-signatures",
    --"--progress",
    "--no-progress",
    "--autostash", "--no-autostash",
    { "-n", "Do not show diffstat at end of merge" },
    "--stat", "--no-stat",
}

local merge_flags = {
    concat_one_letter_flags=true,
    "--continue",
    "--abort",
    "--quit",
    { "-i", "Shortcut for --interactive" },
    "--interactive",
    { "-q", "Quiet" },
    "--quiet",
    { "-v", "Be verbose" },
    "--verbose",
    "--rerere-autoupdate", "--no-rerere-autoupdate",
}

local stash_save_flags = {
    concat_one_letter_flags=true,
    { "-p", "Interactively select hunks from diffs" },
    "--patch",
    { "-S", "Stash only changes that are currently staged" },
    "--staged",
    { "-k", "Keep changes already added to the index" },
    "--no-keep-index", "--keep-index",
    { "-u", "Stash all untracked files also" },
    "--include-untracked",
    { "-a", "Stash all ignored and untracked files also" },
    "--all",
    { "-m"..placeholder_required_arg, " msg", "Use the given msg as the stash description" },
    { opteq=true, "--message"..placeholder_required_arg, " msg", "" },
    { "-q", "Quiet" },
    "--quiet",
}

local track_flags = {
    concat_one_letter_flags=true,
    { '-t', 'Set upstream tracking for new branch' },
    '--track',
    '--track='..parser({'direct', 'inherit'}),
    '--no-track',
}

local untracked_flags = {
    { "-u", "[mode]", "Show untracked files recursively" },
    { "-uno", "Show no untracked files" },
    { "-unormal", "Show untracked files and directories" },
    { "-uall", "Show untracked files recursively" },
    "--untracked-files",
    "--untracked-files="..untracked_files_arg,
}

--------------------------------------------------------------------------------
-- Command parsers.

local add_parser = parser()
:setendofflags()
:addarg({add_spec_generator, hint="pathspec"}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-n", "Don't actually add files" },
    "--dry-run",
    { "-v", "Be verbose" },
    "--verbose",
    { "-i", "Add files interactively" },
    "--interactive",
    { "-p", "Interactively select hunks from diffs" },
    "--patch",
    { "-e", "Open diff vs index in editor, then apply" },
    "--edit",
    { "-f", "Force adding ignored files" },
    "--force",
    { "-u", "Update index entries that already exist" },
    "--update",
    "--renormalize",
    { "-N", "Record index entry without content" },
    "--intent-to-add",
    { "-A", "Update all; add, modify, and remove index entries to match the working tree" },
    "--all",
    "--no-all",
    "--ignore-removal",
    "--no-ignore-removal",
    "--refresh",
    "--ignore-errors",
    "--ignore-missing",
    "--sparse",
    { opteq=true, "--chmod="..parser({"+x", "-x"}) },
    { opteq=true, "--pathspec-from-file="..files_parser, "file", "" },
    "--pathspec-file-nul",
})

local apply_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    "--stat",
    "--numstat",
    "--summary",
    "--check",
    "--index",
    "--cached",
    "--intent-to-add",
    { "-3", "Attempt 3-way merge" },
    "--3way",
    { opteq=true, "--build-fake-ancestor="..files_parser, "tmpfile", "" },
    { "-R", "Apply the patch in reverse" },
    "--reverse",
    "--reject",
    { "-z", "Use NUL terminated format with --numstat" },
    { "-p", "n", "Remove <n> leading path components" },
    { "-C", "n", "Ensure at least <n> lines of surrounding context" },
    "--unidiff-zero",
    "--apply",
    "--no-add",
    "--allow-binary-replacement", "--binary",
    { opteq=true, "--exclude="..files_parser, "glob", "" },
    { opteq=true, "--include="..files_parser, "glob", "" },
    "--ignore-space-change", "--ignore-whitespace",
    flag__whitespaceequals,
    "--inaccurate-eof",
    { "-v", "Be verbose" },
    "--verbose",
    { "-q", "Quiet; suppress stderr (no status or progress)" },
    "--quiet",
    "--recount",
    { opteq=true, "--directory="..dirs_parser, "dir", "" },
    "--unsafe-paths",
    "--allow-empty",
})

local blame_parser = parser()
:setendofflags()
:addarg({file_matches, hint="file"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    "--incremental",
    { "-b", "Show blank SHA1 for boundary commits" },
    "--root",
    "--show-stats",
    --"--progress",
    "--no-progress",
    "--score-debug",
    { "-f", "Show filename in the original commit" },
    "--show-name",
    { "-n", "Show line number in the original commit" },
    "--show-number",
    { "-p", "Use porcelain format" },
    "--porcelain",
    "--line-porcelain",
    { "-c", "Use 'git annotate' output format" },
    { "-s", "Suppress author name and timestamp" },
    { "-e", "Show author email instead of name" },
    "--show-email",
    { "-w", "Ignore whitespace when comparing files" },
    "--ignore-rev",
    { opteq=true, "--ignore-revs-file="..files_parser, "file", "" },
    "--color-lines",
    "--color-by-age",
    "--minimal",
    { "-S"..files_parser, " revs-file", "Use revisions from revs-file" },
    { opteq=true, "--contents="..files_parser, "file", "" },
    { "-C", "[n]", "Detect copies; <n> is threshold %" },
    { "-M", "[n]", "Detect renames; <n> is threshold %" },
    { "-L"..parser({fromhistory=true}), " start,end", "Annotate only range" },
    { "-L:"..parser({fromhistory=true}), "funcname", "Annotate only function" },
    "--abbrev",
    flagex__abbrevequals,
    { "-l", "Show long rev" },
    { "-t", "Show raw timestamp" },
    { opteq=true, "--reverse="..placeholder_required_arg, "rev..rev", "" },
})
:_addexflags(commit_formatting_flags)

local branch_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-v", "Be verbose" },
    "--verbose",
    { "-vv", "Be extra verbose" },
    { "-q", "Quiet; suppress non-error messages" },
    "--quiet",
    track_flags,
    "--set-upstream",
    { "-u", "Set upstream tracking info" },
    "--set-upstream-to", "--set-upstream-to="..placeholder_required_arg,
    "--unset-upstream",
    "--color", flag__colorequals, "--no-color",
    { "-r", "List or delete remote tracking branches" },
    "--remotes",
    { opteq=true, "--contains"..placeholder_required_arg, " commit", "" },
    { opteq=true, "--no-contains"..placeholder_required_arg, " commit", "" },
    "--abbrev", flagex__abbrevequals, "--no-abbrev",
    { "-a", "List local and remote tracking branches" },
    "--all",
    { "-d"..branches_args, " branch", "Delete a branch" },
    { opteq=true, "--delete"..parser({branches}):loop(1), " branch", "" },
    { "-D"..branches_args, " branch", "Shortcut for --delete --force" },
    { "-m", "Move or rename a branch" },
    "--move",
    { "-M", "Shortcut for --move --force" },
    { "-c", "Copy a branch and its config and reflog" },
    "--copy",
    { "-C", "Shortcut for --copy --force" },
    { "-i", "Case insensitive sort/filter" },
    "--ignore-case",
    { "-l", "List branches" },
    "--list",
    "--show-current",
    "--create-reflog",
    "--edit-description",
    { "-f", "Force; see help for --force" },
    "--force",
    { opteq=true, "--merged"..placeholder_required_arg, " commit", "" },
    { opteq=true, "--no-merged"..placeholder_required_arg, " commit", "" },
    "--column",
    flag__columnequals,
    "--no-column",
    { "--sort="..placeholder_required_arg, "key", "" },
    { opteq=true, "--points-at", " object", "" },
    { opteq=true, "--format"..placeholder_required_arg, " format", "" },
})

local catfile_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { '-t', 'Show type of object instead of content' },
    { '-s', 'Show size of object instead of content' },
    { '-e', 'Exit with 0 if object exists and is valid' },
    { '-p', 'Pretty-print object contents based on type' },
    '--textconv',
    '--filters',
    { opteq=true, '--path='..files_parser, 'path', '' },
    '--batch',
    { '--batch='..batch_format_arg, 'format', '' },
    '--batch-check',
    { '--batch-check='..batch_format_arg, 'format', '' },
    '--batch-all-objects',
    '--buffer',
    '--unordered',
    '--allow-unknown-type',
    '--follow-symlinks',
})

local checkout_arg_hints_new_branch = {"start-point"}
local checkout_arg_hints_normal = {"branch", "pathspec"}
local function checkout_onarg1(_, _, _, _, user_data)
    if user_data and user_data.shared_user_data then
        user_data.shared_user_data.has_arg1 = true
    end
end
local function checkout_onflag(arg_index, word, _, _, user_data)
    if user_data and arg_index == 0 then
        if word == "-b" or word == "-B" or word == "--orphan" then
            user_data.new_branch = true
        end
    end
end
local function checkout_arg_hint(arg_index, _, _, _, user_data)
    local h
    if user_data and user_data.new_branch then
        h = checkout_arg_hints_new_branch[arg_index]
    else
        h = checkout_arg_hints_normal[arg_index]
    end
    if h then
        return hintpfx(arg_index ~= 1)..h
    end
end

local checkout_parser = parser()
:setendofflags()
:addarg({checkout_spec_generator, hint=checkout_arg_hint, onarg=checkout_onarg1})
:addarg({file_matches, hint=checkout_arg_hint}):loop(2)
:_addexflags({
    concat_one_letter_flags=true,
    onarg=checkout_onflag,
    help_flags,
    { '-q', 'Quiet; suppress feedback messages' },
    '--quiet',
    --'--progress',
    '--no-progress',
    { '-b'..placeholder_required_arg, ' new-branch', 'Create new branch' },
    { '-B'..placeholder_required_arg, ' new-branch', 'Create or reset branch' },
    { '-l', 'Create new branch\'s reflog'},
    { '-d', 'Check out a commit (detached head)' },
    '--detach',
    track_flags,
    '--guess', '--no-guess',
    { opteq=true, '--orphan'..placeholder_required_arg, ' new-branch', '' },
    { '-2', 'Checkout our version for unmerged files' },
    '--ours',
    { '-3', 'Checkout their version for unmerged files' },
    '--theirs',
    { '-f', 'Force switch even if local changes exist' },
    '--force',
    { '-m', 'Merge local changes' },
    '--merge',
    --'--overwrite-ignore',
    '--no-overwrite-ignore',
    '--recurse-submodules', '--no-recurse-submodules',
    --'--overlay',
    '--no-overlay',
    flag__conflictequals,
    { '-p', 'Interactively select hunks from diffs' },
    '--patch',
    '--ignore-skip-worktree-bits',
    '--ignore-other-worktrees',
    { '--pathspec-from-file='..files_parser, "file", "" },
    '--pathspec-file-nul',
    { '--'..parser({checkout_dashdash}):loop(), " pathspec", "" },
})

local cherrypick_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-e", "Edit message before committing" },
    "--edit",
    flagex__cleanupequals,
    { "-x", "Append breadcrumb message" },
    { hide=true, "-r" },
    { "-m"..placeholder_required_arg, " parent-num", "Synonym for --mainline" },
    { opteq=true, "--mainline"..placeholder_required_arg, " parent-num", "" },
    { "-n", "Synonym for --no-commit" },
    "--no-commit",
    { "-s", "Add 'Signed-off-by' trailer" },
    "--signoff",
    { "-S", "GPG-sign commits" },
    "--gpg-sign", "--no-gpg-sign",
    flagex__gpgsignequals,
    "--ff",
    "--allow-empty",
    "--allow-empty-message",
    "--keep-redundant-commits",
    flagex_s_mergestrategy,
    flagex__strategy,
    flagex_X_strategyoption,
    flagex__strategyoption,
    "--rerere-autoupdate", "--no-rerere-autoupdate",
    "--continue",
    "--skip",
    "--quit",
    "--abort",
})

local clone_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argexpected.."repository"})
:addarg({file_matches, hint=argoptional.."directory"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { opteq=true, '--template'..dirs_parser, ' dir', '' },
    { '-l', 'Clone from local repo (via symlinks)' },
    '--local',
    { '-s', 'Clone from local repo (via alternates)' },
    '--shared',
    '--no-hardlinks',
    { '-q', 'Quiet; suppress progress feedback' },
    '--quiet',
    { '-v', 'Be verbose' },
    '--verbose',
    { '-n', 'No checkout of HEAD after cloning' },
    '--no-checkout',
    --'--progress',
    --'--server-option='..placeholder_required_arg,
    '--reject-shallow', '--no-reject-shallow',
    '--bare',
    '--sparse',
    { opteq=true, '--filter='..clone_filter_arg, 'filter-spec', '' },
    '--mirror',
    { '-o'..origin_arg, 'Set origin name' },
    { opteq=true, '--origin='..origin_arg },
    { '-b'..placeholder_required_arg, ' name', 'Checkout name after cloning' },
    { opteq=true, '--branch'..placeholder_required_arg, ' name', '' },
    flagex_u_uploadpack,
    flagex__uploadpack,
    { opteq=true, '--reference'..files_parser, ' repo', '' },
    { opteq=true, '--reference-if-able'..files_parser, 'repo', '' },
    '--dissociate',
    '--remote-submodules', '--no-remote-submodules',
    { opteq=true, '--separate-git-dir='..dirs_parser, 'dir', '' },
    flagex_c_config,
    flagex__config,
    flagex__depthdepth,
    { opteq=true, '--shallow-since='..shallow_since_arg, 'date', '' },
    { opteq=true, '--shallow-exclude='..placeholder_required_arg, 'rev', '' },
    '--single-branch', '--no-single-branch',
    '--no-tags',
    '--recurse-submodules',
    { '--recurse-submodules='..files_parser, 'pathspec', '' },
    '--shallow-submodules', '--no-shallow-submodules',
    { '-j'..placeholder_required_arg, ' n', 'Number of fetch jobs for submodules' },
    { opteq=true, '--jobs'..placeholder_required_arg, ' n', '' },
})

local commit_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-a", "Auto-stage modified/deleted files" },
    "--all",
    { "-p", "Interactively select hunks from diffs" },
    "--patch",
    { "-C"..placeholder_required_arg, " commit", "Reuse msg/info from existing commit" },
    { opteq=true, "--reuse-message="..placeholder_required_arg, "commit", "" },
    { "-c"..placeholder_required_arg, " commit", "Reuse+edit msg/info from existing commit" },
    { opteq=true, "--reedit-message="..placeholder_required_arg, "commit", "" },
    { opteq=true, "--fixup="..parser({'amend:', 'reword:'}) },
    { opteq=true, "--squash="..placeholder_required_arg, 'commit', '' },
    "--reset-author",
    "--short",
    "--branch",
    "--porcelain",
    "--long",
    { "-z", "Terminate entries with NUL, not LF" },
    "--null",
    { "-F"..files_parser, " file", "Take commit message from the given file" },
    { opteq=true, "--file="..files_parser, "file", "" },
    { opteq=true, "--author="..person_arg, "author", "" },
    { opteq=true, "--date="..placeholder_required_arg, "date", "" },
    { "-m"..placeholder_required_arg, " msg", "Use the given msg as the commit message" },
    { opteq=true, "--message="..placeholder_required_arg, "msg", "" },
    { "-t"..files_parser, " file", "Specify commit message template file" },
    { opteq=true, "--template="..files_parser, "file", "" },
    { "-s", "Add 'Signed-off-by' trailer" },
    "--signoff", "--no-signoff",
    { opteq=true, "--trailer"..commit_trailer_arg, " token[:value]", "" },
    --"--verify",
    { "-n", "Bypass verification hooks" },
    "--no-verify",
    "--allow-empty",
    "--allow-empty-message",
    flagex__cleanupequals,
    { "-e", "Edit commit message interactively" },
    "--edit", "--no-edit",
    "--amend",
    "--no-post-rewrite",
    { "-i", "Shortcut for --include" },
    "--include",
    { "-o", "Shortcut for --only" },
    "--only",
    { opteq=true, '--pathspec-from-file='..files_parser, 'file', '' },
    '--pathspec-file-nul',
    untracked_flags,
    { "-v", "Be verbose; show staged diffs" },
    { "-vv", "Be extra verbose; include working diffs" },
    "--verbose",
    { "-q", "Quiet; suppress summary message" },
    "--quiet",
    "--dry-run",
    "--status",
    "--no-status",
    { "-S", "GPG-sign commits" },
    "--gpg-sign",
    flagex__gpgsignequals,
    "--no-gpg-sign",
    "--",
})

local config_parser = parser()
:setendofflags()
-- TODO: subcommands: list, get, set, unset, rename-section, remove-section, edit
-- TODO: deprecated modes
:addarg({git_options, hint=argexpected.."name"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    "--replace-all",
    "--add",
    "--get",
    "--get-all",
    "--get-regexp",
    { opteq=true, "--get-urlmatch"..placeholder_required_arg, " name URL", "" },
    "--global",
    "--system",
    "--local",
    "--worktree",
    { "-f"..files_parser, " config-file", "Write to specified file" },
    { opteq=true, "--file"..files_parser, " config-file", "" },
    { opteq=true, "--blob"..placeholder_required_arg, " blob", "" },
    "--remove-section",
    "--rename-section",
    "--unset",
    "--unset-all",
    { "-l", "List variables and their values" },
    "--list",
    "--fixed-value",
    { opteq=true, "--type="..parser({"bool", "int", "bool-or-int", "path", "expiry-date", "color"}) },
    "--no-type",
    --"--bool",
    --"--int",
    --"--bool-or-int",
    --"--path",
    --"--expiry-date",
    { "-z", "Use NUL to delimit values" },
    "--null",
    "--name-only",
    "--show-origin",
    "--show-scope",
    { opteq=true, "--get-color"..placeholder_required_arg, " name [default]", "" },
    { opteq=true, "--get-colorbool"..placeholder_required_arg, " name", "" },
    { "-e", "Open editor for specified config file" },
    "--edit",
    "--includes", "--no-includes",
    { opteq=true, "--default"..placeholder_required_arg, " value", "" },
})

local diff_parser = parser()
:setendofflags()
:addarg({local_or_remote_branches, file_matches, hint=argoptional.."commit or path"}):loop()
:_addexflags(diff_flags)
:_addexflags(help_flags)
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

local difftool_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."commit or path"}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    '-d', '--dir-diff',
    '-y', '--no-prompt', '--prompt',
    { '--rotate-to='..files_parser, 'file', '' },
    { '--skip-to='..files_parser, 'file', '' },
    { '-t'..placeholder_required_arg, ' tool', '' },                    -- TODO: complete tool (take from config)
    { opteq=true, '--tool='..placeholder_required_arg, 'tool', '' },    -- TODO: complete tool (take from config)
    '--tool-help',
    '--symlinks', '--no-symlinks',
    { '-x'..difftool_extcmd_arg, ' command', '' },
    { opteq=true, '--extcmd='..difftool_extcmd_arg, 'command', '' },
    '-g', '--gui', '--no-gui',
    '--trust-exit-code', '--no-trust-exit-code',
})
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

local fetch_parser = parser()
:setendofflags()
:addarg({remotes, hint=argoptional.."repository" })
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    '--write-fetch-head', '--no-write-fetch-head',
    '--multiple',
    '--auto-maintenance', '--no-auto-maintenance',
    --'--auto-gc', '--no-auto-gc',
    '--no-write-commit-graph',
    { '-P', 'Synonym for --prune-tags' },
    '--prune-tags',
    { '-n', 'Synonym for --no-tags' },
    '--recurse-submodules',
    '--recurse-submodules='..parser({'yes', 'on-demand', 'no'}),
    '--no-recurse-submodules',
    { opteq=true, '--submodule-prefix='..placeholder_required_arg, 'prefix', '' },
    --'--recurse-submodules-default='..parser({'yes', 'on-demand'}),
    { hide=true, '-u' },                -- Only for internal use by git itself.
    { hide=true, '--update-head-ok' },  -- Only for internal use by git itself.
    { '-q', 'Quiet; suppress feedback messages' },
    '--quiet',
    { '-v', 'Be verbose' },
    '--verbose',
    '--stdin',
})
:_addexflags(fetch_flags)

local help_parser = parser()
:setendofflags()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-a",                             "Print all available commands" },
    { "--all",                          "Print all available commands" },
    --"--verbose",
    { "-c",                             "List all available config variables" },
    { "--config",                       "List all available config variables" },
    { "-g",                             "Print a list of git concept guides" },
    { "--guides",                       "Print a list of git concept guides" },
    --"-i",
    --"--info",
    { "-m",                             "Display manual page for the command in the man format" },
    { "--man",                          "Display manual page for the command in the man format" },
    { "-w",                             "Display manual page for the command in HTML format" },
    { "--web",                          "Display manual page for the command in HTML format" },
    { "--aliases",                      "Show aliases in --all (the default)" },
    { "--no-aliases",                   "Don't show aliases in --all" },
    { "--external-commands",            "Show external commands in --all (the default)" },
    { "--no-external-commands",         "Don't show external commands in --all" },
    { "--user-interfaces",              "Print a list of user-facing repository, command and file interfaces" },
    { "--developer-interfaces",         "Print a list of file formats, protocols and other developer interfaces" },
})
if help_parser.setdelayinit then
    help_parser:addarg({delayinit=function (argmatcher) -- luacheck: no unused args
        local matches = all_commands() or {}
        local guides = concept_guides() or {}
        for _,g in ipairs(guides) do
            table.insert(matches, g)
        end
        return matches
    end})
else
    help_parser:addarg(concept_guides, all_commands)
end

local log_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."revision-range or pathspec"})
:addarg({file_matches, hint=argoptional.."pathspec"}):loop(2)
:_addexflags(log_flags)
:_addexflags(log_history_flags)
:_addexflags(diff_flags)
:_addexflags(commit_formatting_flags)
:_addexflags(help_flags)
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

local function merge_onarg(arg_index, word, word_index, _, user_data)
    if user_data then
        if arg_index > 0 then
            inc_num_args(user_data, word_index)
        elseif word == "--continue" or word == "--abort" or word == "--quit" then
            user_data.merge_in_progress = true
        end
    end
end
local function merge_arg_hint(_, _, word_index, _, user_data)
    if user_data and not user_data.merge_in_progress then
        return hintpfx(is_optional(user_data, word_index)).."commit"
    end
end

local merge_parser = parser()
:setendofflags()
:addarg({local_or_remote_branches, onarg=merge_onarg, hint=merge_arg_hint}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    onarg=merge_onarg,
    help_flags,
    "--commit", "--no-commit",
    { "-e", "Edit the generated message before commit" },
    "--edit",
    "--no-edit",
    flagex__cleanupequals,
    "--ff", "--no-ff", "--ff-only",
    "--log", "--no-log",
    { "--log="..placeholder_required_arg, "n", "" },
    "--signoff", "--no-signoff",
    "--squash", "--no-squash",
    "--summary", "--no-summary",
    "--allow-unrelated-histories",
    { "-m"..placeholder_required_arg, ' message', 'Set the commit message' },
    { opteq=true, "--into-name"..parser({branches}), ' branch', '' },
    { "-F"..files_parser, ' file', 'Read commit message from file' },
    { opteq=true, "--file="..files_parser, 'file', '' },
    "--overwrite-ignore", "--no-overwrite-ignore",
})
:_addexflags(merge_flags_common)
:_addexflags(merge_flags)

local pull_parser = parser()
:setendofflags()
:addarg({remotes, hint=argoptional.."repository"})
:addarg({branches, hint=argoptional.."refspec"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-q", "Quiet; only report errors" },
    "--quiet",
    { "-v", "Be verbose" },
    "--verbose",
    "--recurse-submodules",
    "--recurse-submodules="..parser({'yes', 'on-demand', 'no'}),
    "--no-recurse-submodules",
        -- Options related to merging...
    "--commit", "--no-commit",
    { "-e", "Edit merge commit message" },
    "--edit", "--no-edit",
    flagex__cleanupequals,
    "--ff", "--no-ff", "--ff-only",
    "--log", "--no-log",
    { "--log="..placeholder_required_arg, "n", "" },
    "--signoff", "--no-signoff",
    "--squash", "--no-squash",
    "--summary", "--no-summary",
    "--allow-unrelated-histories",
    { "-r", "Synonym for --rebase=true" },
    "--no-rebase",
    { opteq=true, "--rebase="..parser({'false', 'true', 'merges', 'interactive'}) },
})
:_addexflags(merge_flags_common)
:_addexflags(fetch_flags)

local push_parser = parser()
:setendofflags()
:addarg({remotes, hint=argoptional.."repository"})
:addarg({push_branch_spec, hint=argoptional.."refspec"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    '--all',
    '--prune',
    '--mirror',
    { '-n', "Don't actually send the updates" },
    '--dry-run',
    '--porcelain',
    { '-d', 'Synonym for --delete' },
    '--delete',
    '--tags',
    '--follow-tags',
    '--signed', '--signed='..parser({'true', 'false', 'if-asked'}), '--no-signed',
    '--atomic', '--no-atomic',
    --'-o'..placeholder_required_arg, '--server-option='..placeholder_required_arg,
    { opteq=true, '--receive-pack='..receive_pack_arg, 'git-receive-pack', '' },
    { opteq=true, '--exec='..receive_pack_arg, 'git-receive-pack', '' },
    '--force-with-lease', '--no-force-with-lease',
    { '--force-with-lease='..placeholder_required_arg, 'refname[:expect]', '' },
    { '-f', 'Synonym for --force' },
    '--force',
    '--force-if-includes', '--no-force-if-includes',
    { opteq=true, '--repo='..repo_arg, 'repo', '' },
    { '-u', 'Add upstream tracking reference' },
    '--set-upstream',
    '--thin', '--no-thin',
    { '-q', 'Quiet; only report errors' },
    '--quiet',
    { '-v', 'Be verbose' },
    '--verbose',
    --'--progress',
    '--no-recurse-submodules',
    { opteq=true, '--recurse-submodules='..parser({'check', 'on-demand', 'only', 'no'}) },
    --'--verify',
    '--no-verify',
    { '-4', 'Use only IPv4 addresses' },
    '--ipv4',
    { '-6', 'Use only IPv6 addresses' },
    '--ipv6',
})

local rebase_arg_hints_normal = {"upstream repository", "branch"}
local rebase_arg_no_args = {
    ["--continue"] = true,
    ["--skip"] = true,
    ["--abort"] = true,
    ["--quit"] = true,
    ["--edit-todo"] = true,
}
local function rebase_onarg(arg_index, word, _, _, user_data)
    if user_data and arg_index == 0 then
        if rebase_arg_no_args[word] then
            user_data.no_args = true
        end
    end
end
local function rebase_arg_hint(arg_index, _, _, _, user_data)
    local h
    if user_data and not user_data.no_args then
        h = rebase_arg_hints_normal[arg_index]
    end
    if h then
        return argoptional..h
    end
end

local rebase_parser = parser()
:setendofflags()
:addarg({local_or_remote_branches, hint=rebase_arg_hint})
:addarg({branches, hint=rebase_arg_hint})
:_addexflags({
    concat_one_letter_flags=true,
    onarg=rebase_onarg,
    help_flags,
    { opteq=true, '--onto'..parser({branches}), ' newbase', '' },
    '--keep-base',
    '--continue',
    '--abort',
    '--quit',
    '--apply',
    { opteq=true, '--empty='..parser({'drop', 'keep', 'ask'}) },
    '--keep-empty', '--no-keep-empty',
    '--reapply-chery-picks', '--no-reapply-chery-picks',
    '--allow-empty-message',
    '--skip',
    '--edit-todo',
    '--show-current-patch',
    { '-m', 'Use merging strategies to rebase' },
    '--merge',
    { '-C', 'n', 'Ensure at least <n> lines of surrounding context' },
    '--no-ff',
    { '-f', 'Individually replay rebased commits' },
    '--force-rebase',
    '--fork-point', '--no-fork-point',
    '--ignore-whitespace',
    flag__whitespaceequals,
    '--committer-date-is-author-date',
    '--ignore-date', '--reset-author-date',
    '--signoff',
    { '-r', 'Shortcut for --rebase-merges' },
    { opteq=true, '--rebase-merges='..parser({'rebase-cousins', 'no-rebase-cousins'}) },
    { '-x'..x_cmd_arg, ' command', '' },
    { opteq=true, '--exec='..x_cmd_arg, 'command', '' },
    '--root',
    '--autosquash', '--no-autosquash',
    '--reschedule-failed-exec', '--no-reschedule-failed-exec',
})
:_addexflags(merge_flags_common)
:_addexflags(merge_flags)

local remote_parser = parser()
:setendofflags()
:addarg(
    "add" ..parser(
        {hint=argexpected.."name"},
        {hint=argexpected.."URL"},
        "-t"..parser({branches}),
        "-m"..placeholder_required_arg,
        "-f",
        "--mirror="..parser({"fetch", "push"}),
        "--tags", "--no-tags"
    ),
    "rename"..parser(
        {remotes, hint=argexpected.."old name"},
        {hint=argexpected.."new name"}
    ),
    "remove"..parser({remotes, hint=argexpected.."name"}),
    "rm"..parser({remotes, hint=argexpected.."name"}),
    "set-head"..parser(
        {remotes, hint=argexpected.."name"},
        {branches, hint=argoptional.."branch"},
        "-a", "--auto",
        "-d", "--delete"
    ),
    "set-branches"..parser(
        {remotes, hint=argexpected.."name"},
        {branches, hint=argexpected.."branch"},
        {branches, hint=argoptional.."branch"},
        "--add"
    ):loop(3),
    "get-url"..parser(
        {remotes, hint=argexpected.."name"},
        "--push", "--all"
    ),
    "set-url"..parser(
        {remotes, hint=argexpected.."name"},
        {hint=argexpected.."new URL"},
        {hint=argoptional.."old URL"},
        "--add"..parser("--push", {remotes, hint=argexpected.."name"}, {hint=argexpected.."new URL"}),
        "--delete"..parser("--push", {remotes, hint=argexpected.."name"}, {hint=argexpected.."URL"})
    ),
    "show"..parser(
        {remotes, hint=argexpected.."name"},
        {remotes, hint=argoptional.."name"},
        "-n"
    ):loop(2),
    "prune"..parser(
        {remotes, hint=argexpected.."name"},
        {remotes, hint=argoptional.."name"},
        "-n", "--dry-run"
    ):loop(2),
    "update"..parser(
        {remotes, hint=argexpected.."group or remote name"},
        {remotes, hint=argoptional.."group or remote name"},
        "-p", "--prune"
    ):loop(2)
)
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-v", "Be verbose" },
    "--verbose",
})

local reset_parser = parser()
:setendofflags()
:addarg({local_or_remote_branches, hint=argoptional.."tree-ish"})   -- TODO: Add commit completions
:addarg({file_matches, hint=argoptional.."path"}):loop(2)
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-q", "Quiet; only report errors" },
    { "-p", "Interactively select hunks from diffs" },
    "--patch",
    { opteq=true, "--pathspec-from-file="..files_parser, "file", "" }, --"--stdin",
    "--pathspec-file-nul", --"-z",
    "--soft", "--mixed", "--hard",
    "--merge", "--keep", "--no-recurse-submodules"
})
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

local restore_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."pathspec"}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { "-s"..files_parser, " tree", "Synonym for --source" },
    { opteq=true, "--source"..files_parser, " tree", "" },
    { "-p", "Interactively select hunks from diffs" },
    "--patch",
    { "-W", "Restore the working tree" },
    "--worktree",
    { "-S", "Restore the index" },
    "--staged",
    { "-q", "Quiet; suppress feedback messages" },
    "--quiet",
    --"--progress",
    "--no-progress",
    "--ours", "--theirs",
    { "-m", "Recreate conflicted merges" },
    "--merge",
    flag__conflictequals,
    "--ignore-unmerged",
    "--ignore-skip-worktree-bits",
    "--recurse-submodules", "--no-recurse-submodules",
    "--overlay",
     --"--no-overlay",
    { opteq=true, "--pathspec-from-file="..files_parser, "file", "" },
    "--pathspec-file-nul"
})

local revparse_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argexpected.."arg"})
:addarg({file_matches, hint=argoptional.."arg"}):loop(2)
:_addexflags({
    concat_one_letter_flags=true,
    { "--parseopt", "Use option parsing mode" },
    { "--sq-quote", "Use shell quoting mode" },
    { "--keep-dashdash", "With --parseopt, echo the first -- instead of skipping it" },
    { "--stop-at-non-option", "With --parseopt, stop at the first non-option argument" },
    { "--stuck-long", "With --parseopt, output options in their long form, and with their args stuck" },
    { "--revs-only", "Do not output flags and parameters not meant for git rev-list" },
    { "--no-revs", "Do not output flags and parameters meant for git rev-list" },
    { "--flags", "Do not output non-flag parameters" },
    { "--no-flags", "Do not output flag parameters" },
    { opteq=true, "--default"..placeholder_required_arg, " arg", "If no parameter is given, use arg instead" },
    { opteq=true, "--prefix"..dirs_parser, " arg", "Behave as if invoked from the arg subdirectory of the working tree" },
    { "--verify", "Verify exactly one arg is given and can be turned in a SHA1 in the object database" },
    { "-q", "With --verify, do not output error message if arg is not a valid object name (exit with non-zero status)" },
    { "--quiet", "With --verify, do not output error message if arg is not a valid object name (exit with non-zero status)" },
    { "--sq", "Output a single line, quoted for consumption by shell" },
    { "--short", "Same as --verify, but shortens object name to a unique prefix with at least 4 characters" },
    { "--short="..abbrev_lengths, "len", "Same as --verify, but shortens object name to a unique prefix with at least len characters" },
    { "--not", "When showing object names, prefix them with ^ and strip from names that already have ^ prefix" },
    { "--abbrev-ref", "A non-ambiguous short name of the object's name" },
    { "--abbrev-ref="..parser({"strict", "loose"}), "mode", "A non-ambiguous short name of the object's name" },
    { "--symbolic", "Output object names in a form as close to the original input as possible" },
    { "--symbolic-full-name", "Like --symbolic, but omit input that are not refs" },
    { "--all", "Show all refs found in refs/" },
    { "--branches", "Show all branches (refs found in refs/heads)" },
    { "--branches="..parser({fromhistory=true}), "pattern", "Show all branches matching pattern (refs found in refs/heads)" },
    { "--tags", "Show all tags (refs found in refs/tags)" },
    { "--tags="..parser({fromhistory=true}), "pattern", "Show all tags matching pattern (refs found in refs/tags)" },
    { "--remotes", "Show all remote-tracking branches (refs found in refs/remotes)" },
    { "--remotes="..parser({fromhistory=true}), "pattern", "Show all remote-tracking branches matching pattern (refs found in refs/remotes)" },
    { "--glob="..parser({fromhistory=true}), "pattern", "Show all refs matching the shell glob pattern" },
    { "--exclude="..parser({fromhistory=true}), "pattern", "Do not include refs matching pattern" },
    { "--disambiguate="..parser({fromhistory=true}), "prefix", "Show every object whose name begins with prefix (must be at least 4 hex digits)" },
    { "--local-env-vars", "List the GIT_* env var names that are local to the repo" },
    { "--path-format="..parser({"absolute", "relative"}), "behavior", "Controls how paths are printed by certain other options" },
    { "--git-dir", "Show $GIT_DIR if defined, otherwise show path to .git directory" },
    { "--git-common-dir", "Show $GIT_COMMON_DIR if defined, otherwise show $GIT_DIR" },
    { opteq=true, "--resolve-git-dir", " path", "Check if path is a valid repo or a gitfile that points at one" },
    { opteq=true, "--git-path", " path", "Resolve $GIT_DIR/path, taking into account path relocation env vars" },
    { "--show-toplevel", "Show the path of the top-level directory of the working tree" },
    { "--show-superproject-working-tree", "Show the path of the root of the superproject's working tree" },
    { "--shared-index-path", "Show the path to the shared index file in split index mode" },
    { "--absolute-git-dir", "Like --git-dir, but is always the canonicalized absolute path" },
    { "--is-inside-git-dir", "When the current working directory is below the repo directory, print true otherwise false" },
    { "--is-inside-work-tree", "When the current working directory is inside the work tree, print true otherwise false" },
    { "--is-bare-repository", "When the repo is bare, print true otherwise false" },
    { "--is-shallow-repository", "When the repo is shallow, print true otherwise false" },
    { "--show-cdup", "When invoked from a subdir, show relative path to top-level directory" },
    { "--show-prefix", "When invoked from a subdir, show relative path from top-level directory" },
    { "--show-object-format", "Show the object format used for the repo for storage" },
    { "--show-object-format="..parser({"storage", "input", "output"}), "forwhat", "Show the object format used for the repo for storage, for input, or for output" },
    { opteq=true, "--since="..placeholder_required_arg, "date", "Parse the date string and output corresponding --max-age= arg for git rev-list" },
    { opteq=true, "--after="..placeholder_required_arg, "date", "Parse the date string and output corresponding --max-age= arg for git rev-list" },
    { opteq=true, "--until="..placeholder_required_arg, "date", "Parse the date string and output corresponding --max-age= arg for git rev-list" },
    { opteq=true, "--before="..placeholder_required_arg, "date", "Parse the date string and output corresponding --max-age= arg for git rev-list" },
})

local revert_arg_no_args = {
    ["--continue"] = true,
    ["--skip"] = true,
    ["--abort"] = true,
    ["--quit"] = true,
}
local function revert_onarg(arg_index, word, _, _, user_data)
    if user_data and arg_index == 0 then
        if revert_arg_no_args[word] then
            user_data.no_args = true
        end
    end
end
local function revert_arg_hint(_, _, _, _, user_data)
    if user_data and not user_data.no_args then
        return argoptional.."commit"
    end
end

local revert_parser = parser()
:setendofflags()
:addarg({onarg=revert_onarg, hint=revert_arg_hint}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    onarg=revert_onarg,
    help_flags,
    { "-e", "Edit message before committing" },
    "--edit",
    { "-m"..placeholder_required_arg, " parent-num", "Synonym for --mainline" },
    { "--mainline"..placeholder_required_arg, " parent-num", "" },
    "--no-edit",
    flagex__cleanupequals,
    { "-n", "Synonym for --no-commit" },
    "--no-commit",
    { "-S", "GPG-sign commits" },
    "--gpg-sign",
    "--no-gpg-sign",
    { "-s", "Add 'Signed-off-by' trailer" },
    "--signoff",
    flagex__strategy,
    flagex_X_strategyoption,
    flagex__strategyoption,
    "--rerere-autoupdate",
    "--no-rerere-autoupdate",
    "--continue",
    "--skip",
    "--quit",
    "--abort",
})

local show_parser = parser()
:setendofflags()
:addarg({hint=argoptional.."object"}):loop()
:_addexflags(help_flags)
:_addexflags(diff_flags)
:_addexflags(commit_formatting_flags)
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

local stash_parser = parser()
:setendofflags()
:addarg(
    "push"..parser():_addexflags({
        stash_save_flags,
        { opteq=true, "--pathspec-from-file="..files_parser },
        "--pathspec-file-nul",
    }),
    "save"..parser():_addexflags({
        stash_save_flags,
    }),
    "list"..parser():_addexflags(commit_formatting_flags):_addexflags(diff_flags):_addexflags(log_flags),
    "show"..parser({stashes, hint=argoptional.."stash"}, "-u", "--include-untracked", "--only-untracked"):_addexflags(diff_flags),
    "pop"..parser({stashes, hint=argoptional.."stash"}, "--index", "-q", "--quiet"),
    "apply"..parser({stashes, hint=argoptional.."stash"}, "--index", "-q", "--quiet"),
    "branch"..parser({branches, hint=argexpected.."branch"}, {stashes, hint=argoptional.."stash"}),
    "clear",
    "drop"..parser({stashes, hint=argoptional.."stash"}, "-q", "--quiet")
)
:_addexflags({
    help_flags,
})

local status_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."pathspec"})
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { '-s', 'Give output in short format' },
    '--short',
    { '-b', 'Include branch info in short format' },
    '--branch',
    '--show-stash',
    '--porcelain', '--porcelain='..parser({'v1', 'v2'}),
    --'--long',
    { '-v', 'Be verbose; show staged diffs' },
    { '-vv', 'Be extra verbose; include working diffs' },
    '--verbose',
    untracked_flags,
    "--ignore-submodules",
    flag__ignore_submodules,
    '--ignored',
    '--ignored='..parser({'traditional', 'no', 'matching'}),
    { '-z', 'Terminate entries with NUL, not LF' },
    '--column', '--no-column',
    flag__columnequals,
    '--ahead-behind', '--no-ahead-behind',
    '--renames', '--no-renames',
    --'--lock-index', '--no-lock-index',
    --'--find-renames='..placeholder_required_arg,
    { '-M', '[n]', 'Detect renames; <n> is threshold %' },
    '--find-renames',
    { '--find-renames='..placeholder_required_arg, 'n', '' },
})

local submodule_add_parser = parser()
:setendofflags()
:addarg({dir_matches, hint=argexpected.."repository"})
:addarg({file_matches, hint=argoptional.."path"})
:_addexflags({
    concat_one_letter_flags=true,
    { '-b'..placeholder_required_arg, ' branch', '' },
    '-f', '--force',
    { opteq=true, '--name'..placeholder_required_arg, ' name', '' },
    { opteq=true, '--reference'..placeholder_required_arg, ' repo_url', '' },
    { opteq=true, '--depth'..placeholder_required_arg, ' depth', '' },
})
:nofiles()

local submodule_status_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."path"}):loop()
:addflags('--cached', '--recursive')

local submodule_init_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."path"}):loop()

local submodule_deinit_parser = parser()
:setendofflags()
:addarg({
    file_matches,
    onarg=function(_, _, word_index, _, user_data)
        inc_num_args(user_data, word_index)
    end,
    hint=function(_, _, word_index, _, user_data)
        if not user_data or not user_data.all then
            return hintpfx(is_optional(user_data, word_index)).."path"
        end
    end,
}):loop()
:addflags({'-f', '--force', '--all', onarg=function(_, word, _, _, user_data)
    if user_data and word == "--all" then
        user_data.all = true
    end
end})

local submodule_update_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."path"}):loop()
:_addexflags({
    concat_one_letter_flags=true,
    '--init',
    '--remote',
    '-N', '--no-fetch',
    '--recommend-shallow', '--no-recommend-shallow',
    '-f', '--force',
    '--checkout', '--rebase', '--merge',
    { opteq=true, '--reference'..placeholder_required_arg, ' repo_url', '' },
    { opteq=true, '--depth'..placeholder_required_arg, ' depth', '' },
    '--recursive',
    { opteq=true, '--jobs'..placeholder_required_arg, ' n', '' },
    '--single-branch', '--no-single-branch',
})

local submodule_set_branch_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argexpected.."path"})
:_addexflags({
    concat_one_letter_flags=true,
    { '-b'..placeholder_required_arg, ' branch', '' },
    { opteq=true, '--branch'..placeholder_required_arg, ' branch', '' },
    '-d', '--default',
})
:nofiles()

local submodule_set_url_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argexpected.."path"})
:addarg({placeholder_required_arg, hint=argexpected.."URL"})
:nofiles()

local submodule_summary_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."commit or path"})
:addarg({file_matches, hint=argoptional.."path"}):loop(2)
:_addexflags({
    '--cached',
    '--files',
    { '-n'..summary_limit_arg, ' n', '' },
    { opteq=true, '--summary-limit'..summary_limit_arg, ' n', '' },
})

local submodule_foreach_parser = parser()
:setendofflags()
:addflags('--recursive')
:chaincommand()

local submodule_sync_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."path"}):loop()
:addflags('--recursive')

local submodule_parser = parser()
:setendofflags()
:_addexarg({
    'add'..submodule_add_parser,
    'status'..submodule_status_parser,
    'init'..submodule_init_parser,
    'deinit'..submodule_deinit_parser,
    'update'..submodule_update_parser,
    'set-branch'..submodule_set_branch_parser,
    'set-url'..submodule_set_url_parser,
    'summary'..submodule_summary_parser,
    { 'foreach'..submodule_foreach_parser, ' shell_command', '' },
    'sync'..submodule_sync_parser,
    'absorbgitdirs',
})
:_addexflags({
    help_flags,
    '--quiet',
})

local svn_parser = parser()
:setendofflags()
:addarg(
    "init"..parser("-T", "--trunk", "-t", "--tags", "-b", "--branches", "-s", "--stdlayout",
        "--no-metadata", "--use-svm-props", "--use-svnsync-props", "--rewrite-root",
        "--rewrite-uuid", "--username", "--prefix"..parser({"origin"}), "--ignore-paths",
        "--include-paths", "--no-minimize-url"),
        "fetch"..parser({remotes}, "--localtime", "--parent", "--ignore-paths", "--include-paths",
        "--log-window-size"),
        "clone"..parser("-T", "--trunk", "-t", "--tags", "-b", "--branches", "-s", "--stdlayout",
        "--no-metadata", "--use-svm-props", "--use-svnsync-props", "--rewrite-root",
        "--rewrite-uuid", "--username", "--prefix"..parser({"origin"}), "--ignore-paths",
        "--include-paths", "--no-minimize-url", "--preserve-empty-dirs",
        "--placeholder-filename"),
        "rebase"..parser({local_or_remote_branches}, {branches}),
    "dcommit"..parser("--no-rebase", "--commit-url", "--mergeinfo", "--interactive"),
    "branch"..parser("-m","--message","-t", "--tags", "-d", "--destination",
                     "--username", "--commit-url", "--parents"),
    "log"..parser("-r", "--revision", "-v", "--verbose", "--limit",
                  "--incremental", "--show-commit", "--oneline"),
    "find-rev"..parser("--before", "--after"),
    "reset"..parser("-r", "--revision", "-p", "--parent"),
    "tag",
    "blame",
    "set-tree",
    "create-ignore",
    "show-ignore",
    "mkdirs",
    "commit-diff",
    "info",
    "proplist",
    "propget",
    "show-externals",
    "gc"
)
:_addexflags({
    help_flags,
})

local function switch_onarg(arg_index, word, _, _, user_data)
    if user_data and arg_index == 0 then
        if word == "-c" or word == "-C" or word == "--create" or word == "--force-create" then
            user_data.switch_create_branch = true
        end
    end
end
local function switch_arg_hint(_, _, _, _, user_data)
    if user_data and not user_data.switch_create_branch then
        return argexpected.."branch"
    end
end

local switch_parser = parser()
:setendofflags()
:addarg({local_or_remote_branches, hint=switch_arg_hint})
:_addexflags({
    concat_one_letter_flags=true,
    onarg=switch_onarg,
    help_flags,
    { '-c'..placeholder_required_arg, ' new-branch', 'Create new branch' },
    { opteq=true, '--create'..placeholder_required_arg, ' new-branch', '' },
    { '-C'..placeholder_required_arg, ' new-branch', 'Create or reset branch' },
    { opteq=true, '--force-create'..placeholder_required_arg, ' new-branch', '' },
    { '-d', 'Check out a commit (detached head)' },
    '--detach',
    '--guess', '--no-guess',
    { '-f', 'Shortcut for --discard-changes' },
    '--force', '--discard-changes',
    { '-m', 'Merge local changes when switching' },
    '--merge',
    flag__conflictequals,
    { '-q', 'Quiet; suppress feedback messages' },
    '--quiet',
    --'--progress',
    '--no-progress',
    track_flags,
    { opteq=true, '--orphan'..placeholder_required_arg, ' new-branch', '' },
    '--ignore-other-worktrees',
    '--recurse-submodules', '--no-recurse-submodules',
})

local tag_d_parser = parser()
:setendofflags()
:addarg({tags, hint=argexpected.."tagname"})
:addarg({tags, hint=argoptional.."tagname"}):loop(2)

local tag_l_parser = parser()
:setendofflags()
:addarg({tags, hint=argexpected.."tagname"})
:addarg({tags, hint=argoptional.."tagname"}):loop(2)
:_addexflags({
    concat_one_letter_flags=true,
    { '--create-reflog' },
    { opteq=true, '--format='..pretty_formats_parser, 'format', '' },
    { '--color' },
    { '--color='..parser({"always", "auto", "never"}), 'when', '' },
    { opteq=true, '--sort='..placeholder_required_arg, 'key', '' },
    { '-i', 'Sorting and filtering are case insensitive' },
    { '--ignore-case' },
    { opteq=true, '--contains'..placeholder_required_arg, ' commit', '' },
    { opteq=true, '--no-contains'..placeholder_required_arg, ' commit', '' },
    { opteq=true, '--points-at'..placeholder_required_arg, ' object', '' },
    { opteq=true, '--merged'..placeholder_required_arg, ' commit', '' },
    { opteq=true, '--no-merged'..placeholder_required_arg, ' commit', '' },
    { opteq=true, flag__columnequals, 'options', '' },
    { '--no-column' },
})

local tag_v_parser = parser()
:setendofflags()
:addarg({tags, hint=argexpected.."tagname"})
:addarg({tags, hint=argoptional.."tagname"}):loop(2)
:_addexflags({
    { opteq=true, '--format='..pretty_formats_parser, 'format', '' },
    { '--color' },
    { '--color='..parser({"always", "auto", "never"}), 'when', '' },
})

local tag_parser = parser()
:setendofflags()
:addarg({tags, hint=argexpected.."tagname"})                    -- tag
:addarg({file_matches, hint=argoptional.."commit or object"})   -- commit|object
:_addexflags({
    concat_one_letter_flags=true,
    help_flags,
    { '-a', 'Make an unsigned, annotated tag object' },
    { '--annotate' },
    { '-s', 'Make a GPG-signed tag object' },
    { '--sign' },
    { '--no-sign' },
    { '-u'..gpg_keyid_arg, ' keyid', 'Make a GPG-signed tag using the given key' },
    { opteq=true, '--local-user='..gpg_keyid_arg, 'keyid', '' },
    { '-f', 'Replace an existing tag (instead of failing)' },
    { '--force' },
    { '-m'..placeholder_required_arg, ' msg', 'Use the given tag message' },
    { opteq=true, '--message='..placeholder_required_arg, 'msg', '' },
    { '-F'..files_parser, ' file', 'Take tag message from the given file' },
    { opteq=true, '--file='..files_parser, 'file', '' },
    { '-e', 'Edit the tag message from -m or -F' },
    { '--edit' },
    { '-d'..tag_d_parser, 'Delete existing tags with the given names' },
    { '--delete'..tag_d_parser },
    { '-l'..tag_l_parser, 'List tags' },
    { '--list'..tag_l_parser },
    { '-v'..tag_v_parser, 'Verify the GPG signatures of the given tag names' },
    { '--verify'..tag_v_parser },
    { '-n', '<num>', 'Implies -l; print num lines from annotation' },
    { opteq=true, '--cleanup='..parser({'verbatim', 'whitespace', 'strip'}), 'mode', '' },
    { opteq=true, '--format='..pretty_formats_parser, 'format', '' },
    { '--color' },
    { '--color='..parser({"always", "auto", "never"}), 'when', '' },
})

local worktree_parser = parser()
:setendofflags()
:addarg(
    "add"..parser(
        {dir_matches, hint=argexpected.."path"},
        {branches, hint=argoptional.."commit-ish"}
    ):_addexflags({
        concat_one_letter_flags=true,
        "-f", "--force",
        "--detach",
        "--checkout",
        "--lock",
        { opteq=true, "--reason"..placeholder_required_arg, " string", "" },
        { "-b"..parser({branches}), " new-branch", "" },
    }),
    "list"..parser("-v", "--porcelain"),
    "lock"..parser():_addexflags({
        { opteq=true, "--reason"..placeholder_required_arg, " string", "" },
    }),
    "move",
    "prune"..parser():_addexflags({
        concat_one_letter_flags=true,
        "-n", "--dry-run",
        "-v", "--verbose",
        { "--expire", " expire", "" },
    }),
    "remove"..parser("-f", "--force"),
    "unlock"
)
:_addexflags({
    help_flags,
})

--------------------------------------------------------------------------------
-- The gitk command parser.
--
-- Optional revision range.
-- Followed by zero or more path patterns.
--
-- Note: gitk only supports "--flag=param" syntax; not "--flag param".

local disk_usage_parser = parser():addarg("human")

local gitk_parser = parser()
:setendofflags()
:addarg({file_matches, hint=argoptional.."revision-range or pathspec"})
:addarg({file_matches, hint=argoptional.."pathspec"}):loop(2)
:_addexflags({
    -- From gitk source code:
    { hide=true, "-d" },        -- ??
    "--date-order",
    { hide=true, "-p" },
    { hide=true, "--patch" },
    { hide=true, "-u" },        -- ??
    { hide=true, "-a" },        -- ??
    { hide=true, "-b" },        -- ??
    { hide=true, "-w" },        -- ??
    { hide=true, "-c" },        -- ??
    { hide=true, "-r" },        -- ??
    { hide=true, "-R" },        -- ??
    { hide=true, "-B" },        -- ??
    { hide=true, "-M" },        -- ??
    { hide=true, "-C" },        -- ??
    "--no-renames",
    "--full-index",
    "--binary",
    "--abbrev", flagex__abbrevequals, "--no-abbrev",
    "--find-copies-harder",
    --{ "-l", "n", "Limit expensive rename/copy checks" }, -- argmatcher parser can't handle no space between flag and its parameters.
    "--ext-diff",
    "--no-ext-diff",
    { "--src-prefix="..parser({fromhistory=true}), "prefix", "" },
    { "--dst-prefix="..parser({fromhistory=true}), "prefix", "" },
    "--no-prefix",
    -- -O*          ??
    "--text",
    "--full-diff",
    "--ignore-space-at-eol",
    "--ignore-space-change",
    -- -U*          ??
    -- --unified=*  ??
    { hide=true, "--raw" },     -- Seems to have no effect.
    { hide=true, "--patch-with-raw" },  -- Seems to have no effect.
    { hide=true, "--patch-with-stat" }, -- Seems to have no effect.
    "--name-only",
    "--name-status",
    "--color",
    "--log-size",
    { "--pretty="..pretty_formats_parser, "format", "" },
    "--decorate",
    "--abbrev-commit",
    "--cc",
    -- -z           ??
    "--header",
    "--parents",
    "--boundary",
    "--no-color",
    { "-g",                     "Walk reflogs, not commit ancestry" },
    "--walk-reflogs",
    "--no-walk",
    "--timestamp",
    "--relative-date",
    { "--date="..placeholder_required_arg, "date", "" },
    "--stdin",
    "--objects",
    "--objects-edge",
    "--reverse",
    -- --color-words=*
    -- --word-diff=color
    -- --word-diff*
    { "--stat="..placeholder_required_arg, "width[,name-width[,count]]", "" },
    --"--numstat",              -- gitk reports an error with this.
    "--shortstat",
    "--summary",
    --"--check",                -- gitk reports parse errors.
    "--exit-code",
    "--quiet",
    "--topo-order",
    "--full-history",
    "--left-right",
    flagex__encoding,
    { "--diff-filter="..diff_filter_arg, "[ACDMRTUXB...*]", "" },
    "--no-merges",
    "--unpacked",
    { "--max-count="..placeholder_required_arg, "n", "" },
    { "--skip="..placeholder_required_arg, "n", "" },
    { "--since="..placeholder_required_arg, "date", "" },
    { "--after="..placeholder_required_arg, "date", "" },
    { "--until="..placeholder_required_arg, "date", "" },
    { "--before="..placeholder_required_arg, "date", "" },
    -- --max-age=<epoch>
    -- --min-age=<epoch>
    { "--author="..person_arg, "pattern", "" },
    { "--committer="..person_arg, "pattern", "" },
    { "--grep="..placeholder_required_arg, "pattern", "" },
    { "-i",                     "Case insensitive regex matching" },
    { "-E",                     "Use extended regex patterns" },
    "--remove-empty",
    "--first-parent",
    "--cherry-pick",
    --{ "-S", "string", "" },
    --{ "-G", "regex", "" },
    "--pickaxe-all",
    "--pickaxe-regex",
    "--simplify-by-decoration",
    { "-L"..parser({fromhistory=true}), "start,end:file", "Trace evolution of range" },
    { "-L:"..parser({fromhistory=true}), "funcname:file", "Trace evolution of function" },
    { "-n"..number_commits_arg, " number", "Limit number of commits to output" },
    "--not",
    "--all",
    "--merge",
    "--no-replace-objects",

    -- Specific to gitk:
    { "--argscmd="..parser({fromhistory=true}), "command", "" },
    { "--select-commit="..placeholder_required_arg, "ref", "" },

    -- From gitk documentation:
    "--branches", { "--branches="..placeholder_required_arg, "glob", "" },
    "--tags", { "--tags="..placeholder_required_arg, "glob", "" },
    "--remotes", { "--remotes="..placeholder_required_arg, "glob", "" },
    "--simplify-merges",
    "--ancestry-path",

    -- From git rev-list help:
    "--sparse",
    { "--min-parents="..placeholder_required_arg, "n", "" }, "--no-min-parents",
    { "--max-parents="..placeholder_required_arg, "n", "" }, "--no-max-parents",
    -- --exclude-hidden=[receive|uploadpack]
    "--children",
    { hide=true, "--disk-usage" },
    { hide=true, "--disk-usage="..disk_usage_parser, "format", "" },
    "--pretty",
    "--object-names",
    "--no-object-names",
    "--count",
    "--bisect",
    "--bisect-vars",
    "--bisect-all",
    "--regexp-ignore-case",
    "--basic-regexp",
    "--extended-regexp",
    "--dirstat",
    -- TODO: add others from git rev-list documentation.
})
:_addexflags({"--"..parser({file_matches, hint=argoptional.."pathspec"}):loop()})

if clink.classifier then
    local gitk_classifier = clink.classifier()

    function gitk_classifier:classify(commands) -- luacheck: no unused
        local flag_color, input_color
        for i = 1, #commands do
            local line_state = commands[i].line_state
            local classifications = commands[i].classifications
            if line_state.getcommandwordindex then
                local cwi = line_state:getcommandwordindex()
                if path.getbasename(line_state:getword(cwi)) == "gitk" then
                    local word = line_state:getendword()
                    if word:find("^%-L[^%:]") then
                        local info = line_state:getwordinfo(line_state:getwordcount())
                        if not flag_color then
                            flag_color = settings.get("color.flag")
                        end
                        if not input_color then
                            input_color = settings.get("color.input")
                        end
                        if flag_color then
                            classifications:applycolor(info.offset, 2, flag_color)
                        end
                        if input_color then
                            classifications:applycolor(info.offset + 2, #word - 2, input_color)
                        end
                    end
                end
            end
        end
    end
end

--------------------------------------------------------------------------------
-- The main git command parser.

-- This is the set of git commands with custom parsers.  It exists as a separate
-- table so that aliases can be linked to the associated parser for the command
-- they alias.
local linked_parsers = {
    ["add"]                 = add_parser,
    ["annotate"]            = blame_parser,
    ["apply"]               = apply_parser,
    ["blame"]               = blame_parser,
    ["branch"]              = branch_parser,
    ["cat-file"]            = catfile_parser,
    ["checkout"]            = checkout_parser,
    ["cherry-pick"]         = cherrypick_parser,
    ["clone"]               = clone_parser,
    ["commit"]              = commit_parser,
    ["config"]              = config_parser,
    ["diff"]                = diff_parser,
    ["difftool"]            = difftool_parser,
    ["fetch"]               = fetch_parser,
    ["help"]                = help_parser,
    ["log"]                 = log_parser,
    ["merge"]               = merge_parser,
    ["pull"]                = pull_parser,
    ["push"]                = push_parser,
    ["rebase"]              = rebase_parser,
    ["remote"]              = remote_parser,
    ["reset"]               = reset_parser,
    ["restore"]             = restore_parser,
    ["rev-parse"]           = revparse_parser,
    ["revert"]              = revert_parser,
    ["show"]                = show_parser,
    ["stash"]               = stash_parser,
    ["status"]              = status_parser,
    ["submodule"]           = submodule_parser,
    ["svn"]                 = svn_parser,
    ["switch"]              = switch_parser,
    ["tag"]                 = tag_parser,
    ["worktree"]            = worktree_parser,
}

-- Commands with descriptions.
-- Each entry must be a table containing two strings:  { command, description }.
--
-- NOTE:  These are added in the order listed; they are not auto-sorted.
local main_commands = {
    nosort=true,
    { "add",                "Add file contents to the index" },
    { "annotate",           "Annotate file lines with commit information" },
    { "apply",              "Apply a patch to files and/or to the index" },
    { "blame",              "Show last modify info for lines of a file" },
    { "branch",             "List, create, or delete branches" },
    { "cat-file",           "Provide content or type and size info for repo objects" },
    { "checkout",           "Switch branches or restore working tree files" },
    { "cherry-pick",        "Apply changes introduced by some existing commits" },
    { "clone",              "Clone a repository into a new directory" },
    { "commit",             "Record changes to the repository" },
    { "config",             "Get and set repository or global options" },
    { "diff",               "Show changes between commits, trees, tags, etc" },
    { "difftool",           "Show changes using common diff tools" },
    { "fetch",              "Download objects and refs from another repository" },
    { "help",               "Print help on a command or topic" },
    { "log",                "Show commit logs" },
    { "merge",              "Join two or more development histories together" },
    { "pull",               "Fetch from and integrate with another repo or local branch" },
    { "push",               "Update remote refs along with associated objects" },
    { "rebase",             "Reapply commits on top of another base tip" },
    { "remote",             "Manage set of tracked repositories" },
    { "reset",              "Reset current HEAD to the specified state" },
    { "restore",            "Restore working tree files" },
    { "rev-parse",          "Pick out and massage parameters" },
    { "revert",             "Revert some existing commits" },
    { "show",               "Show various types of objects" },
    { "stash",              "Stash the changes in a dirty working directory away" },
    { "status",             "Show the working tree status" },
    { "submodule",          "Initialize, update or inspect submodules" },
    { "switch",             "Switch branches" },
    { "tag",                "Create, list, delete, or verify a tag reference" },
    { "worktree",           "Manage multiple working trees" },
}

for _, c in ipairs(main_commands) do
    index_main_commands[c[1]] = true
end

-- Commands without descriptions.
-- This is a table of just command name strings.
--
-- NOTE:  These are added in the order listed; they are not auto-sorted.
local other_commands = {
    "add--interactive",
    "am",
    "archive",
    "bisect",
    "bisect--helper",
    "bundle",
    "check-attr",
    "check-ignore",
    "check-mailmap",
    "check-ref-format",
    "checkout-index",
    "cherry",
    "citool",
    "clean",
    "column",
    "commit-tree",
    "count-objects",
    "credential",
    "credential-store",
    "credential-wincred",
    "daemon",
    "describe",
    "diff-files",
    "diff-index",
    "diff-tree",
    "difftool--helper",
    "fast-export",
    "fast-import",
    "fetch-pack",
    "filter-branch",
    "fmt-merge-msg",
    "for-each-ref",
    "format-patch",
    "fsck",
    "fsck-objects",
    "gc",
    "get-tar-commit-id",
    "grep",
    "gui",
    "gui--askpass",
    "gui--askyesno",
    "gui.tcl",
    "hash-object",
    "http-backend",
    "http-fetch",
    "http-push",
    "imap-send",
    "index-pack",
    "init",
    "init-db",
    "lost-found",
    "ls-files",
    "ls-remote",
    "ls-tree",
    "mailinfo",
    "mailsplit",
    "merge-base",
    "merge-file",
    "merge-index",
    "merge-octopus",
    "merge-one-file",
    "merge-ours",
    "merge-recursive",
    "merge-resolve",
    "merge-subtree",
    "merge-tree",
    "mergetool",
    "mergetool--lib",
    "mktag",
    "mktree",
    "mv",
    "name-rev",
    "notes",
    "p4",
    "pack-objects",
    "pack-redundant",
    "pack-refs",
    "parse-remote",
    "patch-id",
    "peek-remote",
    "prune",
    "prune-packed",
    "quiltimport",
    "read-tree",
    "receive-pack",
    "reflog",
    "remote-ext",
    "remote-fd",
    "remote-ftp",
    "remote-ftps",
    "remote-hg",
    "remote-http",
    "remote-https",
    "remote-testsvn",
    "repack",
    "replace",
    "repo-config",
    "request-pull",
    "rerere",
    "rev-list",
    "rm",
    "send-email",
    "send-pack",
    "sh-i18n",
    "sh-i18n--envsubst",
    "sh-setup",
    "shortlog",
    "show-branch",
    "show-index",
    "show-ref",
    "stage",
    "stripspace",
    "subtree",
    "svn",
    "symbolic-ref",
    "tar-tree",
    "unpack-file",
    "unpack-objects",
    "update-index",
    "update-ref",
    "update-server-info",
    "upload-archive",
    "upload-pack",
    "var",
    "verify-pack",
    "verify-tag",
    "web--browse",
    "whatchanged",
    "write-tree",
}

-- This is the set of flags for git itself (versus flags for commands in git).
local git_flags = {
    concat_one_letter_flags=true,
    { "--version",                          "Print the git suite version" },
    { "--help"..help_parser, " [...]",      "Print general help, or help on a topic" },
    { "-C"..dirs_parser, " path",           "Run as if git was started in PATH" },
    { "-c"..placeholder_required_arg, " name=value", "Pass a configuration parameter, overriding config files" },
    { "--exec-path",                        "Print where the core git programs are stored" },
    { "--exec-path="..dirs_parser, "path",  "Override path to the core git programs" },
    { "--html-path",                        "Print where git's HTML documentation is stored" },
    --"--man-path",
    --"--info-path",
    { "-p",                                 "Pipe all output into less" },
    { "--paginate",                         "Pipe all output into less" },
    { "--no-pager",                         "Do not pipe git output into a pager" },
    { "--no-replace-objects",               "Do not use replacement refs to replace git objects" },
    { "--bare",                             "Treat the repository as a bare repository" },
    { "--git-dir="..dirs_parser, "path",    "Set the path to the repo ('.git' directory)" },
    { "--work-tree="..dirs_parser, "path",  "Set the path to the working tree" },
    { "--namespace="..placeholder_required_arg, "path", "Set the git namespace" },
    { "--literal-pathspecs",                "Treat pathspecs literally (no globbing, magic, etc)" },
    { "--glob-pathspecs",                   "Apply 'glob' magic to all pathspecs" },
    { "--no-glob-pathspecs",                "Add 'literal' magic to all pathspecs" },
    { "--icase-pathspecs",                  "Add 'icase' magic to all pathspecs" },
    { "--no-optional-locks",                "Do not perform optional operations that require locks" },
}

-- luacheck: pop

local function command_display_filter()
    if clink.ondisplaymatches then
        clink.ondisplaymatches(function(matches)
            for _, m in ipairs(matches) do
                if index_aliases[m.match] then
                    m.type = "alias"
                elseif index_main_commands[m.match] then
                    m.type = "cmd"
                end
            end
            return matches
        end)
    end
    return {}
end

-- Initialize the argmatcher.  This may be called repeatedly.
local function init(argmatcher, full_init)
    -- When doing a full init, must reset in order to maintain the sort order.
    -- Full init is used from the setdelayinit callback function, for an alias
    -- to be able to parse arguments for the command it aliases.
    if full_init then
        argmatcher:reset()
    end

    -- Build a table that will be used to (re)initialize the git parser.
    local commands = { nosort=true, command_display_filter }

    -- First the main commands, with descriptions.
    for _,x in ipairs(main_commands) do
        local linked = linked_parsers[x[1]]
        if linked then
            table.insert(commands, { x[1]..linked, x[2] })
        elseif looping_files_parser then
            table.insert(commands, x..looping_files_parser)
        else
            table.insert(commands, x)
        end
    end

    -- Then the function to get all aliases.  This only affects generating
    -- completions; it doesn't affect input line parsing or coloring.
    table.insert(commands, alias)

    -- Then aliases with linked argmatchers.  By coming after the alias
    -- function, the sort order when displaying completions is defined by the
    -- alias function.  But these do affect input line parsing and coloring.
    local aliases = get_git_aliases()
    local complex, chain
    for _, a in ipairs(aliases) do
        local linked
        if not clink_version.supports_onalias then
            linked = linked_parsers[a.command]
        end
        if linked then
            table.insert(commands, a.name..linked)
        else
            local bang = a.command:match("^%!") and true or nil
            local command = a.command:sub(bang and 2 or 1)
            complex = complex or {}
            chain = chain or {}
            complex[a.name] = command
            chain[a.name] = bang
            table.insert(commands, a.name)
        end
    end

    if complex then
        commands.onalias = function(arg_index, word, word_index, line_state, user_data) -- luacheck: no unused
            return complex[word], chain[word]
        end
    end

    -- Finally other commands.
    for _,x in ipairs(other_commands) do
        local linked = linked_parsers[x]
        if linked then
            table.insert(commands, x..linked)
        elseif looping_files_parser then
            table.insert(commands, x..looping_files_parser)
        else
            table.insert(commands, x)
        end
    end
    table.insert(commands, catchall)

    -- Initialize the argmatcher.
    argmatcher:_addexarg(commands)
    argmatcher:_addexflags(git_flags)
end

local cached_cwd
local cached_repo

local git_parser = parser()
init(git_parser, false--[[full_init]])
if git_parser.setdelayinit then
    git_parser:setdelayinit(function (argmatcher)
        local cwd = os.getcwd()
        if cached_cwd ~= cwd then               -- No-op unless cwd changes.
            cached_cwd = cwd
            local repo = git.get_git_dir()
            if cached_repo ~= repo then         -- No-op unless repo changes.
                cached_repo = repo
                if repo and repo ~= "" then     -- No-op unless in a repo.
                    init(argmatcher, true--[[full_init]])
                end
            end
        end
    end)
end

clink.arg.register_parser("git", git_parser)
clink.arg.register_parser("gitk", gitk_parser)

if clink.onbeginedit then
    clink.onbeginedit(function()
        cached_aliases = nil
        cached_commands = nil
        cached_guides = nil
        cached_all_commands = nil
    end)
end