annotate editor.luan @ 35:c5b57654147b

minor
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 14 Apr 2025 19:07:12 -0600
parents 8535209b61ff
children 0a8865de3d53
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
3
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
3 local ipairs = Luan.ipairs or error()
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
4 local range = Luan.range or error()
15
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
5 local stringify = Luan.stringify or error()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
6 local String = require "luan:String.luan"
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
7 local sub_string = String.sub or error()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
8 local replace = String.replace or error()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
9 local starts_with = String.starts_with or error()
17
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
10 local to_number = String.to_number or error()
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
11 local find = String.find or error()
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
12 local regex = String.regex or error()
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
13 local regex_quote = String.regex_quote or error()
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
14 local regex_quote_replacement = String.regex_quote_replacement or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 local print = Io.print or error()
3
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
17 local new_file = Io.schemes.file or error()
7
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
18 local Math = require "luan:Math.luan"
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
19 local min = Math.min or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 local Swing = require "luan:swing/Swing.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 local new_frame = require("luan:swing/Frame.luan").new or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22 local new_label = require("luan:swing/Label.luan").new or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 local new_text_area = require("luan:swing/Text_area.luan").new or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 local new_scroll_pane = require("luan:swing/Scroll_pane.luan").new or error()
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
25 local new_text_area_line_numbers = require("luan:swing/Text_area_line_numbers.luan").new or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 local new_menu_bar = require("luan:swing/Menu_bar.luan").new or error()
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
27 local Menu = require "luan:swing/Menu.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
28 local new_menu = Menu.new or error()
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
29 local separator = Menu.separator or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 local new_menu_item = require("luan:swing/Menu_item.luan").new or error()
2
f38f6e903369 word wrap in menu
Franklin Schmidt <fschmidt@gmail.com>
parents: 1
diff changeset
31 local new_check_box_menu_item = require("luan:swing/Check_box_menu_item.luan").new or error()
12
Franklin Schmidt <fschmidt@gmail.com>
parents: 11
diff changeset
32 local int_to_color = require("luan:swing/Color.luan").int_to_color or error()
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
33 local Border = require "luan:swing/Border.luan"
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
34 local create_empty_border = Border.create_empty_border or error()
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
35 local create_line_border = Border.create_line_border or error()
26
Franklin Schmidt <fschmidt@gmail.com>
parents: 25
diff changeset
36 local no_border = Border.no_border or error()
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
37 local Layout = require "luan:swing/Layout.luan"
25
Franklin Schmidt <fschmidt@gmail.com>
parents: 24
diff changeset
38 local new_mig_layout = Layout.new_mig_layout or error()
16
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
39 local Option_pane = require "luan:swing/Option_pane.luan"
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
40 local show_message_dialog = Option_pane.show_message_dialog or error()
17
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
41 local show_input_dialog = Option_pane.show_input_dialog or error()
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
42 local new_dialog = require("luan:swing/Dialog.luan").new or error()
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
43 local new_panel = require("luan:swing/Component.luan").new_panel or error()
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
44 local new_button = require("luan:swing/Button.luan").new or error()
31
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
45 local new_check_box = require("luan:swing/Check_box.luan").new or error()
25
Franklin Schmidt <fschmidt@gmail.com>
parents: 24
diff changeset
46 local new_text_field = require("luan:swing/Text_field.luan").new or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
47 local Logging = require "luan:logging/Logging.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
48 local logger = Logging.logger "editor"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
49
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
50
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
51 local new_window
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
52
20
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
53 local function action_listener(fn)
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
54 return function(_)
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
55 fn()
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
56 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
57 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
58
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
59 local function add_menu_bar(window)
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
60 local document = window.text_area.document
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
61 local revert = new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
62 text = "Revert"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
63 enabled = window.has_file
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
64 action_listener = action_listener(window.revert)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
65 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
66 local undo = new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
67 text = "Undo"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
68 accelerator = "meta Z"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
69 action_listener = action_listener(document.undo)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
70 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
71 local redo = new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
72 text = "Redo"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
73 accelerator = "meta shift Z"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
74 action_listener = action_listener(document.redo)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
75 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
76 local function update_undo_redo()
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
77 undo.set_enabled(document.can_undo())
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
78 redo.set_enabled(document.can_redo())
4
3d6414265959 add save
Franklin Schmidt <fschmidt@gmail.com>
parents: 3
diff changeset
79 end
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
80 window.update_undo_redo = update_undo_redo -- dont gc
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
81 update_undo_redo()
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
82 document.add_undo_listener(update_undo_redo)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
83
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
84 local find_menu_item = new_check_box_menu_item{
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
85 text = "Find and Replace"
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
86 accelerator = "meta F"
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
87 action_listener = function(event)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
88 window.show_find_panel(event.source.state)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
89 end
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
90 }
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
91 window.find_menu_item = find_menu_item
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
92
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
93 local menu_bar = new_menu_bar{
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
94 menus = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
95 new_menu{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
96 text = "File"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
97 menu_items = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
98 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
99 text = "New File"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
100 accelerator = "meta N"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
101 action_listener = function(_)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
102 new_window()
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
103 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
104 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
105 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
106 text = "Open..."
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
107 accelerator = "meta O"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
108 action_listener = action_listener(window.open)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
109 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
110 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
111 text = "Save"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
112 accelerator = "meta S"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
113 action_listener = function(_)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
114 if window.save() then
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
115 revert.set_enabled(true)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
116 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
117 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
118 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
119 revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
120 }
19
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
121 }
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
122 new_menu{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
123 text = "Edit"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
124 menu_items = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
125 undo
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
126 redo
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
127 separator
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
128 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
129 text = "Cut"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
130 accelerator = "meta X"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
131 action_listener = action_listener(window.text_area.cut)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
132 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
133 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
134 text = "Copy"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
135 accelerator = "meta C"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
136 action_listener = action_listener(window.text_area.copy)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
137 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
138 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
139 text = "Paste"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
140 accelerator = "meta V"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
141 action_listener = action_listener(window.text_area.paste)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
142 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
143 separator
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
144 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
145 text = "Indent"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
146 accelerator = "meta CLOSE_BRACKET"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
147 action_listener = action_listener(window.indent)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
148 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
149 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
150 text = "Unindent"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
151 accelerator = "meta OPEN_BRACKET"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
152 action_listener = action_listener(window.unindent)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
153 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
154 separator
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
155 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
156 text = "Select All"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
157 accelerator = "meta A"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
158 action_listener = action_listener(window.text_area.select_all)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
159 }
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
160 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
161 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
162 new_menu{
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
163 text = "Find"
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
164 menu_items = {
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
165 find_menu_item
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
166 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
167 text = "Find Case Insensitive"
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
168 action_listener = window.find_case_insensitive
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
169 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
170 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
171 text = "Convert Leading Tabs to Spaces"
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
172 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
173 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
174 text = "Convert Leading Spaces to Tabs"
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
175 }
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
176 }
20
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
177 }
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
178 new_menu{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
179 text = "View"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
180 menu_items = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
181 new_check_box_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
182 text = "Word Wrap"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
183 state = window.text_area.line_wrap
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
184 action_listener = function(event)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
185 window.text_area.line_wrap = event.source.state
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
186 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
187 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
188 new_check_box_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
189 text = "Show Whitespace"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
190 action_listener = function(event)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
191 window.text_area.show_whitespace(event.source.state)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
192 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
193 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
194 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
195 text = "Show Cursor Column"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
196 action_listener = function(_)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
197 show_message_dialog( window.frame, "Cursor Column: "..window.cursor_column() )
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
198 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
199 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
200 new_menu_item{
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
201 text = "Goto Line"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
202 accelerator = "meta G"
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
203 action_listener = function(_)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
204 local input = show_input_dialog( window.frame, "Goto line" )
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
205 local line = input and to_number(input)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
206 if line ~= nil then
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
207 window.goto(line)
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
208 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
209 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
210 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
211 }
20
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
212 }
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
213 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 20
diff changeset
214 }
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
215 window.frame.set_menu_bar(menu_bar)
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
216 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
217
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
218 local function get_matches(text,s)
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
219 local r = regex(s)
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
220 local matches = {}
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
221 local i = 0
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
222 while(true) do
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
223 local j1, j2 = r.find(text,i)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
224 if j1 == nil then
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
225 break
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
226 end
35
Franklin Schmidt <fschmidt@gmail.com>
parents: 34
diff changeset
227 j2 = j2 + 1
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
228 matches[#matches+1] = { start=j1, end_=j2 }
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
229 i = j2
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
230 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
231 return matches
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
232 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
233
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
234 local function make_find_panel(window)
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
235 local text_area = window.text_area
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
236 local find_field, replace_field, regex_check_box, output
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
237 local function find_match(event)
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
238 --logger.info("action "..event.action)
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
239 local s = find_field.text
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
240 if #s == 0 then
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
241 output.text = ""
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
242 return
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
243 end
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
244 if not regex_check_box.is_selected then
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
245 s = regex_quote(s)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
246 end
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
247 local matches
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
248 try
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
249 matches = get_matches( text_area.text, s )
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
250 catch e
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
251 output.text = "Regex error: "..e.get_message()
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
252 return
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
253 end
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
254 local n_matches = #matches
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
255 if n_matches == 0 then
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
256 output.text = "0 matches"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
257 return
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
258 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
259 local action = event.action
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
260 if action == "next" then
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
261 local _, pos = text_area.get_selection()
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
262 for i, match in ipairs(matches) do
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
263 if match.start >= pos then
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
264 text_area.set_selection( match.start, match.end_ )
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
265 output.text = i.." of "..n_matches.." matches"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
266 return
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
267 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
268 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
269 local match = matches[1]
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
270 text_area.set_selection( match.start, match.end_ )
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
271 output.text = "1 of "..n_matches.." matches; wrapped past end"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
272 elseif action == "previous" then
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
273 local pos = text_area.get_selection()
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
274 for i in range(n_matches,1,-1) do
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
275 local match = matches[i]
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
276 if match.end_ <= pos then
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
277 text_area.set_selection( match.start, match.end_ )
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
278 output.text = i.." of "..n_matches.." matches"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
279 return
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
280 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
281 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
282 local match = matches[n_matches]
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
283 text_area.set_selection( match.start, match.end_ )
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
284 output.text = n_matches.." of "..n_matches.." matches; wrapped past end"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
285 else
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
286 error(action)
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
287 end
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
288 end
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
289 local function replace_match(_)
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
290 local find = find_field.text
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
291 if #find == 0 then
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
292 output.text = ""
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
293 return
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
294 end
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
295 local replace = replace_field.text
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
296 if not regex_check_box.is_selected then
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
297 find = regex_quote(find)
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
298 replace = regex_quote_replacement(replace)
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
299 end
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
300 local r
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
301 try
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
302 r = regex(find)
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
303 catch e
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
304 output.text = "Regex error: "..e.get_message()
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
305 return
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
306 end
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
307 local selection = text_area.selected_text
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
308 local new, n = r.gsub(selection,replace)
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
309 if n > 0 then
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
310 text_area.selected_text = new
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
311 end
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
312 output.text = n.." replacements"
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
313 end
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
314 find_field = new_text_field{
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
315 constraints = "growx"
30
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
316 show_whitespace = true
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
317 action = "next"
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
318 action_listener = find_match
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
319 }
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
320 replace_field = new_text_field{
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
321 constraints = "growx"
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
322 show_whitespace = true
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
323 action_listener = replace_match
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
324 }
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
325 regex_check_box = new_check_box{
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
326 text = "Use Regex"
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
327 }
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
328 output = new_label{
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
329 constraints = "span"
28
bdb8754f1211 find work
Franklin Schmidt <fschmidt@gmail.com>
parents: 27
diff changeset
330 }
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
331 local find_panel = new_panel{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
332 constraints = "growy 0,growx"
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
333 layout = new_mig_layout("","[][grow][grow 0]")
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
334 visible = false
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
335 children = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
336 new_label{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
337 constraints = "right"
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
338 text = "Find:"
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
339 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
340 find_field
30
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
341 new_button{
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
342 constraints = "grow"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
343 text = "Find Next"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
344 action = "next"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
345 action_listener = find_match
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
346 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
347 new_button{
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
348 constraints = "grow,wrap"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
349 text = "Find Previous"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
350 action = "previous"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
351 action_listener = find_match
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
352 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
353 new_label{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
354 constraints = "right"
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
355 text = "Replace:"
25
Franklin Schmidt <fschmidt@gmail.com>
parents: 24
diff changeset
356 }
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
357 replace_field
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
358 new_button{
30
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
359 constraints = "grow"
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
360 text = "Replace"
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
361 tool_tip_text = "Replace matches in selected text"
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
362 action_listener = replace_match
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
363 }
30
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
364 new_button{
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
365 constraints = "grow,wrap"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
366 text = "Replace All"
Franklin Schmidt <fschmidt@gmail.com>
parents: 29
diff changeset
367 }
31
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
368 new_panel{
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
369 constraints = "span,wrap"
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
370 layout = new_mig_layout("insets 0,gap 16px")
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
371 children = {
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
372 regex_check_box
31
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
373 new_button{
32
Franklin Schmidt <fschmidt@gmail.com>
parents: 31
diff changeset
374 text = "Learn About Regular Expressions"
31
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
375 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
376 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 30
diff changeset
377 }
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
378 output
25
Franklin Schmidt <fschmidt@gmail.com>
parents: 24
diff changeset
379 }
22
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
380 }
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
381 function window.show_find_panel(visible)
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
382 find_panel.visible = visible
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
383 if visible then
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
384 find_field.request_focus_in_window()
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
385 end
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
386 end
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
387 function window.find_case_insensitive(_)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
388 find_panel.visible = true
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
389 window.find_menu_item.is_selected = true
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
390 regex_check_box.is_selected = true
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
391 find_field.text = "(?i)\Q\E"
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
392 find_field.set_selection(7)
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
393 find_field.request_focus_in_window()
34
8535209b61ff replace
Franklin Schmidt <fschmidt@gmail.com>
parents: 33
diff changeset
394 output.text = ""
33
e19ac0784287 find regex
Franklin Schmidt <fschmidt@gmail.com>
parents: 32
diff changeset
395 end
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
396 return find_panel
18
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
397 end
fd6d0162e924 start find
Franklin Schmidt <fschmidt@gmail.com>
parents: 17
diff changeset
398
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
399 local n_windows = 0
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
400 local documents = {}
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
401
1
9aa38deb5883 add open
Franklin Schmidt <fschmidt@gmail.com>
parents: 0
diff changeset
402 function new_window(file)
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
403 local window = {}
7
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
404 window.has_file = file~=nil and file.is_file()
24
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
405 local text_area = new_text_area{
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
406 wrap_style_word = true
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
407 line_wrap = true
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
408 tab_size = 4
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
409 font = { family="Monospaced", size=13 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
410 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
411 window.text_area = text_area
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
412 local title = file and file.canonical().to_string() or "new"
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
413 if file ~= nil then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
414 local document = documents[title]
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
415 if document == nil then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
416 documents[title] = text_area.document
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
417 else
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
418 text_area.document = document
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
419 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
420 if file.is_file() then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
421 text_area.text = file.read_text()
20
Franklin Schmidt <fschmidt@gmail.com>
parents: 19
diff changeset
422 text_area.document.clear_unedited()
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
423 end
1
9aa38deb5883 add open
Franklin Schmidt <fschmidt@gmail.com>
parents: 0
diff changeset
424 end
24
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
425 text_area.set_selection(0)
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
426 local find_panel = make_find_panel(window)
24
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
427 local frame = new_frame{
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
428 preferred_size = { width=700, height=700 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
429 content_pane = new_panel{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
430 layout = new_mig_layout("insets 0,wrap,fill,hidemode 3","","[][grow 0]")
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
431 children = {
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
432 new_scroll_pane{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
433 constraints = "grow"
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
434 view = text_area
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
435 row_header_view = new_text_area_line_numbers{
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
436 text_area = text_area
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
437 foreground_color = int_to_color(0x888888)
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
438 border = create_empty_border(0,8,0,8)
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
439 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
440 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
441 find_panel
24
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
442 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
443 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
444 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
445 window.frame = frame
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
446 frame.add_close_listener(function()
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
447 n_windows = n_windows - 1
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
448 if n_windows == 0 then
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
449 Luan.exit()
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
450 end
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
451 end)
10
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
452 local function set_title()
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
453 local s = title
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
454 if not text_area.document.is_unedited() then
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
455 s = s.." *"
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
456 end
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
457 frame.title = s
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
458 end
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
459 set_title()
24
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
460 window.set_title = set_title -- dont gc
10
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
461 text_area.document.add_undo_listener(set_title)
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
462 function window.open()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
463 local file_chooser = frame.file_chooser_load()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
464 if file ~= nil then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
465 file_chooser.directory = file.parent()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
466 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
467 file_chooser.visible = true
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
468 local new_file = file_chooser.file
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
469 if new_file ~= nil then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
470 new_window(new_file)
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
471 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
472 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
473 function window.save()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
474 if file == nil then
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
475 local file_chooser = frame.file_chooser_save()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
476 file_chooser.visible = true
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
477 file = file_chooser.file
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
478 if file == nil then
7
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
479 return false
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
480 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
481 title = file.canonical().to_string()
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
482 frame.title = title
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
483 documents[title] = text_area.document
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
484 end
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
485 file.write_text(text_area.text)
10
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
486 text_area.document.set_unedited()
7
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
487 return true
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
488 end
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
489 function window.revert()
15
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
490 local selection = text_area.get_selection()
7
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
491 local text = file.read_text()
ce4233ff5ce8 add revert
Franklin Schmidt <fschmidt@gmail.com>
parents: 6
diff changeset
492 text_area.text = text
15
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
493 text_area.set_selection(min(selection,#text+1))
10
a83c8842ca3b add edited
Franklin Schmidt <fschmidt@gmail.com>
parents: 9
diff changeset
494 text_area.document.set_unedited()
5
57b4c281a03e shared documents
Franklin Schmidt <fschmidt@gmail.com>
parents: 4
diff changeset
495 end
15
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
496 local function selection_lines()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
497 local start_seletion, end_selection = text_area.get_selection()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
498 local end_ = end_selection == start_seletion and end_selection or end_selection - 1
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
499 local start_line = text_area.get_line_from_position(start_seletion)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
500 local end_line = text_area.get_line_from_position(end_)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
501 local start_pos = text_area.get_line_start_position(start_line)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
502 local end_pos = text_area.get_line_end_position(end_line)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
503 local text = text_area.text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
504 text = sub_string(text,start_pos,end_pos-2)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
505 return {
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
506 text = text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
507 start_pos = start_pos
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
508 length = #text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
509 lines = end_line - start_line + 1
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
510 start_seletion = start_seletion
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
511 end_selection = end_selection
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
512 }
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
513 end
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
514 function window.indent()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
515 local r = selection_lines()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
516 local text = r.text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
517 local start_pos = r.start_pos
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
518 text = "\t"..replace(text,"\n","\n\t")
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
519 text_area.replace(start_pos,r.length,text)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
520 --logger.info(stringify{text_area.get_selection()})
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
521 text_area.set_selection( r.start_seletion+1, r.end_selection+r.lines )
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
522 end
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
523 function window.unindent()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
524 local r = selection_lines()
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
525 local text = r.text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
526 text = "\n"..text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
527 local start_seletion = r.start_seletion
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
528 if starts_with(text,"\n\t") then
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
529 start_seletion = start_seletion - 1
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
530 end
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
531 local len1 = #text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
532 text = replace(text,"\n\t","\n")
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
533 local len2 = #text
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
534 local end_selection = r.end_selection - (len1 - len2)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
535 text = sub_string(text,2)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
536 text_area.replace(r.start_pos,r.length,text)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
537 text_area.set_selection(start_seletion,end_selection)
93e46dadb694 add indent
Franklin Schmidt <fschmidt@gmail.com>
parents: 14
diff changeset
538 end
16
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
539 function window.cursor_column()
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
540 local cursor_pos = text_area.get_selection()
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
541 local line = text_area.get_line_from_position(cursor_pos)
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
542 local start_line_pos = text_area.get_line_start_position(line)
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
543 return cursor_pos - start_line_pos + 1
90abee9e07d5 add show_column
Franklin Schmidt <fschmidt@gmail.com>
parents: 15
diff changeset
544 end
17
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
545 function window.goto(line)
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
546 local pos = text_area.get_line_start_position(line)
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
547 text_area.set_selection(pos)
273aebbcf90b add goto
Franklin Schmidt <fschmidt@gmail.com>
parents: 16
diff changeset
548 end
29
Franklin Schmidt <fschmidt@gmail.com>
parents: 28
diff changeset
549 add_menu_bar(window)
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
550 frame.pack()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
551 frame.visible = true
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
552 text_area.request_focus_in_window()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
553 n_windows = n_windows + 1
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
554 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
555
1
9aa38deb5883 add open
Franklin Schmidt <fschmidt@gmail.com>
parents: 0
diff changeset
556 Swing.run(function()
3
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
557 local args = Luan.arg
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
558 if #args == 0 then
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
559 new_window()
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
560 else
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
561 for _, arg in ipairs(args) do
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
562 local file = new_file(arg)
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
563 new_window(file)
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
564 end
a79a840691b1 handle args
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
565 end
1
9aa38deb5883 add open
Franklin Schmidt <fschmidt@gmail.com>
parents: 0
diff changeset
566 end)