diff options
Diffstat (limited to '.config/micro/plug/snippets/snippets.lua')
| -rw-r--r-- | .config/micro/plug/snippets/snippets.lua | 586 |
1 files changed, 0 insertions, 586 deletions
diff --git a/.config/micro/plug/snippets/snippets.lua b/.config/micro/plug/snippets/snippets.lua deleted file mode 100644 index d5d71b3..0000000 --- a/.config/micro/plug/snippets/snippets.lua +++ /dev/null @@ -1,586 +0,0 @@ -VERSION = "0.2.0" - -local micro = import("micro") -local buffer = import("micro/buffer") -local config = import("micro/config") -local util = import("micro/util") - -local debugflag = true -local curFileType = "" -local snippets = {} -local currentSnippet = nil -local RTSnippets = config.NewRTFiletype() - -local Location = {} -Location.__index = Location - -local Snippet = {} -Snippet.__index = Snippet - --- Snippets --- --> Snippet --- --> Location - -function Location.new(idx, ph, snippet) - debug1("Location.new(idx, ph, snip) idx = " , idx) - --debugt("Location.new(idx, ph, snip) ph = ", ph) - --debugt("Location.new(idx, ph, snippet) snippet = ", snippet) - - local self = setmetatable({}, Location) - self.idx = idx - self.ph = ph - self.snippet = snippet - return self -end - --- offset of the location relative to the snippet start -function Location.offset(self) - debug("Location.offset(self)") - local add = 0 - for i = 1, #self.snippet.locations do - local loc = self.snippet.locations[i] - debug1("loc = ",loc) - if loc == self then - break - end - - local val = loc.ph.value - micro.Log("VAL", val) - if val then - add = add + val:len() - end - end - return self.idx+add -end - -function Location.startPos(self) - --debugt("Location.startPos(self) = ",self) - local loc = self.snippet.startPos - return loc:Move(self:offset(), self.snippet.view.buf) -end - --- returns the length of the location (but at least 1) -function Location.len(self) - debug("Location.len(self)") - local len = 0 - if self.ph.value then - len = self.ph.value:len() - end - if len <= 0 then - len = 1 - end - return len -end - -function Location.endPos(self) - debug("Location.endPos(self)") - local start = self:startPos() - micro.Log("ENDPOS", self.ph.value) - return start:Move(self:len(), self.snippet.view.buf) -end - --- check if the given loc is within the location -function Location.isWithin(self, loc) - debug("Location.isWithin(self, loc)") - return loc:GreaterEqual(self:startPos()) and loc:LessEqual(self:endPos()) -end - -function Location.focus(self) - debug("Location.focus(self)") - local view = self.snippet.view - local startP = self:startPos():Move(-1, view.Buf) - local endP = self:endPos():Move(-1, view.Buf) - micro.Log(startP, endP) - - if view.Cursor:LessThan(startP) then - while view.Cursor:LessThan(startP) do - view.Cursor:Right() - end - elseif view.Cursor:GreaterEqual(endP) then - while view.Cursor:GreaterEqual(endP) do - view.Cursor:Left() - end - end - - if self.ph.value:len() > 0 then - view.Cursor:SetSelectionStart(startP) - view.Cursor:SetSelectionEnd(endP) - else - view.Cursor:ResetSelection() - end -end - -function Location.handleInput(self, ev) - debug("Location.handleInput(self, ev)") - if ev.EventType == 1 then - -- TextInput - if util.String(ev.Deltas[1].Text) == "\n" then - Accept() - return false - else - local offset = 1 - local sp = self:startPos() - while sp:LessEqual(-ev.Deltas[1].Start) do - sp = sp:Move(1, self.snippet.view.Buf) - offset = offset + 1 - end - - self.snippet:remove() - local v = self.ph.value - if v == nil then - v = "" - end - - self.ph.value = v:sub(0, offset-1) .. util.String(ev.Deltas[1].Text) .. v:sub(offset) - self.snippet:insert() - return true - end - elseif ev.EventType == -1 then - -- TextRemove - local offset = 1 - local sp = self:startPos() - while sp:LessEqual(-ev.Deltas[1].Start) do - sp = sp:Move(1, self.snippet.view.Buf) - offset = offset + 1 - end - - if ev.Deltas[1].Start.Y ~= ev.Deltas[1].End.Y then - return false - end - - self.snippet:remove() - - local v = self.ph.value - if v == nil then - v = "" - end - - local len = ev.Deltas[1].End.X - ev.Deltas[1].Start.X - - self.ph.value = v:sub(0, offset-1) .. v:sub(offset+len) - self.snippet:insert() - return true - end - - return false -end - --- new snippet -function Snippet.new() - debug("Snippet.new()") - local self = setmetatable({}, Snippet) - self.code = "" - return self -end - --- add line of code to snippet -function Snippet.AddCodeLine(self, line) - --debugt("Snippet.AddCodeLine(self,line) self = " , self) - debug1("Snippet.AddCodeLine(self, line) line = " , line) - if self.code ~= "" then - self.code = self.code .. "\n" - end - self.code = self.code .. line -end - -function Snippet.Prepare(self) - debug("Snippet.Prepare(self)") - if not self.placeholders then - self.placeholders = {} - self.locations = {} - local count = 0 - local pattern = "${(%d+):?([^}]*)}" - while true do - local num, value = self.code:match(pattern) - if not num then - break - end - count = count+1 - num = tonumber(num) - local idx = self.code:find(pattern) - self.code = self.code:gsub(pattern, "", 1) - micro.Log("IDX", idx, self.code) - - local placeHolders = self.placeholders[num] - if not placeHolders then - placeHolders = {num = num} - self.placeholders[#self.placeholders+1] = placeHolders - end - self.locations[#self.locations+1] = Location.new(idx, placeHolders, self) - debug1("location total = ",#self.locations) - if value then - placeHolders.value = value - end - end - end -end - -function Snippet.clone(self) - debug("Snippet.clone(self)") - local result = Snippet.new() - result:AddCodeLine(self.code) - result:Prepare() - return result -end - -function Snippet.str(self) - debug("Snippet.str(self)") - local res = self.code - for i = #self.locations, 1, -1 do - local loc = self.locations[i] - res = res:sub(0, loc.idx-1) .. loc.ph.value .. res:sub(loc.idx) - end - return res -end - -function Snippet.findLocation(self, loc) - debug1("Snippet.findLocation(self, loc) loc = ",loc) - for i = 1, #self.locations do - if self.locations[i]:isWithin(loc) then - return self.locations[i] - end - end - return nil -end - -function Snippet.remove(self) - debug("Snippet.remove(self)") - local endPos = self.startPos:Move(self:str():len(), self.view.Buf) - self.modText = true - self.view.Cursor:SetSelectionStart(self.startPos) - self.view.Cursor:SetSelectionEnd(endPos) - self.view.Cursor:DeleteSelection() - self.view.Cursor:ResetSelection() - self.modText = false -end - -function Snippet.insert(self) - debug("Snippet.insert(self)") - self.modText = true - self.view.Buf:insert(self.startPos, self:str()) - self.modText = false -end - -function Snippet.focusNext(self) - debug("Snippet.focusNext(self)") - if self.focused == nil then - self.focused = 0 - else - self.focused = (self.focused + 1) % #self.placeholders - end - - local ph = self.placeholders[self.focused+1] - - for i = 1, #self.locations do - if self.locations[i].ph == ph then - self.locations[i]:focus() - return - end - end -end - -local function CursorWord(bp) - debug1("CursorWord(bp)",bp) - local c = bp.Cursor - local x = c.X-1 -- start one rune before the cursor - local result = "" - while x >= 0 do - local r = util.RuneStr(c:RuneUnder(x)) - if (r == " ") then -- IsWordChar(r) then - break - else - result = r .. result - end - x = x-1 - end - - return result -end - -local function ReadSnippets(filetype) - debug1("ReadSnippets(filetype)",filetype) - local snippets = {} - local allSnippetFiles = config.ListRuntimeFiles(RTSnippets) - local exists = false - - for i = 1, #allSnippetFiles do - if allSnippetFiles[i] == filetype then - exists = true - break - end - end - - if not exists then - micro.InfoBar():Error("No snippets file for \""..filetype.."\"") - return snippets - end - - local snippetFile = config.ReadRuntimeFile(RTSnippets, filetype) - - local curSnip = nil - local lineNo = 0 - for line in string.gmatch(snippetFile, "(.-)\r?\n") do - lineNo = lineNo + 1 - if string.match(line,"^#") then - -- comment - elseif line:match("^snippet") then - curSnip = Snippet.new() - for snipName in line:gmatch("%s(.+)") do -- %s space .+ one or more non-empty sequence - snippets[snipName] = curSnip - end - else - local codeLine = line:match("^\t(.*)$") - if codeLine ~= nil then - curSnip:AddCodeLine(codeLine) - elseif line ~= "" then - micro.InfoBar():Error("Invalid snippets file (Line #"..tostring(lineNo)..")") - end - end - end - debugt("ReadSnippets(filetype) snippets = ",snippets) - return snippets -end - --- Check filetype and load snippets --- Return true is snippets loaded for filetype --- Return false if no snippets loaded -local function EnsureSnippets(bp) - debug("EnsureSnippets()") - local filetype = bp.Buf.Settings["filetype"] - if curFileType ~= filetype then - snippets = ReadSnippets(filetype) - curFileType = filetype - end - if next(snippets) == nil then - return false - end - return true -end - -function onBeforeTextEvent(sb, ev) - debug1("onBeforeTextEvent(ev)",ev) - if currentSnippet ~= nil and currentSnippet.view.Buf.SharedBuffer == sb then - if currentSnippet.modText then - -- text event from the snippet. simply ignore it... - return true - end - - local locStart = nil - local locEnd = nil - - if ev.Deltas[1].Start ~= nil and currentSnippet ~= nil then - locStart = currentSnippet:findLocation(ev.Deltas[1].Start:Move(1, currentSnippet.view.Buf)) - locEnd = currentSnippet:findLocation(ev.Deltas[1].End) - end - if locStart ~= nil and ((locStart == locEnd) or (ev.Deltas[1].End.Y==0 and ev.Deltas[1].End.X==0)) then - if locStart:handleInput(ev) then - currentSnippet.view.Cursor:Goto(-ev.C) - return false - end - end - Accept() - end - - return true - -end - --- Insert snippet if found. --- Pass in the name of the snippet to be inserted by command mode --- No name passed in then it will check the text left of the cursor -function Insert(bp, args) - local snippetName = nil - if args ~= nil and #args > 0 then - snippetName = args[1] - end - debug1("Insert(snippetName)",snippetName) - - local c = bp.Cursor - local buf = bp.Buf - local xy = buffer.Loc(c.X, c.Y) - -- check if a snippet name was passed in - local noArg = false - if not snippetName then - snippetName = CursorWord(bp) - noArg = true - end - -- check filetype and load snippets - local result = EnsureSnippets(bp) - -- if no snippets return early - if (result == false) then return end - - -- curSn cloned into currentSnippet if snippet found - local curSn = snippets[snippetName] - if curSn then - currentSnippet = curSn:clone() - currentSnippet.view = bp - -- remove snippet keyword from micro buffer before inserting snippet - if noArg then - currentSnippet.startPos = xy:Move(-snippetName:len(), buf) - - currentSnippet.modText = true - - c:SetSelectionStart(currentSnippet.startPos) - c:SetSelectionEnd(xy) - c:DeleteSelection() - c:ResetSelection() - - currentSnippet.modText = false - else - -- no need to remove snippet keyword from buffer as run from command mode - currentSnippet.startPos = xy - end - -- insert snippet to micro buffer - currentSnippet:insert() - micro.InfoBar():Message("Snippet Inserted \""..snippetName.."\"") - - -- Placeholders - if #currentSnippet.placeholders == 0 then - local pos = currentSnippet.startPos:Move(currentSnippet:str():len(), bp.Buf) - while bp.Cursor:LessThan(pos) do - bp.Cursor:Right() - end - while bp.Cursor:GreaterThan(pos) do - bp.Cursor:Left() - end - else - currentSnippet:focusNext() - end - else - -- Snippet not found - micro.InfoBar():Message("Unknown snippet \""..snippetName.."\"") - end -end - -function Next() - debug("Next()") - if currentSnippet then - currentSnippet:focusNext() - end -end - -function Accept() - debug("Accept()") - currentSnippet = nil -end - -function Cancel() - debug("Cancel()") - if currentSnippet then - currentSnippet:remove() - Accept() - end -end - - -local function StartsWith(String,Start) - debug1("StartsWith(String,Start) String ",String) - debug1("StartsWith(String,Start) start ",start) - String = String:upper() - Start = Start:upper() - return string.sub(String,1,string.len(Start))==Start -end - --- Used for auto complete in the command prompt -function findSnippet(input) - debug1("findSnippet(input)",input) - local result = {} - -- TODO: pass bp - EnsureSnippets() - - for name,v in pairs(snippets) do - if StartsWith(name, input) then - table.insert(result, name) - end - end - return result -end - --- Debug functions below --- debug1 is for logging functionName and 1 argument passed -function debug1(functionName, argument) - if debugflag == false then return end - if argument == nil then - micro.Log("snippets-plugin -> function " .. functionName .. " = nil") - elseif argument == "" then - micro.Log("snippets-plugin -> function " .. functionName .. " = empty string") - else micro.Log("snippets-plugin -> function " .. functionName .. " = " .. tostring(argument)) - end -end - --- debug is for logging functionName only -function debug(functionName) - if debugflag == false then return end - micro.Log("snippets-plugin -> function " .. functionName) -end - --- debug is for logging functionName and table -function debugt(functionName,tablepassed) - if debugflag == false then return end - micro.Log("snippets-plugin -> function " .. functionName ) - tprint(tablepassed) --- if (tablepassed == nil) then return end --- for key,value in pairs(tablepassed) do --- micro.Log("key - " .. tostring(key) .. "value = " .. tostring(value[1]) ) --- end -end - --- dump table -function dump(o) - if type(o) == 'table' then - local s = '{ ' - for k,v in pairs(o) do - if type(k) ~= 'number' then k = '"'..k..'"' end - s = s .. '['..k..'] = ' .. dump(v) .. ',' - end - return s .. '} ' - else - return tostring(o) - end - end - - function tprint (tbl, indent) - if not indent then indent = 0 end - for k, v in pairs(tbl) do - formatting = string.rep(" ", indent) .. k .. ": " - if type(v) == "table" then - micro.Log(formatting .. "Table ->") - tprint(v, indent+1) - elseif type(v) == nil then - micro.Log(formatting .. " nil") - else - micro.Log(formatting .. tostring(v)) - end - end - end - - function checkTableisEmpty(myTable) - if next(myTable) == nil then - -- myTable is empty - end -end - -function tablePrint(tbl) - for index = 1, #tbl do - micro.Log(tostring(index) .. " = " .. tostring(tbl[index])) - end -end - -function init() - -- Insert a snippet - config.MakeCommand("snippetinsert", Insert, config.NoComplete) - -- Mark next placeholder - config.MakeCommand("snippetnext", Next, config.NoComplete) - -- Cancel current snippet (removes the text) - config.MakeCommand("snippetcancel", Cancel, config.NoComplete) - -- Acceptes snipped editing - config.MakeCommand("snippetaccept", Accept, config.NoComplete) - - config.AddRuntimeFile("snippets", config.RTHelp, "help/snippets.md") - config.AddRuntimeFilesFromDirectory("snippets", RTSnippets, "snippets", "*.snippets") - - config.TryBindKey("Alt-w", "lua:snippets.Next", false) - config.TryBindKey("Alt-a", "lua:snippets.Accept", false) - config.TryBindKey("Alt-s", "lua:snippets.Insert", false) - config.TryBindKey("Alt-d", "lua:snippets.Cancel", false) -end |