textobject-lexer.lua (697B)
- -- text object matching a lexer token
- local MAX_CONTEXT = 32768
- vis:textobject_new("ii", function(win, pos)
- if not win.syntax or not vis.lexers.load then
- return nil
- end
- local before, after = pos - MAX_CONTEXT, pos + MAX_CONTEXT
- if before < 0 then
- before = 0
- end
- -- TODO make sure we start at a line boundary?
- local lexer = vis.lexers.load(win.syntax, nil, true)
- local data = win.file:content(before, after - before)
- local tokens = lexer:lex(data)
- local cur = before
- for i = 1, #tokens, 2 do
- local token_next = before + tokens[i+1] - 1
- if cur <= pos and pos < token_next then
- return cur, token_next
- end
- cur = token_next
- end
- return nil
- end, "Current lexer token")