Настройка редактора Neovim для комфортного кодинга на языке Oberon

vim.filetype.add({ extension = {obn = "oberon"} })

-- переопределим обработку расширений для файлов .mod или .Mod
-- чтобы они определялись не как Modula-2, а как Oberon-файлы
-- при событии открытия файла
vim.api.nvim_create_autocmd("BufReadPost", {
    pattern = "*",
    callback = function()
        local bufnr = vim.api.nvim_get_current_buf()
        local bufname = vim.api.nvim_buf_get_name(bufnr)
        if bufname:match("%.Mod$") or bufname:match("%.mod$") then
            vim.api.nvim_buf_set_option(bufnr, 'filetype', 'oberon')
        end    
    end
})

-- список ключевых слов, предопределенных наименований типов и процедур в Oberon согласно спецификации языка:
-- (спецификация включает изменения от 2016 года) https://miasap.se/obnc/oberon-report.html
local oberon_keywords = { 'ABS', 'ADR', 'ADS', 'ARRAY', 'ASSERT', 'ASR', 'BEGIN', 'BIT', 'BOOLEAN', 'BY', 'BYTE', 'CASE', 'CHAR', 'CHR', 'COND', 'CONST', 'COPY', 'DEC', 'DIV', 'DO', 'ELSE', 'ELSEIF', 'END', 'EXCL', 'FALSE', 'FLOOR', 'FLT', 'FOR', 'IF', 'GET', 'IMPORT', 'IN', 'INC', 'INCL', 'INTEGER', 'IS', 'LED', 'LEN', 'LSL', 'MOD', 'MODULE', 'NEW', 'NIL', 'ODD', 'OF', 'OR', 'ORD', 'PACK', 'POINTER', 'PROCEDURE', 'PUT', 'REAL', 'RECORD', 'REPEAT', 'RETURN', 'ROR', 'SBC', 'SET', 'SIZE', 'THEN', 'TO', 'TRUE', 'TYPE', 'UNPK', 'UNTIL', 'UML', 'VAR', 'VAL', 'WHILE' }

--функция, проверяющая, находимся ли мы внутри комментария или строки
local function is_inside_comment_or_string()
    local row, col = unpack(vim.api.nvim_win_get_cursor(0))
    -- для текущей строки нужно вытащить синтаксическую информацию
    -- которая определяется согласно ~/,config/nvim/syntax/oberon.vim
    local synstack = vim.fn.synstack(row, col + 1)
    for _, syn_id in ipairs(synstack) do
        local syn_name = vim.fn.synIDattr(syn_id, 'name')
        -- в нашем файле синтаксиса oberon.vim наименования такие
        if string.match(syn_name, 'OberonComment') or string.match(syn_name, 'OberonString') then
            return true
        end
    end
    -- иначе это не коммент/строка
    return false
end

-- функция для преобразования последнего введенного слова к верхнему регистру
-- на выход принимает айдишник режима редактора, из которого вызывается:
-- -1 - normal, 1 - insert (не спрашивайте, так повелось и лень переделывать)
function convert_last_word_to_uppercase(mode)
    -- сначала проверим, что мы не внутри комментария\строки - если да, то ничего не делаем
    if is_inside_comment_or_string() then
        return
    end

    local row, col = unpack(vim.api.nvim_win_get_cursor(0))
    local line = vim.api.nvim_get_current_line()

    -- Найдем последнее слово перед курсором
    local last_word_start = string.find(line:sub(1, col -1), "%S+$")
    if (last_word_start == nil) then last_word_start = 1 end
    local last_word_end = col -mode
    if (last_word_end == -1) then last_word_end = 1 end
    local last_word = string.sub(line, last_word_start, last_word_end)

    -- Проверяем, является ли слово ключевым словом Oberon
    if (last_word ~= nil) then
        for k, v in pairs(oberon_keywords) do
            if v == string.upper(last_word) then
                -- Преобразуем слово в верхний регистр
                local new_word = string.upper(last_word)
                local new_line = line:sub(1, last_word_start - 1) .. new_word .. line:sub(last_word_end + 1)
                vim.api.nvim_set_current_line(new_line)
                -- Перемещаем курсор обратно
                vim.api.nvim_win_set_cursor(0, { row, col + (#new_word - #last_word) })
            end
        end
    end
end

require('oberon_upper')

-- автокоманды по мере ввода текста в режиме вставки можно реализовать ориентируясь
-- на событие InsertCharPre - оно вызывается ДО вставки символа в буфер, оно знает,
-- какой символ нажат (устанавливает переменную vim.v.char), но, к сожалению, оно не
-- позволит редактировать буфер (textlock) - считается небезопасным редактировать
-- буфер до вставки введенного символа, это может повлечь непредстказуемое поведение
-- редактора... Так что я буду использовать InsertCharPre только чтобы записать введен-
-- ный символ в глобальную переменную last_entered_char
vim.api.nvim_create_autocmd('InsertCharPre', {
           callback = function()
                last_entered_char = vim.v.char
           end
        })

-- а здесь настраиваются автокоманды по событию TextChangedI - оно, в отличие от InsertCharPre
-- вызывается ПОСЛЕ вставки символа в буфер, да только вот TextChangedI не знает, какой именно
-- символ был введен.
vim.api.nvim_create_autocmd('TextChangedI', {
            callback = function()
                -- автоисправление ключевых слов Oberon должно работать только в буферах
                -- имеющих тип файла 'oberon" - иначе если мы СНАЧАЛА откроем файл .onb,
                -- а потом в соседнем буфере файл другого типа - автозамена будет рабоать
                -- и во втором файле тоже, что неудобно
                local bufnr = vim.api.nvim_get_current_buf()
                local ft = vim.api.nvim_buf_get_option(bufnr, 'filetype')               
                if ft == 'oberon' then
                -- автоисправление будет работать при вводе пробела, точки с запятой, скобки - 
                -- к сожалению, так нельзя настроить работу по нажатию Enter, поскольку 
                -- InsetCharPre не возвращает эвента при нажатии Enter, см. костыль ниже
                    if last_entered_char == ' ' or last_entered_char == ';' or last_entered_char == '(' then
                        convert_last_word_to_uppercase(1)
                    end
                end

            end
        })

-- Маппинг для <CR> в режиме вставки
vim.api.nvim_create_autocmd({'BufEnter', 'BufReadPost'}, {
    callback = function()
            local bufnr = vim.api.nvim_get_current_buf()
            local ft = vim.api.nvim_buf_get_option(bufnr, 'filetype')               
            if ft == 'oberon' then
                vim.api.nvim_buf_set_keymap(0, 'i', '<CR>', '<C-o>:lua convert_last_word_to_uppercase(-1)<CR><CR>', 
                    { noremap = true, silent = true })
            end
    end
})