1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
-- Copyright 2007-2009 Mitchell mitchell<att>caladbolg.net. See LICENSE.
local textadept = _G.textadept
local locale = _G.locale
---
-- Multiple line editing for the textadept module.
-- There are several option variables used:
-- MARK_MLINE: The integer mark used to identify an MLine marked line.
-- MARK_MLINE_COLOR: The Scintilla color used for an MLine marked line.
module('_m.textadept.mlines', package.seeall)
-- options
local MARK_MLINE = 2
local MARK_MLINE_COLOR = 0x4D994D
-- end options
---
-- [Local table] Contains all MLine marked lines with the column index to edit
-- with respect to for each specific line.
-- @class table
-- @name mlines
local mlines = {}
local mlines_most_recent
---
-- Adds an mline marker to the current line and stores the line number and
-- column position of the caret in the mlines table.
function add()
local buffer = buffer
buffer:marker_set_back(MARK_MLINE, MARK_MLINE_COLOR)
local column = buffer.column[buffer.current_pos]
local line = buffer:line_from_position(buffer.current_pos)
local new_marker = buffer:marker_add(line, MARK_MLINE)
mlines[line] = { marker = new_marker, start_col = column }
mlines_most_recent = line
end
---
-- Adds mline markers to all lines from the most recently added line to the
-- current line.
-- The mlines table is updated as in add(), but all column positions are the
-- same as the current column caret position.
function add_multiple()
local buffer = buffer
if mlines_most_recent then
local line = buffer:line_from_position(buffer.current_pos)
local column = buffer.column[buffer.current_pos]
local start_line, end_line
if mlines_most_recent < line then
start_line, end_line = mlines_most_recent, line
else
start_line, end_line = line, mlines_most_recent
end
for curr_line = start_line, end_line do
local new_mark = buffer:marker_add(curr_line, MARK_MLINE)
mlines[curr_line] = { marker = new_mark, start_col = column }
end
mlines_most_recent = line
end
end
---
-- Clears the mline marker at the current line.
function remove()
local buffer = buffer
local line = buffer:line_from_position(buffer.current_pos)
buffer:marker_delete(line, MARK_MLINE)
mlines[line] = nil
end
---
-- Clears the mline markers from the line whose marker was most recently
-- removed (or the line where a marker was most recently added to) to the
-- current line.
function remove_multiple()
local buffer = buffer
if mlines_most_recent then
local line = buffer:line_from_position(buffer.current_pos)
local start_line, end_line
if mlines_most_recent < line then
start_line, end_line = mlines_most_recent, line
else
start_line, end_line = line, mlines_most_recent
end
for curr_line = start_line, end_line do
buffer:marker_delete(curr_line, MARK_MLINE)
mlines[curr_line] = nil
end
mlines_most_recent = line
end
end
---
-- Clears all mline markers and the mlines table.
function clear()
local buffer = buffer
buffer:marker_delete_all(MARK_MLINE)
mlines = {}
mlines_most_recent = nil
end
---
-- Applies changes made in the current line relative to the caret column
-- position stored initially to all lines with mline markers in relation to
-- their initial column positions.
function update()
local buffer = buffer
local curr_line = buffer:line_from_position(buffer.current_pos)
local curr_col = buffer.column[buffer.current_pos]
buffer:begin_undo_action()
if mlines[curr_line] then
local s = buffer:find_column(curr_line, mlines[curr_line].start_col)
local e = buffer:find_column(curr_line, curr_col)
local delta = e - s
local txt = ''
if delta > 0 then txt = buffer:text_range(s, e) end
for line_num, item in pairs(mlines) do
if line_num ~= curr_line then
local next_pos = buffer:find_column(line_num, item.start_col)
if delta < 0 then
buffer.current_pos, buffer.anchor = next_pos, next_pos
for i = 1, math.abs(delta) do buffer:delete_back() end
item.start_col = buffer.column[buffer.current_pos]
else
buffer:insert_text(next_pos, txt)
item.start_col = item.start_col + #txt
end
end
end
if delta < 0 then
local pos = buffer:position_from_line(curr_line) + curr_col
buffer:goto_pos(pos)
end
mlines[curr_line].start_col = curr_col
end
buffer:end_undo_action()
end
|
