honeylisp/vendor/lite-plugins/plugins/togglesnakecamel.lua
Jeremy Penner cb5132f393 git subrepo clone https://github.com/rxi/lite-plugins vendor/lite-plugins
subrepo:
  subdir:   "vendor/lite-plugins"
  merged:   "de4227d"
upstream:
  origin:   "https://github.com/rxi/lite-plugins"
  branch:   "master"
  commit:   "de4227d"
git-subrepo:
  version:  "0.4.2"
  origin:   "https://github.com/ingydotnet/git-subrepo"
  commit:   "65fde50"
2020-11-19 21:04:39 -05:00

33 lines
668 B
Lua

local core = require "core"
local command = require "core.command"
local keymap = require "core.keymap"
local function f(x, y)
return x .. "_" .. string.lower(y)
end
local function toggle(symbol)
if not symbol:match("[a-z]") then
return
elseif symbol:match("_") then
return symbol:gsub("_(.)", string.upper)
elseif symbol:match("^[a-z]") then
return symbol:gsub("(.)([A-Z])", f):lower()
end
end
command.add("core.docview", {
["toggle-snake-camel:toggle"] = function()
core.active_view.doc:replace(function(text)
return text:gsub("[%w][%w%d_]*", toggle)
end)
end,
})
keymap.add {
["f6"] = "toggle-snake-camel:toggle",
}