aboutsummaryrefslogtreecommitdiff
path: root/plugins/sort.lua
blob: ce899e96e010c15b217eba889d29369b9233899b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
local core = require "core"
local command = require "core.command"

local function split_lines(text)
  local res = {}
  for line in (text .. "\n"):gmatch("(.-)\n") do
    table.insert(res, line)
  end
  return res
end

command.add("core.docview", {
  ["sort:sort"] = function()
    core.active_view.doc:replace(function(text)
      local head, body, foot = text:match("(\n*)(.-)(\n*)$")
      local lines = split_lines(body)
      table.sort(lines, function(a, b) return a:lower() < b:lower() end)
      return head .. table.concat(lines, "\n") .. foot
    end)
  end,
})