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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
-- Copyright 2007-2009 Mitchell mitchell<att>caladbolg.net. See LICENSE.
local textadept = _G.textadept
local locale = _G.locale
---
-- Module that handles Scintilla and Textadept notifications/events.
-- Most of Textadept's functionality comes through handlers. Scintilla
-- notifications, Textadept's own events, and user-defined events can all be
-- handled.
module('textadept.events', package.seeall)
-- Usage:
-- Each event can have multiple handlers, which are simply Lua functions that
-- are called in the sequence they are added as handler functions. Sometimes it
-- is useful to have a handler run under a specific condition(s). If this is the
-- case, place a conditional in the function that returns if it isn't met.
--
-- For users creating their own events, one does not have to be explicitly
-- defined. A handler can simply be added for an event name, and 'handle'd when
-- necessary.
--
-- For reference, events will be shown in 'event(arguments)' format, but in
-- reality, the event is handled as 'handle(event, arguments)'.
--
-- Scintilla notifications:
-- char_added(ch)
-- ch: the (integer) character added.
-- save_point_reached()
-- save_point_left()
-- double_click(position, line)
-- position: the position of the beginning of the line clicked.
-- line: the line clicked.
-- update_ui()
-- macro_record(message, wParam, lParam)
-- message: the SCI_* message.
-- wParam: wParam in SCI_*.
-- lParam: lParam in SCI_*.
-- margin_click(margin, modifiers, position)
-- margin: the margin number.
-- modifiers: mouse modifiers.
-- position: the position of the beginning of the line at the point clicked.
-- user_list_selection(wParam, text)
-- wParam: the user list ID.
-- text: the text of the selected item.
-- uri_dropped(text)
-- text: the URI dropped.
-- call_tip_click(position)
-- position: 1 or 2 if the up or down arrow was clicked; 0 otherwise.
-- auto_c_selection(lParam, text)
-- lParam: the start position of the word being completed.
-- text: the text of the selected item.
--
-- Textadept events:
-- buffer_new()
-- buffer_deleted()
-- buffer_switch()
-- view_new()
-- view_switch()
-- quit()
-- Note: when adding a quit handler, it must be inserted at index 1 because
-- the default quit handler returns true, which ignores all subsequent
-- handlers.
-- keypress(code, shift, control, alt)
-- code: the key code.
-- shift: flag indicating whether or not shift is pressed.
-- control: flag indicating whether or not control is pressed.
-- alt: flag indicating whether or not alt is pressed.
-- menu_clicked(menu_id)
-- menu_id: the numeric ID of the menu item.
-- pm_view_filled()
local events = textadept.events
---
-- Adds a handler function to an event.
-- @param event The string event name.
-- @param f The Lua function to add.
-- @param index Optional index to insert the handler into.
function add_handler(event, f, index)
local plural = event..'s'
if not events[plural] then events[plural] = {} end
local handlers = events[plural]
if index then
table.insert(handlers, index, f)
else
handlers[#handlers + 1] = f
end
end
---
-- Calls every handler function added to an event in sequence.
-- If true or false is returned by any handler, the iteration ceases. Normally
-- this function is called by the system when necessary, but it can be called
-- in scripts to handle user-defined events.
-- @param event The string event name.
-- @param ... Arguments to the handler.
function handle(event, ...)
local plural = event..'s'
local handlers = events[plural]
if not handlers then return end
for _, f in ipairs(handlers) do
local result = f(unpack{...})
if result == true or result == false then return result end
end
end
-- Scintilla notifications.
function char_added(n)
if n.ch < 256 then return handle('char_added', string.char(n.ch)) end
end
function save_point_reached()
return handle('save_point_reached')
end
function save_point_left()
return handle('save_point_left')
end
function double_click(n)
return handle('double_click', n.position, n.line)
end
function update_ui()
return handle('update_ui')
end
function macro_record(n)
return handle('macro_record', n.message, n.wParam, n.lParam)
end
function margin_click(n)
return handle('margin_click', n.margin, n.modifiers, n.position)
end
function user_list_selection(n)
return handle('user_list_selection', n.wParam, n.text)
end
function uri_dropped(n)
return handle('uri_dropped', n.text)
end
function call_tip_click(n)
return handle('call_tip_click', n.position)
end
function auto_c_selection(n)
return handle('auto_c_selection', n.lParam, n.text)
end
--- Map of Scintilla notifications to their handlers.
local c = textadept.constants
local scnnotifications = {
[c.SCN_CHARADDED] = char_added,
[c.SCN_SAVEPOINTREACHED] = save_point_reached,
[c.SCN_SAVEPOINTLEFT] = save_point_left,
[c.SCN_DOUBLECLICK] = double_click,
[c.SCN_UPDATEUI] = update_ui,
[c.SCN_MACRORECORD] = macro_record,
[c.SCN_MARGINCLICK] = margin_click,
[c.SCN_USERLISTSELECTION] = user_list_selection,
[c.SCN_URIDROPPED] = uri_dropped,
[c.SCN_CALLTIPCLICK] = call_tip_click,
[c.SCN_AUTOCSELECTION] = auto_c_selection
}
---
-- Handles Scintilla notifications.
-- @param n The Scintilla notification structure as a Lua table.
function notification(n)
local f = scnnotifications[n.code]
if f then f(n) end
end
-- Textadept events.
function buffer_new()
return handle('buffer_new')
end
function buffer_deleted()
return handle('buffer_deleted')
end
function buffer_switch()
return handle('buffer_switch')
end
function view_new()
return handle('view_new')
end
function view_switch()
return handle('view_switch')
end
function quit()
return handle('quit')
end
function keypress(code, shift, control, alt)
return handle('keypress', code, shift, control, alt)
end
function menu_clicked(menu_id_str)
return handle('menu_clicked', tonumber(menu_id_str))
end
function pm_view_filled()
return handle('pm_view_filled')
end
-- Default handlers to follow.
add_handler('view_new',
function() -- sets default properties for a Scintilla window
local buffer = buffer
local c = textadept.constants
-- properties
buffer.property['textadept.home'] = _HOME
buffer.property['lexer.lua.home'] = _HOME..'/lexers/'
buffer.property['lexer.lua.script'] = _HOME..'/lexers/lexer.lua'
if _THEME and #_THEME > 0 then
if not _THEME:find('[/\\]') then
-- use a lexer theme from Textadept's themes, not scintilla-st's
buffer.property['lexer.lua.color.theme'] =
_HOME..'/themes/'.._THEME..'/lexer.lua'
else -- _THEME is a folder path
buffer.property['lexer.lua.color.theme'] = _THEME..'/lexer.lua'
end
end
-- lexer
buffer.style_bits = 8
buffer.lexer = c.SCLEX_LPEG
buffer:set_lexer_language('container')
-- delete Windows/Linux key commands for Mac
if MAC then
buffer:clear_cmd_key(string.byte('Z'), c.SCMOD_CTRL)
buffer:clear_cmd_key(string.byte('Y'), c.SCMOD_CTRL)
buffer:clear_cmd_key(string.byte('X'), c.SCMOD_CTRL)
buffer:clear_cmd_key(string.byte('C'), c.SCMOD_CTRL)
buffer:clear_cmd_key(string.byte('V'), c.SCMOD_CTRL)
buffer:clear_cmd_key(string.byte('A'), c.SCMOD_CTRL)
end
if _THEME and #_THEME > 0 then
local ret, errmsg
if not _THEME:find('[/\\]') then
ret, errmsg = pcall(dofile, _HOME..'/themes/'.._THEME..'/view.lua')
else -- _THEME is a folder path
ret, errmsg = pcall(dofile, _THEME..'/view.lua')
end
if ret then return end
io.stderr:write(errmsg)
end
-- Default Theme (Light).
-- caret
buffer.caret_fore = 3355443 -- 0x33 | 0x33 << 8 | 0x33 << 16
buffer.caret_line_visible = true
buffer.caret_line_back = 14540253 -- 0xDD | 0xDD << 8 | 0xDD << 16
buffer:set_x_caret_policy(1, 20) -- CARET_SLOP
buffer:set_y_caret_policy(13, 1) -- CARET_SLOP | CARET_STRICT | CARET_EVEN
buffer.caret_style = 2
buffer.caret_period = 0
-- selection
buffer:set_sel_fore(1, 3355443) -- 0x33 | 0x33 << 8 | 0x33 << 16
buffer:set_sel_back(1, 10066329) -- 0x99 | 0x99 << 8 | 0x99 << 16
buffer.margin_width_n[0] = -- line number margin
4 + 3 * buffer:text_width(c.STYLE_LINENUMBER, '9')
buffer.margin_width_n[1] = 0 -- marker margin invisible
-- fold margin
buffer:set_fold_margin_colour(1, 13421772) -- 0xCC | 0xCC << 8 | 0xCC << 16
buffer:set_fold_margin_hi_colour(1, 13421772) -- 0xCC | 0xCC << 8 | 0xCC << 16
buffer.margin_type_n[2] = c.SC_MARGIN_SYMBOL
buffer.margin_width_n[2] = 10
buffer.margin_mask_n[2] = c.SC_MASK_FOLDERS
buffer.margin_sensitive_n[2] = true
-- fold margin markers
buffer:marker_define(c.SC_MARKNUM_FOLDEROPEN, c.SC_MARK_ARROWDOWN)
buffer:marker_set_fore(c.SC_MARKNUM_FOLDEROPEN, 0)
buffer:marker_set_back(c.SC_MARKNUM_FOLDEROPEN, 0)
buffer:marker_define(c.SC_MARKNUM_FOLDER, c.SC_MARK_ARROW)
buffer:marker_set_fore(c.SC_MARKNUM_FOLDER, 0)
buffer:marker_set_back(c.SC_MARKNUM_FOLDER, 0)
buffer:marker_define(c.SC_MARKNUM_FOLDERSUB, c.SC_MARK_EMPTY)
buffer:marker_define(c.SC_MARKNUM_FOLDERTAIL, c.SC_MARK_EMPTY)
buffer:marker_define(c.SC_MARKNUM_FOLDEREND, c.SC_MARK_EMPTY)
buffer:marker_define(c.SC_MARKNUM_FOLDEROPENMID, c.SC_MARK_EMPTY)
buffer:marker_define(c.SC_MARKNUM_FOLDERMIDTAIL, c.SC_MARK_EMPTY)
-- various
buffer.buffered_draw = true
buffer.two_phase_draw = false
buffer.call_tip_use_style = 0
buffer.use_popup = 0
buffer:set_fold_flags(16)
buffer.mod_event_mask = c.SC_MOD_CHANGEFOLD
buffer.scroll_width = 2000
buffer.h_scroll_bar = true
buffer.end_at_last_line = true
buffer.caret_sticky = false
end)
add_handler('buffer_new',
function() -- sets default properties for a Scintilla document
local function run()
local buffer = buffer
-- lexer
buffer.style_bits = 8
buffer.lexer = textadept.constants.SCLEX_LPEG
buffer:set_lexer_language('container')
-- buffer
buffer.code_page = textadept.constants.SC_CP_UTF8
if _THEME and #_THEME > 0 then
local ret, errmsg
if not _THEME:find('[/\\]') then
ret, errmsg = pcall(dofile, _HOME..'/themes/'.._THEME..'/buffer.lua')
else -- _THEME is a folder path
ret, errmsg = pcall(dofile, _THEME..'/buffer.lua')
end
if ret then return end
io.stderr:write(errmsg)
end
-- Default theme (Light).
-- folding
buffer.property['fold'] = '1'
buffer.property['fold.by.indentation'] = '1'
-- tabs and indentation
buffer.tab_width = 2
buffer.use_tabs = false
buffer.indent = 2
buffer.tab_indents = true
buffer.back_space_un_indents = true
buffer.indentation_guides = 1
-- various
buffer.eol_mode = textadept.constants.SC_EOL_LF
buffer.auto_c_choose_single = true
end
-- normally when an error occurs, a new buffer is created with the error
-- message, but if an error occurs here, this event would be called again
-- and again, erroring each time resulting in an infinite loop; print error
-- to stderr instead
local ret, errmsg = pcall(run)
if not ret then io.stderr:write(errmsg) end
end)
local title_text = '%s %s Textadept (%s)'
---
-- [Local function] Sets the title of the Textadept window to the buffer's
-- filename.
-- @param buffer The currently focused buffer.
local function set_title(buffer)
local buffer = buffer
local filename = buffer.filename or buffer._type or locale.UNTITLED
local d = buffer.dirty and '*' or '-'
textadept.title =
string.format(title_text, filename:match('[^/\\]+$'), d, filename)
end
add_handler('save_point_reached',
function() -- changes Textadept title to show 'clean' buffer
buffer.dirty = false
set_title(buffer)
end)
add_handler('save_point_left',
function() -- changes Textadept title to show 'dirty' buffer
buffer.dirty = true
set_title(buffer)
end)
add_handler('uri_dropped',
function(utf8_uris)
local lfs = require 'lfs'
for utf8_uri in utf8_uris:gmatch('[^\r\n\f]+') do
if utf8_uri:find('^file://') then
utf8_uri = utf8_uri:match('^file://([^\r\n\f]+)')
utf8_uri = utf8_uri:gsub('%%(%x%x)',
function(hex) return string.char(tonumber(hex, 16)) end)
if WIN32 then utf8_uri = utf8_uri:sub(2, -1) end -- ignore leading '/'
local uri = textadept.iconv(utf8_uri, _CHARSET, 'UTF-8')
if lfs.attributes(uri).mode ~= 'directory' then
textadept.io.open(utf8_uri)
end
end
end
end)
local EOLs = {
locale.STATUS_CRLF,
locale.STATUS_CR,
locale.STATUS_LF
}
add_handler('update_ui',
function() -- sets docstatusbar text
local buffer = buffer
local pos = buffer.current_pos
local line, max = buffer:line_from_position(pos) + 1, buffer.line_count
local col = buffer.column[pos] + 1
local lexer = buffer:get_lexer_language()
local eol = EOLs[buffer.eol_mode + 1]
local tabs = (buffer.use_tabs and locale.STATUS_TABS or
locale.STATUS_SPACES)..buffer.indent
local enc = buffer.encoding or ''
textadept.docstatusbar_text =
locale.DOCSTATUSBAR_TEXT:format(line, max, col, lexer, eol, tabs, enc)
end)
add_handler('margin_click',
function(margin, modifiers, position) -- toggles folding
local buffer = buffer
local line = buffer:line_from_position(position)
buffer:toggle_fold(line)
end)
add_handler('buffer_new',
function() -- set additional buffer functions
local buffer = buffer
buffer.reload = textadept.io.reload
buffer.set_encoding = textadept.io.set_encoding
buffer.save = textadept.io.save
buffer.save_as = textadept.io.save_as
buffer.close = textadept.io.close
buffer.encoding = 'UTF-8'
set_title(buffer)
end)
add_handler('buffer_switch',
function() -- updates titlebar and statusbar
set_title(buffer)
update_ui()
end)
add_handler('view_switch',
function() -- updates titlebar and statusbar
set_title(buffer)
update_ui()
end)
add_handler('quit',
function() -- prompts for confirmation if any buffers are dirty; saves session
local any = false
local list = {}
for _, buffer in ipairs(textadept.buffers) do
if buffer.dirty then
list[#list + 1] = buffer.filename or buffer._type or locale.UNTITLED
any = true
end
end
if any then
if cocoa_dialog('yesno-msgbox', {
title = locale.EVENTS_QUIT_TITLE,
text = locale.EVENTS_QUIT_TEXT,
['informative-text'] =
string.format(locale.EVENTS_QUIT_MSG, table.concat(list, '\n')),
['no-newline'] = true
}) ~= '2' then return false end
end
textadept.io.save_session()
return true
end)
if MAC then
function appleevent_odoc(uri)
return handle('uri_dropped', 'file://'..uri)
end
end
---
-- Default error handler.
-- Prints the errors to an error buffer.
-- @param ... Error strings.
function error(...) textadept._print(locale.ERROR_BUFFER, ...) end
|