honeylisp/vendor/lite-plugins/plugins/linecopypaste.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

46 lines
1.2 KiB
Lua
Executable file

local core = require "core"
local command = require "core.command"
local function doc()
return core.active_view.doc
end
local line_in_clipboard = false
local doc_copy = command.map["doc:copy"].perform
command.map["doc:copy"].perform = function()
if doc():has_selection() then
doc_copy()
line_in_clipboard = false
else
local line = doc():get_selection()
system.set_clipboard(doc().lines[line])
line_in_clipboard = true
end
end
local doc_cut = command.map["doc:cut"].perform
command.map["doc:cut"].perform = function()
if doc():has_selection() then
doc_cut()
line_in_clipboard = false
else
local line = doc():get_selection()
system.set_clipboard(doc().lines[line])
doc():remove(line, 1, line+1, 1)
doc():set_selection(line, 1)
line_in_clipboard = true
end
end
local doc_paste = command.map["doc:paste"].perform
command.map["doc:paste"].perform = function()
if line_in_clipboard == false then
doc_paste()
else
local line, col = doc():get_selection()
doc():insert(line, 1, system.get_clipboard():gsub("\r", ""))
doc():set_selection(line+1, col)
end
end