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
|
-- Copyright 2007-2010 Mitchell mitchell<att>caladbolg.net. See LICENSE.
local textadept = _G.textadept
local locale = _G.locale
local events = _G.events
---
-- Extends Lua's io package to provide file input/output routines for Textadept.
module('io', package.seeall)
-- Markdown:
-- ## Overview
--
-- Textadept represents all characters and strings internally as UTF-8. You will
-- not notice any difference for working with files containing ASCII text since
-- UTF-8 is compatible with it. Problems may arise for files with more exotic
-- encodings that may not be detected properly, if at all. When opening a file,
-- the list of encodings tried before throwing a `conversion failed` error is in
-- `core/file_io.lua`'s [`try_encodings`](#try_encodings). Textadept respects the
-- detected encoding when saving the file.
--
-- New files are saved as UTF-8 by default.
--
-- ## Converting Filenames to and from UTF-8
--
-- If your filesystem does not use UTF-8 encoded filenames, conversions to and
-- from that encoding will be necessary. When opening and saving files through
-- dialogs, Textadept takes care of these conversions for you, but if you need
-- to do them manually, use [`textadept.iconv()`][textadept_iconv] along with
-- `_CHARSET`, your filesystem's detected encoding.
--
-- Example:
--
-- events.connect('file_opened',
-- function(utf8_filename)
-- local filename = textadept.iconv(utf8_filename, _CHARSET, 'UTF-8')
-- local f = io.open(filename, 'rb')
-- -- process file
-- f:close()
-- end)
--
-- [textadept_iconv]: ../modules/textadept.html#iconv
--
-- ## Events
--
-- The following is a list of all File I/O events generated in
-- `event_name(arguments)` format:
--
-- * **file\_opened** (filename) <br />
-- Called when a file has been opened in a new buffer.
-- - filename: the filename encoded in UTF-8.
-- * **file\_before\_save** (filename) <br />
-- Called right before a file is saved to disk.
-- - filename: the filename encoded in UTF-8.
-- * **file\_saved_as** (filename) <br />
-- Called when a file is saved under another filename.
-- - filename: the other filename encoded in UTF-8.
local lfs = require 'lfs'
---
-- List of recently opened files.
-- @class table
-- @name recent_files
recent_files = {}
---
-- List of byte-order marks (BOMs).
-- @class table
-- @name boms
boms = {
['UTF-16BE'] = string.char(254, 255),
['UTF-16LE'] = string.char(255, 254),
['UTF-32BE'] = string.char(0, 0, 254, 255),
['UTF-32LE'] = string.char(255, 254, 0, 0)
}
-- Attempt to detect the encoding of the given text.
-- @param text Text to determine encoding from.
-- @return encoding string for textadept.iconv() (unless 'binary', indicating a
-- binary file), byte-order mark (BOM) string or nil. If encoding string is
-- nil, no encoding has been detected.
local function detect_encoding(text)
local b1, b2, b3, b4 = string.byte(text, 1, 4)
if b1 == 239 and b2 == 187 and b3 == 191 then
return 'UTF-8', string.char(239, 187, 191)
elseif b1 == 254 and b2 == 255 then
return 'UTF-16BE', boms[encoding]
elseif b1 == 255 and b2 == 254 then
return 'UTF-16LE', boms[encoding]
elseif b1 == 0 and b2 == 0 and b3 == 254 and b4 == 255 then
return 'UTF-32BE', boms[encoding]
elseif b1 == 255 and b2 == 254 and b3 == 0 and b4 == 0 then
return 'UTF-32LE', boms[encoding]
else
local chunk = #text > 65536 and text:sub(1, 65536) or text
if chunk:find('\0') then return 'binary' end -- binary file
end
return nil
end
---
-- List of encodings to try to decode files as after UTF-8.
-- @class table
-- @name try_encodings
try_encodings = {
'UTF-8',
'ASCII',
'ISO-8859-1',
'MacRoman'
}
-- Opens a file or goes to its already open buffer.
-- @param utf8_filename The absolute path to the file to open. Must be UTF-8
-- encoded.
local function open_helper(utf8_filename)
if not utf8_filename then return end
utf8_filename = utf8_filename:gsub('^file://', '')
for index, buffer in ipairs(textadept.buffers) do
if utf8_filename == buffer.filename then
view:goto_buffer(index)
return
end
end
local text
local filename = textadept.iconv(utf8_filename, _CHARSET, 'UTF-8')
local f = io.open(filename, 'rb')
if f then
text = f:read('*all')
f:close()
if not text then return end -- filename exists, but can't read it
end
local buffer = textadept.new_buffer()
if text then
-- Tries to detect character encoding and convert text from it to UTF-8.
local encoding, encoding_bom = detect_encoding(text)
if encoding ~= 'binary' then
if encoding then
if encoding_bom then text = text:sub(#encoding_bom + 1, -1) end
text = textadept.iconv(text, 'UTF-8', encoding)
else
-- Try list of encodings.
for _, try_encoding in ipairs(try_encodings) do
local ret, conv = pcall(textadept.iconv, text, 'UTF-8', try_encoding)
if ret then
encoding = try_encoding
text = conv
break
end
end
if not encoding then error(locale.IO_ICONV_ERROR) end
end
else
encoding = nil
end
local c = textadept.constants
buffer.encoding, buffer.encoding_bom = encoding, encoding_bom
buffer.code_page = encoding and c.SC_CP_UTF8 or 0
-- Tries to set the buffer's EOL mode appropriately based on the file.
local s, e = text:find('\r\n?')
if s and e then
buffer.eol_mode = (s == e and c.SC_EOL_CR or c.SC_EOL_CRLF)
else
buffer.eol_mode = c.SC_EOL_LF
end
buffer:add_text(text, #text)
buffer:goto_pos(0)
buffer:empty_undo_buffer()
buffer.modification_time = lfs.attributes(filename).modification
end
buffer.filename = utf8_filename
buffer:set_save_point()
events.emit('file_opened', utf8_filename)
for index, file in ipairs(recent_files) do
if file == utf8_filename then
table.remove(recent_files, index)
break
end
end
recent_files[#recent_files + 1] = utf8_filename
end
---
-- Opens a list of files.
-- @param utf8_filenames A '\n' separated list of filenames to open. If none
-- specified, the user is prompted to open files from a dialog. These paths
-- must be encoded in UTF-8.
-- @usage io.open_file(utf8_encoded_filename)
function open_file(utf8_filenames)
utf8_filenames =
utf8_filenames or
textadept.dialog('fileselect',
'--title', locale.IO_OPEN_TITLE,
'--select-multiple',
'--with-directory',
(buffer.filename or ''):match('.+[/\\]') or '')
for filename in utf8_filenames:gmatch('[^\n]+') do open_helper(filename) end
end
-- LuaDoc is in core/.buffer.lua.
local function reload(buffer)
textadept.check_focused_buffer(buffer)
if not buffer.filename then return end
local pos = buffer.current_pos
local first_visible_line = buffer.first_visible_line
local filename = textadept.iconv(buffer.filename, _CHARSET, 'UTF-8')
local f, err = io.open(filename, 'rb')
if not f then return end
local text = f:read('*all')
f:close()
local encoding, encoding_bom = buffer.encoding, buffer.encoding_bom
if encoding_bom then text = text:sub(#encoding_bom + 1, -1) end
if encoding then text = textadept.iconv(text, 'UTF-8', encoding) end
buffer:clear_all()
buffer:add_text(text, #text)
buffer:line_scroll(0, first_visible_line)
buffer:goto_pos(pos)
buffer:set_save_point()
buffer.modification_time = lfs.attributes(filename).modification
end
-- LuaDoc is in core/.buffer.lua.
local function set_encoding(buffer, encoding)
textadept.check_focused_buffer(buffer)
if not buffer.encoding then error('Cannot change binary file encoding') end
local iconv = textadept.iconv
local pos = buffer.current_pos
local first_visible_line = buffer.first_visible_line
local text = buffer:get_text(buffer.length)
text = iconv(text, buffer.encoding, 'UTF-8')
text = iconv(text, encoding, buffer.encoding)
text = iconv(text, 'UTF-8', encoding)
buffer:clear_all()
buffer:add_text(text, #text)
buffer:line_scroll(0, first_visible_line)
buffer:goto_pos(pos)
buffer.encoding, buffer.encoding_bom = encoding, boms[encoding]
end
-- LuaDoc is in core/.buffer.lua.
local function save(buffer)
textadept.check_focused_buffer(buffer)
if not buffer.filename then return buffer:save_as() end
events.emit('file_before_save', buffer.filename)
local text = buffer:get_text(buffer.length)
if buffer.encoding then
local bom = buffer.encoding_bom or ''
text = bom..textadept.iconv(text, buffer.encoding, 'UTF-8')
end
local filename = textadept.iconv(buffer.filename, _CHARSET, 'UTF-8')
local f, err = io.open(filename, 'wb')
if f then
f:write(text)
f:close()
buffer:set_save_point()
buffer.modification_time = lfs.attributes(filename).modification
else
error(err)
end
if buffer._type then buffer._type = nil end
end
-- LuaDoc is in core/.buffer.lua.
local function save_as(buffer, utf8_filename)
textadept.check_focused_buffer(buffer)
if not utf8_filename then
utf8_filename =
textadept.dialog('filesave',
'--title', locale.IO_SAVE_TITLE,
'--with-directory',
(buffer.filename or ''):match('.+[/\\]') or '',
'--with-file',
(buffer.filename or ''):match('[^/\\]+$') or '',
'--no-newline')
end
if #utf8_filename > 0 then
buffer.filename = utf8_filename
buffer:save()
events.emit('file_saved_as', utf8_filename)
end
end
---
-- Saves all dirty buffers to their respective files.
-- @usage io.save_all()
function save_all()
local current_buffer = buffer
local current_index
for index, buffer in ipairs(textadept.buffers) do
view:goto_buffer(index)
if buffer == current_buffer then current_index = index end
if buffer.filename and buffer.dirty then buffer:save() end
end
view:goto_buffer(current_index)
end
-- LuaDoc is in core/.buffer.lua.
local function close(buffer)
textadept.check_focused_buffer(buffer)
if buffer.dirty and
textadept.dialog('msgbox',
'--title', locale.IO_CLOSE_TITLE,
'--text', locale.IO_CLOSE_TEXT,
'--informative-text',
string.format('%s', (buffer.filename or
buffer._type or locale.UNTITLED)),
'--button1', 'gtk-cancel',
'--button2', locale.IO_CLOSE_BUTTON2,
'--no-newline') ~= '2' then
return false
end
buffer:delete()
return true
end
---
-- Closes all open buffers.
-- If any buffer is dirty, the user is prompted to continue. No buffers are
-- saved automatically. They must be saved manually.
-- @usage io.close_all()
-- @return true if user did not cancel.
function close_all()
while #textadept.buffers > 1 do
view:goto_buffer(#textadept.buffers)
if not buffer:close() then return false end
end
buffer:close() -- the last one
return true
end
-- Prompts the user to reload the current file if it has been modified outside
-- of Textadept.
local function update_modified_file()
if not buffer.filename then return end
local utf8_filename = buffer.filename
local filename = textadept.iconv(utf8_filename, _CHARSET, 'UTF-8')
local attributes = lfs.attributes(filename)
if not attributes then return end
if buffer.modification_time < attributes.modification then
if textadept.dialog('yesno-msgbox',
'--title', locale.IO_RELOAD_TITLE,
'--text', locale.IO_RELOAD_TEXT,
'--informative-text',
string.format(locale.IO_RELOAD_MSG, utf8_filename),
'--no-cancel',
'--no-newline') == '1' then
buffer:reload()
else
buffer.modification_time = attributes.modification
end
end
end
events.connect('buffer_after_switch', update_modified_file)
events.connect('view_after_switch', update_modified_file)
events.connect('buffer_new',
function() -- set additional buffer functions
local buffer = buffer
buffer.reload = reload
buffer.set_encoding = set_encoding
buffer.save = save
buffer.save_as = save_as
buffer.close = close
buffer.encoding = 'UTF-8'
end)
events.connect('file_opened',
function(utf8_filename) -- close initial 'Untitled' buffer
local b = textadept.buffers[1]
if #textadept.buffers == 2 and not (b.filename or b._type or b.dirty) then
view:goto_buffer(1, true)
buffer:close()
end
end)
|