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
|
-- Copyright 2007-2009 Mitchell mitchell<att>caladbolg.net. See LICENSE.
local textadept = _G.textadept
package.path = _HOME..'/core/?.lua;'..package.path
if not WIN32 then
package.cpath = _HOME..'/core/?.so;'..package.cpath
else
package.cpath = _HOME..'/core/?.dll;'..package.cpath
end
_THEME = 'light'
local user_dir = os.getenv(not WIN32 and 'HOME' or 'USERPROFILE')
if user_dir then
local f = io.open(user_dir..'/.ta_theme')
if f then
theme = f:read('*line'):match('[^\r\n]+')
f:close()
if theme and #theme > 0 then _THEME = theme end
end
end
require 'iface'
require 'locale'
require 'events'
require 'file_io'
if not MAC then
require 'lua_dialog'
end
rawset = nil -- do not allow modifications which could compromise stability
---
-- Checks if the buffer being indexed is the currently focused buffer.
-- This is necessary because any buffer actions are performed in the focused
-- views' buffer, which may not be the buffer being indexed. Throws an error
-- if the check fails.
-- @param buffer The buffer in question.
function textadept.check_focused_buffer(buffer)
local locale = textadept.locale
if type(buffer) ~= 'table' or not buffer.doc_pointer then
error(locale.ERR_BUFFER_EXPECTED, 2)
elseif textadept.focused_doc_pointer ~= buffer.doc_pointer then
error(locale.ERR_BUFFER_NOT_FOCUSED, 2)
end
end
---
-- Helper function for printing messages to buffers.
-- Splits the view and opens a new buffer for printing messages. If the message
-- buffer is already open and a view is currently showing it, the message is
-- printed to that view. Otherwise the view is split, goes to the open message
-- buffer, and prints to it.
-- @param buffer_type String type of message buffer.
-- @param ... Message strings.
-- @usage textadept._print(textadept.locale.ERROR_BUFFER, error_message)
-- @usage textadept._print(textadept.locale.MESSAGE_BUFFER, message)
function textadept._print(buffer_type, ...)
local function safe_print(...)
local message = table.concat({...}, '\t')
local message_buffer, message_buffer_index
local message_view, message_view_index
for index, buffer in ipairs(textadept.buffers) do
if buffer._type == buffer_type then
message_buffer, message_buffer_index = buffer, index
for jndex, view in ipairs(textadept.views) do
if view.doc_pointer == message_buffer.doc_pointer then
message_view, message_view_index = view, jndex
break
end
end
break
end
end
if not message_view then
local _, message_view = view:split(false) -- horizontal split
if not message_buffer then
message_buffer = textadept.new_buffer()
message_buffer._type = buffer_type
else
message_view:goto_buffer(message_buffer_index, true)
end
else
textadept.goto_view(message_view_index, true)
end
message_buffer:append_text(message..'\n')
message_buffer:set_save_point()
end
pcall(safe_print, ...) -- prevent endless loops if this errors
end
---
-- Prints messages to the Textadept message buffer.
-- Opens a new buffer (if one hasn't already been opened) for printing messages.
-- @param ... Message strings.
function textadept.print(...)
textadept._print(textadept.locale.MESSAGE_BUFFER, ...)
end
---
-- Displays a CocoaDialog of a specified type with given arguments returning
-- the result.
-- @param kind The CocoaDialog type.
-- @param opts A table of key, value arguments. Each key is a --key switch with
-- a "value" value. If value is nil, it is omitted and just the switch is
-- used.
-- @return string CocoaDialog result.
function cocoa_dialog(kind, opts)
local args = { kind }
for k, v in pairs(opts) do
args[#args + 1] = '--'..k
if k == 'items' and kind:find('dropdown') then
if not MAC then
for item in v:gmatch('"(.-)"%s+') do args[#args + 1] = item end
else
args[#args + 1] = v
end
elseif type(v) == 'string' then
args[#args + 1] = not MAC and v or '"'..v..'"'
end
end
if not MAC then
return lua_dialog.run(args)
else
local cocoa_dialog = '/CocoaDialog.app/Contents/MacOS/CocoaDialog '
local p = io.popen(_HOME..cocoa_dialog..table.concat(args, ' '))
local out = p:read('*all')
p:close()
return out
end
end
|
