which-key.lua

local _tl_compat; if (tonumber((_VERSION or ''):match('[%d.]*$')) or 0) < 5.3 then local p, m = pcall(require, 'compat53.module'); if p then _tl_compat = m end end; local table = _tl_compat and _tl_compat.table or table; require('legendary.types')
local M = {}

local function wk_to_legendary(wk)
   local legendary = {}
   legendary[1] = wk.prefix
   if wk.cmd then
      legendary[2] = wk.cmd
   end
   legendary.description = wk.label
   legendary.opts = wk.opts or {}
   return legendary
end






function M.parse_whichkey(which_key_tbls, which_key_opts)
   local wk_parsed = ((_G['require']('which-key.keys')).parse_mappings)(
   {},
   which_key_tbls,
   which_key_opts and (which_key_opts.prefix) or '')

   local legendary_tbls = {}
   vim.tbl_map(function(wk)



      if not wk.label or ((type(wk.group) == 'boolean' and not wk.group) or (#(tostring(wk.group) or '') > 0)) or wk.buf ~= nil then
         goto continue
      end

      table.insert(legendary_tbls, wk_to_legendary(wk))

      ::continue::
   end, wk_parsed)
   return legendary_tbls
end




function M.bind_whichkey(wk_tbls, wk_opts)
   local legendary_tbls = M.parse_whichkey(wk_tbls, wk_opts)
   require('legendary.bindings').bind_keymaps(legendary_tbls)
end



function M.whichkey_listen()
   local wk = (_G['require']('which-key'))
   local original = wk.register
   local listener = function(whichkey_tbls, whichkey_opts)
      M.bind_whichkey(whichkey_tbls, whichkey_opts)
      original(whichkey_tbls, whichkey_opts)
   end
   wk.register = listener
   return true
end

return M