add language configs

`Lua.language.fixIndent`
`Lua.language.completeAnnotation`

Author: sumneko

script/config/template.lua

@@ -396,6 +396,8 @@ local template = {
                                             >> {},
     ['Lua.misc.parameters']                 = Type.Array(Type.String),
     ['Lua.misc.executablePath']             = Type.String,
+    ['Lua.language.fixIndent']              = Type.Boolean >> true,
+    ['Lua.language.completeAnnotation']     = Type.Boolean >> true,
     ['Lua.type.castNumberToInteger']        = Type.Boolean >> true,
     ['Lua.type.weakUnionCheck']             = Type.Boolean >> false,
     ['Lua.type.weakNilCheck']               = Type.Boolean >> false,

script/core/fix-indent.lua

@@ -4,6 +4,7 @@ local proto = require 'proto.proto'
 local lookBackward = require 'core.look-backward'
 local util = require 'utility'
 local client = require 'client'
+local config = require 'config'
 
 ---@param uri uri
 ---@param change table
@@ -172,6 +173,10 @@ return function (uri, changes)
         return
     end
 
+    if not config.get(uri, 'Lua.language.fixIndent') then
+        return
+    end
+
     local firstChange = changes[1]
     if firstChange.range then
         local edits = removeSpacesAfterEnter(uri, firstChange)

script/provider/language-configuration.lua

@@ -1,3 +1,13 @@
+local config = require 'config'
+local ws = require 'workspace'
+local util = require 'utility'
+
+local function getConfig(key)
+    local scope = ws.getFirstScope()
+    local uri = scope.uri
+    return config.get(uri, key)
+end
+
 -- Enumeration of commonly encountered syntax token types.
 local SyntaxTokenType = {
     Other = 0, -- Everything except tokens that are part of comments, string literals and regular expressions.
@@ -51,6 +61,13 @@ local languageConfiguration = {
                     indentAction = IndentAction.IndentOutdent,
                 }
             },
+        },
+    },
+}
+
+local completeAnnotation = {
+    configuration = {
+        onEnterRules = {
             {
                 beforeText = [[^\s*---@]],
                 action = {
@@ -83,4 +100,14 @@ local languageConfiguration = {
     },
 }
 
-return languageConfiguration
+local M = {}
+
+function M.make()
+    local result = languageConfiguration
+    if getConfig 'Lua.language.completeAnnotation' then
+        result = util.mergeStruct(result, completeAnnotation)
+    end
+    return result
+end
+
+return M

script/provider/provider.lua

@@ -1605,7 +1605,8 @@ local function refreshLanguageConfiguration()
     if not client.getOption('languageConfiguration') then
         return
     end
-    proto.notify('$/languageConfiguration', require 'provider.language-configuration')
+    local lc = require 'provider.language-configuration'
+    proto.notify('$/languageConfiguration', lc.make())
 end
 
 config.watch(function (_uri, key, _value)

script/utility.lua

@@ -692,21 +692,6 @@ function m.sortCallbackOfIndex(arr)
     end
 end
 
----@param datas any[]
----@param scores integer[]
----@return SortByScoreCallback
-function m.sortCallbackOfScore(datas, scores)
-    local map = {}
-    for i = 1, #datas do
-        local data = datas[i]
-        local score = scores[i]
-        map[data] = score
-    end
-    return function (v)
-        return map[v]
-    end
-end
-
 ---裁剪字符串
 ---@param str string
 ---@param mode? '"left"'|'"right"'
@@ -721,15 +706,20 @@ function m.trim(str, mode)
     return (str:match '^%s*(.-)%s*$')
 end
 
-function m.expandPath(path)
+---@param path string
+---@param env? { [string]: string }
+---@return string
+function m.expandPath(path, env)
     if path:sub(1, 1) == '~' then
         local home = getenv('HOME')
         if not home then -- has to be Windows
             home = getenv 'USERPROFILE' or (getenv 'HOMEDRIVE' .. getenv 'HOMEPATH')
         end
         return home .. path:sub(2)
     elseif path:sub(1, 1) == '$' then
-        path = path:gsub('%$([%w_]+)', getenv)
+        path = path:gsub('%$([%w_]+)', function (name)
+            return env and env[name] or getenv(name) or ''
+        end)
         return path
     end
     return path
@@ -865,13 +855,12 @@ function m.multiTable(count, default)
         end })
     end
     for _ = 3, count do
-        local tt = current
         current = setmetatable({}, { __index = function (t, k)
             if k == nil then
                 return nil
             end
-            t[k] = tt
-            return tt
+            t[k] = current
+            return current
         end })
     end
     return current
@@ -963,4 +952,92 @@ function m.arrayMerge(a, b)
     return a
 end
 
+---@generic K
+---@param t { [K]: any }
+---@return K[]
+function m.keysOf(t)
+    local keys = {}
+    for k in pairs(t) do
+        keys[#keys+1] = k
+    end
+    return keys
+end
+
+---@generic V
+---@param t { [any]: V }
+---@return V[]
+function m.valuesOf(t)
+    local values = {}
+    for _, v in pairs(t) do
+        values[#values+1] = v
+    end
+    return values
+end
+
+---@param t table
+---@return integer
+function m.countTable(t)
+    local count = 0
+    for _ in pairs(t) do
+        count = count + 1
+    end
+    return count
+end
+
+---@param arr any[]
+function m.arrayRemoveDuplicate(arr)
+    local mark = {}
+    local offset = 0
+    local len = #arr
+    for i = 1, len do
+        local v = arr[i]
+        if mark[v] then
+            offset = offset + 1
+        else
+            arr[i - offset] = v
+            mark[v] = true
+        end
+    end
+    for i = len - offset + 1, len do
+        arr[i] = nil
+    end
+end
+
+---@param ... table
+---@return table
+function m.mergeStruct(...)
+    local result
+    local copyed = {}
+
+    local function merge(a, b)
+        if copyed[b] then
+            return copyed[b]
+        end
+        if type(b) ~= 'table' then
+            return b
+        end
+        if not a then
+            a = {}
+        end
+        copyed[b] = a
+        local usedKeys = {}
+        for i, v in ipairs(b) do
+            a[#a+1] = v
+            usedKeys[i] = true
+        end
+        for k, v in pairs(b) do
+            if not usedKeys[k] then
+                a[k] = merge(a[k], v)
+            end
+        end
+        return a
+    end
+
+    for _, t in ipairs { ... } do
+        result = merge(result, t)
+    end
+
+    return result
+end
+
 return m