2022-06-03 21:14:53 +00:00
-- text editor, particularly text drawing, horizontal wrap, vertical scrolling
2022-05-18 03:29:08 +00:00
Text = { }
2022-07-17 17:06:39 +00:00
-- draw a line starting from startpos to screen at y between State.left and State.right
2023-04-03 00:19:03 +00:00
-- return y for the next line, and position of start of final screen line drawn
2022-07-17 17:06:39 +00:00
function Text . draw ( State , line_index , y , startpos )
2023-04-02 03:03:43 +00:00
--? print('text.draw', line_index, y)
2022-07-17 14:58:51 +00:00
local line = State.lines [ line_index ]
2022-07-20 23:34:09 +00:00
local line_cache = State.line_cache [ line_index ]
2022-07-18 04:05:01 +00:00
line_cache.starty = y
line_cache.startpos = startpos
2022-05-20 00:29:14 +00:00
-- wrap long lines
2023-04-02 03:03:43 +00:00
local final_screen_line_starting_pos = startpos -- track value to return
2023-04-02 00:05:57 +00:00
Text.populate_screen_line_starting_pos ( State , line_index )
2023-11-18 19:30:57 +00:00
assert ( # line_cache.screen_line_starting_pos >= 1 , ' line cache missing screen line info ' )
2023-04-02 03:03:43 +00:00
for i = 1 , # line_cache.screen_line_starting_pos do
local pos = line_cache.screen_line_starting_pos [ i ]
2022-08-15 22:45:02 +00:00
if pos < startpos then
2022-07-20 13:53:58 +00:00
-- render nothing
else
2023-04-02 03:03:43 +00:00
final_screen_line_starting_pos = pos
2023-04-09 05:44:13 +00:00
local screen_line = Text.screen_line ( line , line_cache , i )
--? print('text.draw:', screen_line, 'at', line_index,pos, 'after', x,y)
local frag_len = utf8.len ( screen_line )
2023-07-31 15:56:20 +00:00
-- render any highlights
2022-07-12 23:08:24 +00:00
if State.selection1 . line then
2022-07-13 03:59:24 +00:00
local lo , hi = Text.clip_selection ( State , line_index , pos , pos + frag_len )
2023-04-02 03:03:43 +00:00
Text.draw_highlight ( State , line , State.left , y , pos , lo , hi )
2022-05-29 15:12:47 +00:00
end
2022-07-20 13:53:58 +00:00
if line_index == State.cursor1 . line then
2023-07-31 15:21:38 +00:00
-- render search highlight or cursor
2023-07-31 15:24:15 +00:00
if State.search_term then
2023-07-31 16:15:48 +00:00
local data = State.lines [ State.cursor1 . line ] . data
local cursor_offset = Text.offset ( data , State.cursor1 . pos )
if data : sub ( cursor_offset , cursor_offset +# State.search_term - 1 ) == State.search_term then
local save_selection = State.selection1
State.selection1 = { line = line_index , pos = State.cursor1 . pos + utf8.len ( State.search_term ) }
local lo , hi = Text.clip_selection ( State , line_index , pos , pos + frag_len )
Text.draw_highlight ( State , line , State.left , y , pos , lo , hi )
State.selection1 = save_selection
2023-07-31 15:24:15 +00:00
end
else
2023-07-31 15:29:11 +00:00
if pos <= State.cursor1 . pos and pos + frag_len > State.cursor1 . pos then
2024-01-12 13:23:06 +00:00
Text.draw_cursor ( State , State.left + Text.x ( State.font , screen_line , State.cursor1 . pos - pos + 1 ) , y )
2023-07-31 15:29:11 +00:00
elseif pos + frag_len == State.cursor1 . pos then
-- Show cursor at end of line.
-- This place also catches end of wrapping screen lines. That doesn't seem worth distinguishing.
-- It seems useful to see a cursor whether your eye is on the left or right margin.
2024-01-12 13:23:06 +00:00
Text.draw_cursor ( State , State.left + Text.x ( State.font , screen_line , State.cursor1 . pos - pos + 1 ) , y )
2022-06-03 05:53:34 +00:00
end
end
2022-05-20 00:29:14 +00:00
end
2023-07-31 15:56:20 +00:00
-- render fragment
App.color ( Text_color )
App.screen . print ( screen_line , State.left , y )
2023-04-02 03:03:43 +00:00
y = y + State.line_height
if y >= App.screen . height then
break
end
2022-05-20 00:29:14 +00:00
end
end
2023-04-03 00:19:03 +00:00
return y , final_screen_line_starting_pos
2023-04-02 03:03:43 +00:00
end
function Text . screen_line ( line , line_cache , i )
local pos = line_cache.screen_line_starting_pos [ i ]
local offset = Text.offset ( line.data , pos )
if i >= # line_cache.screen_line_starting_pos then
return line.data : sub ( offset )
2022-05-20 05:35:26 +00:00
end
2023-04-02 03:03:43 +00:00
local endpos = line_cache.screen_line_starting_pos [ i + 1 ] - 1
local end_offset = Text.offset ( line.data , endpos )
return line.data : sub ( offset , end_offset )
2022-05-18 03:29:08 +00:00
end
2022-05-29 15:12:47 +00:00
2022-07-12 23:08:24 +00:00
function Text . draw_cursor ( State , x , y )
2022-06-09 20:45:52 +00:00
-- blink every 0.5s
if math.floor ( Cursor_time * 2 ) % 2 == 0 then
2022-07-12 06:03:27 +00:00
App.color ( Cursor_color )
2022-07-12 23:08:24 +00:00
love.graphics . rectangle ( ' fill ' , x , y , 3 , State.line_height )
2022-06-09 20:45:52 +00:00
end
2022-07-12 23:08:24 +00:00
State.cursor_x = x
State.cursor_y = y + State.line_height
2022-05-20 12:40:42 +00:00
end
2022-08-15 23:07:32 +00:00
function Text . populate_screen_line_starting_pos ( State , line_index )
local line = State.lines [ line_index ]
if line.mode ~= ' text ' then return end
local line_cache = State.line_cache [ line_index ]
if line_cache.screen_line_starting_pos then
return
end
line_cache.screen_line_starting_pos = { 1 }
2023-04-02 03:03:43 +00:00
local x = 0
2022-08-15 23:07:32 +00:00
local pos = 1
2022-05-20 05:58:04 +00:00
-- try to wrap at word boundaries
for frag in line.data : gmatch ( ' %S*%s* ' ) do
2024-01-12 13:23:06 +00:00
local frag_width = State.font : getWidth ( frag )
2023-04-02 03:03:43 +00:00
--? print('-- frag:', frag, pos, x, frag_width, State.width)
while x + frag_width > State.width do
--? print('frag:', frag, pos, x, frag_width, State.width)
if x < 0.8 * State.width then
2022-07-20 14:02:45 +00:00
-- long word; chop it at some letter
-- We're not going to reimplement TeX here.
2024-01-12 13:23:06 +00:00
local bpos = Text.nearest_pos_less_than ( State.font , frag , State.width - x )
2023-11-25 03:19:29 +00:00
if x == 0 and bpos == 0 then
assert ( false , ( " Infinite loop while line-wrapping. Editor is %dpx wide; window is %dpx wide " ) : format ( State.width , App.screen . width ) )
end
2023-04-02 03:03:43 +00:00
pos = pos + bpos
2022-07-20 14:02:45 +00:00
local boffset = Text.offset ( frag , bpos + 1 ) -- byte _after_ bpos
frag = string.sub ( frag , boffset )
2023-04-02 03:03:43 +00:00
--? if bpos > 0 then
--? print('after chop:', frag)
--? end
2024-01-12 13:23:06 +00:00
frag_width = State.font : getWidth ( frag )
2022-05-20 05:58:04 +00:00
end
2023-04-02 03:03:43 +00:00
--? print('screen line:', pos)
table.insert ( line_cache.screen_line_starting_pos , pos )
x = 0 -- new screen line
2022-05-20 05:58:04 +00:00
end
2022-05-28 16:02:15 +00:00
x = x + frag_width
2023-04-02 03:03:43 +00:00
pos = pos + utf8.len ( frag )
2022-05-20 05:58:04 +00:00
end
end
2022-12-24 01:16:19 +00:00
function Text . text_input ( State , t )
2022-06-14 16:05:02 +00:00
if App.mouse_down ( 1 ) then return end
2023-11-25 23:20:55 +00:00
if App.any_modifier_down ( ) then
if App.key_down ( t ) then
-- The modifiers didn't change the key. Handle it in keychord_pressed.
return
else
-- Key mutated by the keyboard layout. Continue below.
end
end
2022-07-12 23:55:32 +00:00
local before = snapshot ( State , State.cursor1 . line )
2022-07-12 23:33:26 +00:00
--? print(State.screen_top1.line, State.screen_top1.pos, State.cursor1.line, State.cursor1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-07-12 23:39:42 +00:00
Text.insert_at_cursor ( State , t )
2022-08-17 16:40:44 +00:00
if State.cursor_y > App.screen . height - State.line_height then
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , State.cursor1 . line )
2022-07-13 01:29:00 +00:00
Text.snap_cursor_to_bottom_of_screen ( State , State.left , State.right )
2022-06-10 18:29:01 +00:00
end
2022-07-12 23:55:32 +00:00
record_undo_event ( State , { before = before , after = snapshot ( State , State.cursor1 . line ) } )
2022-05-19 03:22:57 +00:00
end
2022-07-12 23:39:42 +00:00
function Text . insert_at_cursor ( State , t )
2023-11-18 19:30:57 +00:00
assert ( State.lines [ State.cursor1 . line ] . mode == ' text ' , ' line is not text ' )
2022-07-12 23:39:42 +00:00
local byte_offset = Text.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos )
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_offset - 1 ) .. t .. string.sub ( State.lines [ State.cursor1 . line ] . data , byte_offset )
2022-07-17 15:18:48 +00:00
Text.clear_screen_line_cache ( State , State.cursor1 . line )
2022-07-12 23:39:42 +00:00
State.cursor1 . pos = State.cursor1 . pos + 1
2022-05-18 05:36:10 +00:00
end
2022-12-24 01:16:19 +00:00
-- Don't handle any keys here that would trigger text_input above.
function Text . keychord_press ( State , chord )
2022-07-12 23:23:28 +00:00
--? print('chord', chord, State.selection1.line, State.selection1.pos)
2022-05-29 05:27:47 +00:00
--== shortcuts that mutate text
2022-05-18 05:36:10 +00:00
if chord == ' return ' then
2022-07-12 23:23:28 +00:00
local before_line = State.cursor1 . line
2022-07-12 23:55:32 +00:00
local before = snapshot ( State , before_line )
2022-07-12 23:39:42 +00:00
Text.insert_return ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-08-17 16:40:44 +00:00
if State.cursor_y > App.screen . height - State.line_height then
2022-07-13 01:29:00 +00:00
Text.snap_cursor_to_bottom_of_screen ( State , State.left , State.right )
2022-06-10 18:21:41 +00:00
end
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-07-12 23:55:32 +00:00
record_undo_event ( State , { before = before , after = snapshot ( State , before_line , State.cursor1 . line ) } )
2022-05-19 03:22:57 +00:00
elseif chord == ' tab ' then
2022-07-12 23:55:32 +00:00
local before = snapshot ( State , State.cursor1 . line )
2022-07-12 23:23:28 +00:00
--? print(State.screen_top1.line, State.screen_top1.pos, State.cursor1.line, State.cursor1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-07-12 23:39:42 +00:00
Text.insert_at_cursor ( State , ' \t ' )
2022-08-17 16:40:44 +00:00
if State.cursor_y > App.screen . height - State.line_height then
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , State.cursor1 . line )
2022-07-13 01:29:00 +00:00
Text.snap_cursor_to_bottom_of_screen ( State , State.left , State.right )
2022-07-12 23:23:28 +00:00
--? print('=>', State.screen_top1.line, State.screen_top1.pos, State.cursor1.line, State.cursor1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-06-10 18:29:01 +00:00
end
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-07-12 23:55:32 +00:00
record_undo_event ( State , { before = before , after = snapshot ( State , State.cursor1 . line ) } )
2022-05-18 05:36:10 +00:00
elseif chord == ' backspace ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line then
2022-07-13 01:29:00 +00:00
Text.delete_selection ( State , State.left , State.right )
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-05-29 15:12:47 +00:00
return
end
2022-06-03 00:46:30 +00:00
local before
2022-07-12 23:23:28 +00:00
if State.cursor1 . pos > 1 then
2022-07-12 23:55:32 +00:00
before = snapshot ( State , State.cursor1 . line )
2022-07-12 23:23:28 +00:00
local byte_start = utf8.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos - 1 )
local byte_end = utf8.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos )
2022-05-18 05:36:10 +00:00
if byte_start then
if byte_end then
2022-07-12 23:23:28 +00:00
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_start - 1 ) .. string.sub ( State.lines [ State.cursor1 . line ] . data , byte_end )
2022-05-18 05:36:10 +00:00
else
2022-07-12 23:23:28 +00:00
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_start - 1 )
2022-05-18 05:36:10 +00:00
end
2022-07-12 23:23:28 +00:00
State.cursor1 . pos = State.cursor1 . pos - 1
2022-05-18 05:36:10 +00:00
end
2022-07-12 23:23:28 +00:00
elseif State.cursor1 . line > 1 then
2022-07-12 23:55:32 +00:00
before = snapshot ( State , State.cursor1 . line - 1 , State.cursor1 . line )
2022-07-12 23:23:28 +00:00
if State.lines [ State.cursor1 . line - 1 ] . mode == ' drawing ' then
table.remove ( State.lines , State.cursor1 . line - 1 )
2022-07-20 23:34:09 +00:00
table.remove ( State.line_cache , State.cursor1 . line - 1 )
2022-05-18 05:36:10 +00:00
else
-- join lines
2022-07-12 23:23:28 +00:00
State.cursor1 . pos = utf8.len ( State.lines [ State.cursor1 . line - 1 ] . data ) + 1
State.lines [ State.cursor1 . line - 1 ] . data = State.lines [ State.cursor1 . line - 1 ] . data .. State.lines [ State.cursor1 . line ] . data
table.remove ( State.lines , State.cursor1 . line )
2022-07-20 23:34:09 +00:00
table.remove ( State.line_cache , State.cursor1 . line )
2022-05-18 05:36:10 +00:00
end
2022-07-12 23:23:28 +00:00
State.cursor1 . line = State.cursor1 . line - 1
2022-05-18 05:36:10 +00:00
end
2022-08-11 05:38:10 +00:00
if State.screen_top1 . line > # State.lines then
Text.populate_screen_line_starting_pos ( State , # State.lines )
local line_cache = State.line_cache [ # State.line_cache ]
State.screen_top1 = { line =# State.lines , pos = line_cache.screen_line_starting_pos [ # line_cache.screen_line_starting_pos ] }
elseif Text.lt1 ( State.cursor1 , State.screen_top1 ) then
2023-03-18 04:52:35 +00:00
State.screen_top1 = {
line = State.cursor1 . line ,
pos = Text.pos_at_start_of_screen_line ( State , State.cursor1 ) ,
}
2022-07-13 00:24:01 +00:00
Text.redraw_all ( State ) -- if we're scrolling, reclaim all fragments to avoid memory leaks
2022-05-28 16:41:02 +00:00
end
2022-07-17 15:18:48 +00:00
Text.clear_screen_line_cache ( State , State.cursor1 . line )
2023-11-18 19:30:57 +00:00
assert ( Text.le1 ( State.screen_top1 , State.cursor1 ) , ( ' screen_top (line=%d,pos=%d) is below cursor (line=%d,pos=%d) ' ) : format ( State.screen_top1 . line , State.screen_top1 . pos , State.cursor1 . line , State.cursor1 . pos ) )
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-07-12 23:55:32 +00:00
record_undo_event ( State , { before = before , after = snapshot ( State , State.cursor1 . line ) } )
2022-05-18 05:36:10 +00:00
elseif chord == ' delete ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line then
2022-07-13 01:29:00 +00:00
Text.delete_selection ( State , State.left , State.right )
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-05-29 15:12:47 +00:00
return
end
2022-06-03 00:46:30 +00:00
local before
2022-07-12 23:23:28 +00:00
if State.cursor1 . pos <= utf8.len ( State.lines [ State.cursor1 . line ] . data ) then
2022-07-12 23:55:32 +00:00
before = snapshot ( State , State.cursor1 . line )
2022-06-03 00:46:30 +00:00
else
2022-07-12 23:55:32 +00:00
before = snapshot ( State , State.cursor1 . line , State.cursor1 . line + 1 )
2022-06-03 00:46:30 +00:00
end
2022-07-12 23:23:28 +00:00
if State.cursor1 . pos <= utf8.len ( State.lines [ State.cursor1 . line ] . data ) then
local byte_start = utf8.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos )
local byte_end = utf8.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos + 1 )
2022-05-18 05:36:10 +00:00
if byte_start then
if byte_end then
2022-07-12 23:23:28 +00:00
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_start - 1 ) .. string.sub ( State.lines [ State.cursor1 . line ] . data , byte_end )
2022-05-18 05:36:10 +00:00
else
2022-07-12 23:23:28 +00:00
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_start - 1 )
2022-05-18 05:36:10 +00:00
end
2022-07-12 23:23:28 +00:00
-- no change to State.cursor1.pos
2022-05-18 05:36:10 +00:00
end
2022-07-12 23:23:28 +00:00
elseif State.cursor1 . line < # State.lines then
2022-07-18 04:05:01 +00:00
if State.lines [ State.cursor1 . line + 1 ] . mode == ' text ' then
2022-05-18 05:36:10 +00:00
-- join lines
2022-07-12 23:23:28 +00:00
State.lines [ State.cursor1 . line ] . data = State.lines [ State.cursor1 . line ] . data .. State.lines [ State.cursor1 . line + 1 ] . data
2022-05-18 05:36:10 +00:00
end
2022-07-18 04:05:01 +00:00
table.remove ( State.lines , State.cursor1 . line + 1 )
2022-07-20 23:34:09 +00:00
table.remove ( State.line_cache , State.cursor1 . line + 1 )
2022-05-18 05:36:10 +00:00
end
2022-07-17 15:18:48 +00:00
Text.clear_screen_line_cache ( State , State.cursor1 . line )
2022-07-12 23:30:41 +00:00
schedule_save ( State )
2022-07-12 23:55:32 +00:00
record_undo_event ( State , { before = before , after = snapshot ( State , State.cursor1 . line ) } )
2022-05-29 05:27:47 +00:00
--== shortcuts that move the cursor
elseif chord == ' left ' then
2022-08-18 19:09:50 +00:00
Text.left ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-06-20 18:35:27 +00:00
elseif chord == ' right ' then
2022-08-18 19:09:50 +00:00
Text.right ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-05-29 15:12:47 +00:00
elseif chord == ' S-left ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.left ( State )
2022-05-29 15:12:47 +00:00
elseif chord == ' S-right ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.right ( State )
2022-05-29 05:27:47 +00:00
-- C- hotkeys reserved for drawings, so we'll use M-
elseif chord == ' M-left ' then
2022-08-18 19:09:50 +00:00
Text.word_left ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-06-20 18:35:27 +00:00
elseif chord == ' M-right ' then
2022-08-18 19:09:50 +00:00
Text.word_right ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-05-29 15:12:47 +00:00
elseif chord == ' M-S-left ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.word_left ( State )
2022-05-29 15:12:47 +00:00
elseif chord == ' M-S-right ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.word_right ( State )
2022-05-29 05:27:47 +00:00
elseif chord == ' home ' then
2022-07-12 23:39:42 +00:00
Text.start_of_line ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-06-20 18:35:27 +00:00
elseif chord == ' end ' then
2022-08-18 19:09:50 +00:00
Text.end_of_line ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-05-29 15:12:47 +00:00
elseif chord == ' S-home ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-07-12 23:39:42 +00:00
Text.start_of_line ( State )
2022-05-29 15:12:47 +00:00
elseif chord == ' S-end ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.end_of_line ( State )
2022-05-18 05:36:10 +00:00
elseif chord == ' up ' then
2022-08-18 19:09:50 +00:00
Text.up ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-06-20 18:35:27 +00:00
elseif chord == ' down ' then
2022-08-18 19:09:50 +00:00
Text.down ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-05-29 15:12:47 +00:00
elseif chord == ' S-up ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.up ( State )
2022-05-29 15:12:47 +00:00
elseif chord == ' S-down ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.down ( State )
2022-05-29 05:42:11 +00:00
elseif chord == ' pageup ' then
2022-08-18 19:09:50 +00:00
Text.pageup ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-06-20 18:35:27 +00:00
elseif chord == ' pagedown ' then
2022-08-18 19:09:50 +00:00
Text.pagedown ( State )
2022-07-12 23:23:28 +00:00
State.selection1 = { }
2022-05-29 15:12:47 +00:00
elseif chord == ' S-pageup ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.pageup ( State )
2022-05-29 15:12:47 +00:00
elseif chord == ' S-pagedown ' then
2022-07-12 23:23:28 +00:00
if State.selection1 . line == nil then
State.selection1 = { line = State.cursor1 . line , pos = State.cursor1 . pos }
2022-05-29 15:12:47 +00:00
end
2022-08-18 19:09:50 +00:00
Text.pagedown ( State )
2022-05-29 05:36:05 +00:00
end
end
2022-07-12 23:39:42 +00:00
function Text . insert_return ( State )
local byte_offset = Text.offset ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos )
table.insert ( State.lines , State.cursor1 . line + 1 , { mode = ' text ' , data = string.sub ( State.lines [ State.cursor1 . line ] . data , byte_offset ) } )
2022-07-20 23:34:09 +00:00
table.insert ( State.line_cache , State.cursor1 . line + 1 , { } )
2022-07-12 23:39:42 +00:00
State.lines [ State.cursor1 . line ] . data = string.sub ( State.lines [ State.cursor1 . line ] . data , 1 , byte_offset - 1 )
2022-07-17 15:18:48 +00:00
Text.clear_screen_line_cache ( State , State.cursor1 . line )
2022-09-05 18:28:03 +00:00
State.cursor1 = { line = State.cursor1 . line + 1 , pos = 1 }
2022-06-03 01:35:18 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . pageup ( State )
2022-06-10 21:52:49 +00:00
--? print('pageup')
2022-05-29 05:45:53 +00:00
-- duplicate some logic from love.draw
2022-07-13 03:59:24 +00:00
local top2 = Text.to2 ( State , State.screen_top1 )
2022-05-29 05:45:53 +00:00
--? print(App.screen.height)
2022-07-12 23:39:42 +00:00
local y = App.screen . height - State.line_height
2022-07-13 01:29:00 +00:00
while y >= State.top do
2022-06-10 21:52:49 +00:00
--? print(y, top2.line, top2.screen_line, top2.screen_pos)
2022-07-12 23:39:42 +00:00
if State.screen_top1 . line == 1 and State.screen_top1 . pos == 1 then break end
if State.lines [ State.screen_top1 . line ] . mode == ' text ' then
y = y - State.line_height
elseif State.lines [ State.screen_top1 . line ] . mode == ' drawing ' then
2022-07-16 15:48:02 +00:00
y = y - Drawing_padding_height - Drawing.pixels ( State.lines [ State.screen_top1 . line ] . h , State.width )
2022-05-29 05:45:53 +00:00
end
2022-07-13 03:59:24 +00:00
top2 = Text.previous_screen_line ( State , top2 )
2022-05-29 05:45:53 +00:00
end
2022-07-13 00:24:01 +00:00
State.screen_top1 = Text.to1 ( State , top2 )
2022-09-05 18:28:03 +00:00
State.cursor1 = { line = State.screen_top1 . line , pos = State.screen_top1 . pos }
2022-07-13 03:59:24 +00:00
Text.move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary ( State )
2022-07-12 23:39:42 +00:00
--? print(State.cursor1.line, State.cursor1.pos, State.screen_top1.line, State.screen_top1.pos)
2022-06-10 21:52:49 +00:00
--? print('pageup end')
2022-05-29 05:45:53 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . pagedown ( State )
2022-06-10 21:52:49 +00:00
--? print('pagedown')
2022-06-04 21:55:52 +00:00
-- If a line/paragraph gets to a page boundary, I often want to scroll
-- before I get to the bottom.
-- However, only do this if it makes forward progress.
2022-08-19 23:27:38 +00:00
local bot2 = Text.to2 ( State , State.screen_bottom1 )
if bot2.screen_line > 1 then
bot2.screen_line = math.max ( bot2.screen_line - 10 , 1 )
2022-06-04 21:55:52 +00:00
end
2022-08-19 23:27:38 +00:00
local new_top1 = Text.to1 ( State , bot2 )
2022-07-12 23:39:42 +00:00
if Text.lt1 ( State.screen_top1 , new_top1 ) then
State.screen_top1 = new_top1
2022-06-04 21:55:52 +00:00
else
2022-09-05 18:28:03 +00:00
State.screen_top1 = { line = State.screen_bottom1 . line , pos = State.screen_bottom1 . pos }
2022-06-04 21:55:52 +00:00
end
2022-07-12 23:39:42 +00:00
--? print('setting top to', State.screen_top1.line, State.screen_top1.pos)
2022-09-05 18:28:03 +00:00
State.cursor1 = { line = State.screen_top1 . line , pos = State.screen_top1 . pos }
2022-07-13 03:59:24 +00:00
Text.move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary ( State )
2022-07-12 23:39:42 +00:00
--? print('top now', State.screen_top1.line)
2022-07-13 00:24:01 +00:00
Text.redraw_all ( State ) -- if we're scrolling, reclaim all fragments to avoid memory leaks
2022-06-10 21:52:49 +00:00
--? print('pagedown end')
2022-05-29 05:45:53 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . up ( State )
2023-11-18 19:30:57 +00:00
assert ( State.lines [ State.cursor1 . line ] . mode == ' text ' , ' line is not text ' )
2022-07-12 23:39:42 +00:00
--? print('up', State.cursor1.line, State.cursor1.pos, State.screen_top1.line, State.screen_top1.pos)
2022-08-18 17:22:48 +00:00
local screen_line_starting_pos , screen_line_index = Text.pos_at_start_of_screen_line ( State , State.cursor1 )
2022-05-29 05:36:05 +00:00
if screen_line_starting_pos == 1 then
--? print('cursor is at first screen line of its line')
-- line is done; skip to previous text line
2022-07-12 23:39:42 +00:00
local new_cursor_line = State.cursor1 . line
2022-05-29 05:36:05 +00:00
while new_cursor_line > 1 do
new_cursor_line = new_cursor_line - 1
2022-07-12 23:39:42 +00:00
if State.lines [ new_cursor_line ] . mode == ' text ' then
2022-05-29 05:36:05 +00:00
--? print('found previous text line')
2023-02-01 06:39:04 +00:00
State.cursor1 = { line = new_cursor_line , pos = nil }
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , State.cursor1 . line )
2022-05-29 05:36:05 +00:00
-- previous text line found, pick its final screen line
--? print('has multiple screen lines')
2022-07-20 23:34:09 +00:00
local screen_line_starting_pos = State.line_cache [ State.cursor1 . line ] . screen_line_starting_pos
2022-05-29 05:36:05 +00:00
--? print(#screen_line_starting_pos)
screen_line_starting_pos = screen_line_starting_pos [ # screen_line_starting_pos ]
2022-07-12 23:39:42 +00:00
local screen_line_starting_byte_offset = Text.offset ( State.lines [ State.cursor1 . line ] . data , screen_line_starting_pos )
local s = string.sub ( State.lines [ State.cursor1 . line ] . data , screen_line_starting_byte_offset )
2024-01-12 13:23:06 +00:00
State.cursor1 . pos = screen_line_starting_pos + Text.nearest_cursor_pos ( State.font , s , State.cursor_x , State.left ) - 1
2022-05-29 05:36:05 +00:00
break
2022-05-18 05:36:10 +00:00
end
2022-05-29 05:36:05 +00:00
end
else
-- move up one screen line in current line
2023-11-18 19:30:57 +00:00
assert ( screen_line_index > 1 , ' bumped up against top screen line in line ' )
2022-08-18 20:37:14 +00:00
local new_screen_line_starting_pos = State.line_cache [ State.cursor1 . line ] . screen_line_starting_pos [ screen_line_index - 1 ]
2022-07-12 23:39:42 +00:00
local new_screen_line_starting_byte_offset = Text.offset ( State.lines [ State.cursor1 . line ] . data , new_screen_line_starting_pos )
local s = string.sub ( State.lines [ State.cursor1 . line ] . data , new_screen_line_starting_byte_offset )
2024-01-12 13:23:06 +00:00
State.cursor1 . pos = new_screen_line_starting_pos + Text.nearest_cursor_pos ( State.font , s , State.cursor_x , State.left ) - 1
2022-07-12 23:39:42 +00:00
--? print('cursor pos is now '..tostring(State.cursor1.pos))
2022-05-29 05:36:05 +00:00
end
2022-08-18 20:04:04 +00:00
if Text.lt1 ( State.cursor1 , State.screen_top1 ) then
2023-03-18 04:52:35 +00:00
State.screen_top1 = {
line = State.cursor1 . line ,
pos = Text.pos_at_start_of_screen_line ( State , State.cursor1 ) ,
}
Text.redraw_all ( State ) -- if we're scrolling, reclaim all fragments to avoid memory leaks
2022-08-18 20:04:04 +00:00
end
2022-05-29 05:36:05 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . down ( State )
2023-11-18 19:30:57 +00:00
assert ( State.lines [ State.cursor1 . line ] . mode == ' text ' , ' line is not text ' )
2022-07-12 23:39:42 +00:00
--? print('down', State.cursor1.line, State.cursor1.pos, State.screen_top1.line, State.screen_top1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2023-11-18 19:30:57 +00:00
assert ( State.cursor1 . pos , ' cursor has no pos ' )
2022-07-13 03:59:24 +00:00
if Text.cursor_at_final_screen_line ( State ) then
2022-05-29 05:36:05 +00:00
-- line is done, skip to next text line
--? print('cursor at final screen line of its line')
2022-07-12 23:39:42 +00:00
local new_cursor_line = State.cursor1 . line
while new_cursor_line < # State.lines do
2022-05-29 05:36:05 +00:00
new_cursor_line = new_cursor_line + 1
2022-07-12 23:39:42 +00:00
if State.lines [ new_cursor_line ] . mode == ' text ' then
2022-09-05 18:28:03 +00:00
State.cursor1 = {
line = new_cursor_line ,
2024-01-12 13:23:06 +00:00
pos = Text.nearest_cursor_pos ( State.font , State.lines [ new_cursor_line ] . data , State.cursor_x , State.left ) ,
2022-09-05 18:28:03 +00:00
}
2022-07-12 23:39:42 +00:00
--? print(State.cursor1.pos)
2022-05-29 05:36:05 +00:00
break
2022-05-24 22:01:09 +00:00
end
2022-05-19 00:22:04 +00:00
end
2022-07-12 23:39:42 +00:00
if State.cursor1 . line > State.screen_bottom1 . line then
--? print('screen top before:', State.screen_top1.line, State.screen_top1.pos)
2022-05-29 05:36:05 +00:00
--? print('scroll up preserving cursor')
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-07-12 23:39:42 +00:00
--? print('screen top after:', State.screen_top1.line, State.screen_top1.pos)
2022-05-29 05:36:05 +00:00
end
else
-- move down one screen line in current line
2022-08-18 07:19:07 +00:00
local scroll_down = Text.le1 ( State.screen_bottom1 , State.cursor1 )
2022-05-29 05:36:05 +00:00
--? print('cursor is NOT at final screen line of its line')
2022-08-18 17:22:48 +00:00
local screen_line_starting_pos , screen_line_index = Text.pos_at_start_of_screen_line ( State , State.cursor1 )
2022-09-05 18:28:03 +00:00
Text.populate_screen_line_starting_pos ( State , State.cursor1 . line )
2022-08-18 20:37:14 +00:00
local new_screen_line_starting_pos = State.line_cache [ State.cursor1 . line ] . screen_line_starting_pos [ screen_line_index + 1 ]
2022-05-29 05:36:05 +00:00
--? print('switching pos of screen line at cursor from '..tostring(screen_line_starting_pos)..' to '..tostring(new_screen_line_starting_pos))
2022-07-12 23:39:42 +00:00
local new_screen_line_starting_byte_offset = Text.offset ( State.lines [ State.cursor1 . line ] . data , new_screen_line_starting_pos )
local s = string.sub ( State.lines [ State.cursor1 . line ] . data , new_screen_line_starting_byte_offset )
2024-01-12 13:23:06 +00:00
State.cursor1 . pos = new_screen_line_starting_pos + Text.nearest_cursor_pos ( State.font , s , State.cursor_x , State.left ) - 1
2022-07-12 23:39:42 +00:00
--? print('cursor pos is now', State.cursor1.line, State.cursor1.pos)
2022-06-05 14:59:44 +00:00
if scroll_down then
2022-05-29 05:36:05 +00:00
--? print('scroll up preserving cursor')
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-07-12 23:39:42 +00:00
--? print('screen top after:', State.screen_top1.line, State.screen_top1.pos)
2022-05-29 05:36:05 +00:00
end
end
2022-07-12 23:39:42 +00:00
--? print('=>', State.cursor1.line, State.cursor1.pos, State.screen_top1.line, State.screen_top1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-05-29 05:36:05 +00:00
end
2022-07-12 23:39:42 +00:00
function Text . start_of_line ( State )
State.cursor1 . pos = 1
if Text.lt1 ( State.cursor1 , State.screen_top1 ) then
State.screen_top1 = { line = State.cursor1 . line , pos = State.cursor1 . pos } -- copy
2022-06-29 01:48:59 +00:00
end
end
2022-07-13 03:59:24 +00:00
function Text . end_of_line ( State )
2022-07-12 23:39:42 +00:00
State.cursor1 . pos = utf8.len ( State.lines [ State.cursor1 . line ] . data ) + 1
2022-08-17 16:36:17 +00:00
if Text.cursor_out_of_screen ( State ) then
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-06-29 01:48:59 +00:00
end
end
2022-07-13 03:59:24 +00:00
function Text . word_left ( State )
2022-07-12 02:18:54 +00:00
-- skip some whitespace
2022-05-29 05:36:05 +00:00
while true do
2022-07-12 23:39:42 +00:00
if State.cursor1 . pos == 1 then
2022-07-12 02:18:54 +00:00
break
end
2022-07-12 23:39:42 +00:00
if Text.match ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos - 1 , ' %S ' ) then
2022-07-12 02:18:54 +00:00
break
end
2022-07-13 03:59:24 +00:00
Text.left ( State )
2022-07-12 02:18:54 +00:00
end
-- skip some non-whitespace
while true do
2022-07-13 03:59:24 +00:00
Text.left ( State )
2022-07-12 23:39:42 +00:00
if State.cursor1 . pos == 1 then
2022-07-12 02:18:54 +00:00
break
end
2023-11-18 19:30:57 +00:00
assert ( State.cursor1 . pos > 1 , ' bumped up against start of line ' )
2022-07-12 23:39:42 +00:00
if Text.match ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos - 1 , ' %s ' ) then
2022-05-29 05:36:05 +00:00
break
end
end
end
2022-07-13 03:59:24 +00:00
function Text . word_right ( State )
2022-07-12 02:18:54 +00:00
-- skip some whitespace
2022-05-29 05:36:05 +00:00
while true do
2022-07-12 23:39:42 +00:00
if State.cursor1 . pos > utf8.len ( State.lines [ State.cursor1 . line ] . data ) then
2022-07-12 02:18:54 +00:00
break
end
2022-07-12 23:39:42 +00:00
if Text.match ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos , ' %S ' ) then
2022-07-12 02:18:54 +00:00
break
end
2022-07-13 00:10:11 +00:00
Text.right_without_scroll ( State )
2022-07-12 02:18:54 +00:00
end
while true do
2022-07-13 00:10:11 +00:00
Text.right_without_scroll ( State )
2022-07-12 23:39:42 +00:00
if State.cursor1 . pos > utf8.len ( State.lines [ State.cursor1 . line ] . data ) then
2022-07-12 02:18:54 +00:00
break
end
2022-07-12 23:39:42 +00:00
if Text.match ( State.lines [ State.cursor1 . line ] . data , State.cursor1 . pos , ' %s ' ) then
2022-05-29 05:36:05 +00:00
break
end
2022-05-18 05:36:10 +00:00
end
2022-08-17 16:36:17 +00:00
if Text.cursor_out_of_screen ( State ) then
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-07-05 18:27:41 +00:00
end
2022-05-18 05:36:10 +00:00
end
2022-07-12 01:56:19 +00:00
function Text . match ( s , pos , pat )
local start_offset = Text.offset ( s , pos )
local end_offset = Text.offset ( s , pos + 1 )
2023-11-18 19:30:57 +00:00
assert ( end_offset > start_offset , ( ' end_offset %d not > start_offset %d ' ) : format ( end_offset , start_offset ) )
2022-07-12 01:56:19 +00:00
local curr = s : sub ( start_offset , end_offset - 1 )
return curr : match ( pat )
end
2022-07-13 03:59:24 +00:00
function Text . left ( State )
2023-11-18 19:30:57 +00:00
assert ( State.lines [ State.cursor1 . line ] . mode == ' text ' , ' line is not text ' )
2022-07-13 00:10:11 +00:00
if State.cursor1 . pos > 1 then
State.cursor1 . pos = State.cursor1 . pos - 1
2022-05-25 22:25:10 +00:00
else
2022-07-13 00:10:11 +00:00
local new_cursor_line = State.cursor1 . line
2022-05-25 22:25:10 +00:00
while new_cursor_line > 1 do
new_cursor_line = new_cursor_line - 1
2022-07-13 00:10:11 +00:00
if State.lines [ new_cursor_line ] . mode == ' text ' then
2022-09-05 18:28:03 +00:00
State.cursor1 = {
line = new_cursor_line ,
pos = utf8.len ( State.lines [ new_cursor_line ] . data ) + 1 ,
}
2022-05-25 22:25:10 +00:00
break
end
end
2022-06-29 01:48:59 +00:00
end
2022-07-13 00:10:11 +00:00
if Text.lt1 ( State.cursor1 , State.screen_top1 ) then
2023-03-18 04:52:35 +00:00
State.screen_top1 = {
line = State.cursor1 . line ,
pos = Text.pos_at_start_of_screen_line ( State , State.cursor1 ) ,
}
Text.redraw_all ( State ) -- if we're scrolling, reclaim all fragments to avoid memory leaks
2022-05-25 22:25:10 +00:00
end
end
2022-07-13 03:59:24 +00:00
function Text . right ( State )
2022-07-13 00:10:11 +00:00
Text.right_without_scroll ( State )
2022-08-17 16:36:17 +00:00
if Text.cursor_out_of_screen ( State ) then
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-07-05 18:27:41 +00:00
end
end
2022-07-13 00:10:11 +00:00
function Text . right_without_scroll ( State )
2023-11-18 19:30:57 +00:00
assert ( State.lines [ State.cursor1 . line ] . mode == ' text ' , ' line is not text ' )
2022-07-13 00:10:11 +00:00
if State.cursor1 . pos <= utf8.len ( State.lines [ State.cursor1 . line ] . data ) then
State.cursor1 . pos = State.cursor1 . pos + 1
2022-05-25 22:25:10 +00:00
else
2022-07-13 00:10:11 +00:00
local new_cursor_line = State.cursor1 . line
while new_cursor_line <= # State.lines - 1 do
2022-05-25 22:25:10 +00:00
new_cursor_line = new_cursor_line + 1
2022-07-13 00:10:11 +00:00
if State.lines [ new_cursor_line ] . mode == ' text ' then
2022-09-05 18:28:03 +00:00
State.cursor1 = { line = new_cursor_line , pos = 1 }
2022-05-25 22:25:10 +00:00
break
end
end
2022-06-29 01:48:59 +00:00
end
2022-05-25 22:25:10 +00:00
end
2023-06-04 19:20:24 +00:00
-- result: pos, index of screen line
2022-08-18 17:22:48 +00:00
function Text . pos_at_start_of_screen_line ( State , loc1 )
Text.populate_screen_line_starting_pos ( State , loc1.line )
local line_cache = State.line_cache [ loc1.line ]
for i =# line_cache.screen_line_starting_pos , 1 , - 1 do
local spos = line_cache.screen_line_starting_pos [ i ]
if spos <= loc1.pos then
2022-08-17 16:10:52 +00:00
return spos , i
2022-05-20 23:41:21 +00:00
end
end
2023-11-18 19:30:57 +00:00
assert ( false , ( ' invalid pos %d ' ) : format ( loc1.pos ) )
2022-05-20 23:41:21 +00:00
end
2023-06-04 19:20:24 +00:00
function Text . pos_at_end_of_screen_line ( State , loc1 )
Text.populate_screen_line_starting_pos ( State , loc1.line )
local line_cache = State.line_cache [ loc1.line ]
local most_recent_final_pos = utf8.len ( State.lines [ loc1.line ] . data ) + 1
for i =# line_cache.screen_line_starting_pos , 1 , - 1 do
local spos = line_cache.screen_line_starting_pos [ i ]
if spos <= loc1.pos then
return most_recent_final_pos
end
most_recent_final_pos = spos - 1
end
2023-11-18 19:30:57 +00:00
assert ( false , ( ' invalid pos %d ' ) : format ( loc1.pos ) )
2023-06-04 19:20:24 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . cursor_at_final_screen_line ( State )
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , State.cursor1 . line )
2022-07-20 23:34:09 +00:00
local screen_lines = State.line_cache [ State.cursor1 . line ] . screen_line_starting_pos
2022-07-13 00:24:01 +00:00
--? print(screen_lines[#screen_lines], State.cursor1.pos)
return screen_lines [ # screen_lines ] <= State.cursor1 . pos
2022-05-21 03:33:30 +00:00
end
2022-07-13 03:59:24 +00:00
function Text . move_cursor_down_to_next_text_line_while_scrolling_again_if_necessary ( State )
2022-07-13 01:29:00 +00:00
local y = State.top
2022-07-13 00:24:01 +00:00
while State.cursor1 . line <= # State.lines do
if State.lines [ State.cursor1 . line ] . mode == ' text ' then
2022-05-19 01:19:27 +00:00
break
end
2022-07-13 00:24:01 +00:00
--? print('cursor skips', State.cursor1.line)
2022-07-16 15:48:02 +00:00
y = y + Drawing_padding_height + Drawing.pixels ( State.lines [ State.cursor1 . line ] . h , State.width )
2022-07-13 00:24:01 +00:00
State.cursor1 . line = State.cursor1 . line + 1
2022-05-19 01:19:27 +00:00
end
2023-04-20 04:53:11 +00:00
if State.cursor1 . pos == nil then
State.cursor1 . pos = 1
end
2022-05-19 01:19:27 +00:00
-- hack: insert a text line at bottom of file if necessary
2022-07-13 00:24:01 +00:00
if State.cursor1 . line > # State.lines then
2023-11-18 19:30:57 +00:00
assert ( State.cursor1 . line == # State.lines + 1 , ' tried to ensure bottom line of file is text, but failed ' )
2022-07-13 00:24:01 +00:00
table.insert ( State.lines , { mode = ' text ' , data = ' ' } )
2022-07-20 23:34:09 +00:00
table.insert ( State.line_cache , { } )
2022-05-19 01:19:27 +00:00
end
2022-07-13 00:24:01 +00:00
--? print(y, App.screen.height, App.screen.height-State.line_height)
if y > App.screen . height - State.line_height then
2022-05-23 22:38:42 +00:00
--? print('scroll up')
2022-07-13 03:59:24 +00:00
Text.snap_cursor_to_bottom_of_screen ( State )
2022-05-19 01:19:27 +00:00
end
end
2022-07-13 00:24:01 +00:00
-- should never modify State.cursor1
2022-07-13 03:59:24 +00:00
function Text . snap_cursor_to_bottom_of_screen ( State )
2022-09-05 18:28:03 +00:00
--? print('to2:', State.cursor1.line, State.cursor1.pos)
2022-07-13 03:59:24 +00:00
local top2 = Text.to2 ( State , State.cursor1 )
2022-09-05 18:28:03 +00:00
--? print('to2: =>', top2.line, top2.screen_line, top2.screen_pos)
-- slide to start of screen line
2022-06-05 16:50:19 +00:00
top2.screen_pos = 1 -- start of screen line
2023-03-18 05:17:23 +00:00
--? print('snap', State.screen_top1.line, State.screen_top1.pos, State.cursor1.line, State.cursor1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-07-13 00:24:01 +00:00
--? print('cursor pos '..tostring(State.cursor1.pos)..' is on the #'..tostring(top2.screen_line)..' screen line down')
local y = App.screen . height - State.line_height
2022-05-21 05:43:09 +00:00
-- duplicate some logic from love.draw
2022-05-19 01:19:27 +00:00
while true do
2022-05-22 06:02:04 +00:00
--? print(y, 'top2:', top2.line, top2.screen_line, top2.screen_pos)
if top2.line == 1 and top2.screen_line == 1 then break end
2022-07-13 00:24:01 +00:00
if top2.screen_line > 1 or State.lines [ top2.line - 1 ] . mode == ' text ' then
local h = State.line_height
2022-07-13 01:29:00 +00:00
if y - h < State.top then
2022-05-22 06:02:04 +00:00
break
end
y = y - h
2022-05-21 05:43:09 +00:00
else
2023-11-18 19:30:57 +00:00
assert ( top2.line > 1 , ' tried to snap cursor to buttom of screen but failed ' )
assert ( State.lines [ top2.line - 1 ] . mode == ' drawing ' , " expected a drawing but it's not " )
2022-05-22 06:02:04 +00:00
-- We currently can't draw partial drawings, so either skip it entirely
-- or not at all.
2022-07-16 15:48:02 +00:00
local h = Drawing_padding_height + Drawing.pixels ( State.lines [ top2.line - 1 ] . h , State.width )
2022-07-13 01:29:00 +00:00
if y - h < State.top then
2022-05-22 06:02:04 +00:00
break
end
--? print('skipping drawing of height', h)
y = y - h
2022-05-19 01:19:27 +00:00
end
2022-07-13 03:59:24 +00:00
top2 = Text.previous_screen_line ( State , top2 )
2022-05-19 01:19:27 +00:00
end
2022-05-22 06:02:04 +00:00
--? print('top2 finally:', top2.line, top2.screen_line, top2.screen_pos)
2022-07-13 00:24:01 +00:00
State.screen_top1 = Text.to1 ( State , top2 )
--? print('top1 finally:', State.screen_top1.line, State.screen_top1.pos)
2022-09-05 18:28:03 +00:00
--? print('snap =>', State.screen_top1.line, State.screen_top1.pos, State.cursor1.line, State.cursor1.pos, State.screen_bottom1.line, State.screen_bottom1.pos)
2022-07-13 00:24:01 +00:00
Text.redraw_all ( State ) -- if we're scrolling, reclaim all fragments to avoid memory leaks
2022-05-19 01:19:27 +00:00
end
2022-07-17 16:05:50 +00:00
function Text . in_line ( State , line_index , x , y )
local line = State.lines [ line_index ]
2022-07-20 23:34:09 +00:00
local line_cache = State.line_cache [ line_index ]
2022-07-18 04:05:01 +00:00
if line_cache.starty == nil then return false end -- outside current page
if y < line_cache.starty then return false end
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , line_index )
2022-07-18 04:05:01 +00:00
return y < line_cache.starty + State.line_height * ( # line_cache.screen_line_starting_pos - Text.screen_line_index ( line_cache.screen_line_starting_pos , line_cache.startpos ) + 1 )
2022-05-18 05:53:09 +00:00
end
2022-06-03 20:22:03 +00:00
-- convert mx,my in pixels to schema-1 coordinates
2022-07-17 16:19:53 +00:00
function Text . to_pos_on_line ( State , line_index , mx , my )
local line = State.lines [ line_index ]
2022-07-20 23:34:09 +00:00
local line_cache = State.line_cache [ line_index ]
2023-11-18 19:30:57 +00:00
assert ( my >= line_cache.starty , ' failed to map y pixel to line ' )
2022-05-20 05:07:12 +00:00
-- duplicate some logic from Text.draw
2022-07-18 04:05:01 +00:00
local y = line_cache.starty
local start_screen_line_index = Text.screen_line_index ( line_cache.screen_line_starting_pos , line_cache.startpos )
for screen_line_index = start_screen_line_index , # line_cache.screen_line_starting_pos do
local screen_line_starting_pos = line_cache.screen_line_starting_pos [ screen_line_index ]
2022-07-01 01:00:09 +00:00
local screen_line_starting_byte_offset = Text.offset ( line.data , screen_line_starting_pos )
2022-06-14 15:15:51 +00:00
--? print('iter', y, screen_line_index, screen_line_starting_pos, string.sub(line.data, screen_line_starting_byte_offset))
2022-07-13 00:24:01 +00:00
local nexty = y + State.line_height
2022-05-20 05:07:12 +00:00
if my < nexty then
2022-05-20 05:26:15 +00:00
-- On all wrapped screen lines but the final one, clicks past end of
-- line position cursor on final character of screen line.
-- (The final screen line positions past end of screen line as always.)
2022-07-18 05:15:49 +00:00
if screen_line_index < # line_cache.screen_line_starting_pos and mx > State.left + Text.screen_line_width ( State , line_index , screen_line_index ) then
2022-06-14 00:23:21 +00:00
--? print('past end of non-final line; return')
2022-07-18 04:05:01 +00:00
return line_cache.screen_line_starting_pos [ screen_line_index + 1 ] - 1
2022-05-20 05:26:15 +00:00
end
2022-06-14 00:23:21 +00:00
local s = string.sub ( line.data , screen_line_starting_byte_offset )
2024-01-12 13:23:06 +00:00
--? print('return', mx, Text.nearest_cursor_pos(State.font, s, mx, State.left), '=>', screen_line_starting_pos + Text.nearest_cursor_pos(State.font, s, mx, State.left) - 1)
return screen_line_starting_pos + Text.nearest_cursor_pos ( State.font , s , mx , State.left ) - 1
2022-05-20 05:07:12 +00:00
end
y = nexty
end
2023-11-18 19:30:57 +00:00
assert ( false , ' failed to map y pixel to line ' )
2022-05-18 05:53:09 +00:00
end
2022-07-17 16:37:50 +00:00
function Text . screen_line_width ( State , line_index , i )
local line = State.lines [ line_index ]
2022-07-20 23:34:09 +00:00
local line_cache = State.line_cache [ line_index ]
2022-07-18 04:05:01 +00:00
local start_pos = line_cache.screen_line_starting_pos [ i ]
2022-06-29 16:30:23 +00:00
local start_offset = Text.offset ( line.data , start_pos )
local screen_line
2022-07-18 04:05:01 +00:00
if i < # line_cache.screen_line_starting_pos then
local past_end_pos = line_cache.screen_line_starting_pos [ i + 1 ]
2022-06-29 16:30:23 +00:00
local past_end_offset = Text.offset ( line.data , past_end_pos )
screen_line = string.sub ( line.data , start_offset , past_end_offset - 1 )
else
screen_line = string.sub ( line.data , start_pos )
end
2024-01-12 13:23:06 +00:00
return State.font : getWidth ( screen_line )
2022-06-29 16:30:23 +00:00
end
2022-07-17 16:21:57 +00:00
function Text . screen_line_index ( screen_line_starting_pos , pos )
for i = # screen_line_starting_pos , 1 , - 1 do
if screen_line_starting_pos [ i ] <= pos then
2022-07-01 01:00:09 +00:00
return i
end
end
end
2022-07-08 23:11:30 +00:00
-- convert x pixel coordinate to pos
-- oblivious to wrapping
2022-07-20 14:50:33 +00:00
-- result: 1 to len+1
2024-01-12 13:23:06 +00:00
function Text . nearest_cursor_pos ( font , line , x , left )
2022-07-29 21:38:45 +00:00
if x < left then
2022-05-18 03:29:08 +00:00
return 1
end
2022-05-20 00:46:02 +00:00
local len = utf8.len ( line )
2024-01-12 13:23:06 +00:00
local max_x = left + Text.x ( font , line , len + 1 )
2022-05-18 03:29:08 +00:00
if x > max_x then
2022-05-20 00:46:02 +00:00
return len + 1
2022-05-18 03:29:08 +00:00
end
2022-07-08 21:18:23 +00:00
local leftpos , rightpos = 1 , len + 1
2022-05-24 21:34:50 +00:00
--? print('-- nearest', x)
2022-05-20 04:52:38 +00:00
while true do
2022-07-08 21:18:23 +00:00
--? print('nearest', x, '^'..line..'$', leftpos, rightpos)
if leftpos == rightpos then
return leftpos
2022-05-24 21:34:50 +00:00
end
2022-07-08 21:18:23 +00:00
local curr = math.floor ( ( leftpos + rightpos ) / 2 )
2024-01-12 13:23:06 +00:00
local currxmin = left + Text.x ( font , line , curr )
local currxmax = left + Text.x ( font , line , curr + 1 )
2022-07-08 21:18:23 +00:00
--? print('nearest', x, leftpos, rightpos, curr, currxmin, currxmax)
2022-05-18 03:29:08 +00:00
if currxmin <= x and x < currxmax then
2022-05-25 22:08:37 +00:00
if x - currxmin < currxmax - x then
return curr
else
return curr + 1
end
2022-05-18 03:29:08 +00:00
end
2022-07-08 21:18:23 +00:00
if leftpos >= rightpos - 1 then
return rightpos
2022-05-20 04:52:38 +00:00
end
2022-05-18 03:29:08 +00:00
if currxmin > x then
2022-07-08 21:18:23 +00:00
rightpos = curr
2022-05-18 03:29:08 +00:00
else
2022-07-08 21:18:23 +00:00
leftpos = curr
2022-05-18 03:29:08 +00:00
end
end
2023-11-18 19:30:57 +00:00
assert ( false , ' failed to map x pixel to pos ' )
2022-05-18 03:29:08 +00:00
end
2022-07-19 23:49:08 +00:00
-- return the nearest index of line (in utf8 code points) which lies entirely
-- within x pixels of the left margin
2022-07-20 14:50:33 +00:00
-- result: 0 to len+1
2024-01-12 13:23:06 +00:00
function Text . nearest_pos_less_than ( font , line , x )
2022-07-20 14:00:39 +00:00
--? print('', '-- nearest_pos_less_than', line, x)
2022-05-23 22:22:16 +00:00
local len = utf8.len ( line )
2024-01-12 13:23:06 +00:00
local max_x = Text.x_after ( font , line , len )
2022-05-23 22:22:16 +00:00
if x > max_x then
return len + 1
end
2022-07-20 14:08:28 +00:00
local left , right = 0 , len + 1
2022-05-23 22:22:16 +00:00
while true do
local curr = math.floor ( ( left + right ) / 2 )
2024-01-12 13:23:06 +00:00
local currxmin = Text.x_after ( font , line , curr + 1 )
local currxmax = Text.x_after ( font , line , curr + 2 )
2022-07-20 14:00:39 +00:00
--? print('', x, left, right, curr, currxmin, currxmax)
2022-05-23 22:22:16 +00:00
if currxmin <= x and x < currxmax then
return curr
end
if left >= right - 1 then
return left
end
if currxmin > x then
right = curr
else
left = curr
end
end
2023-11-18 19:30:57 +00:00
assert ( false , ' failed to map x pixel to pos ' )
2022-05-23 22:22:16 +00:00
end
2024-01-12 13:23:06 +00:00
function Text . x_after ( font , s , pos )
2023-12-26 19:19:23 +00:00
local len = utf8.len ( s )
local offset = Text.offset ( s , math.min ( pos + 1 , len + 1 ) )
2022-07-19 23:49:08 +00:00
local s_before = s : sub ( 1 , offset - 1 )
--? print('^'..s_before..'$')
2024-01-12 13:23:06 +00:00
return font : getWidth ( s_before )
2022-07-19 23:49:08 +00:00
end
2024-01-12 13:23:06 +00:00
function Text . x ( font , s , pos )
2022-07-20 16:11:29 +00:00
local offset = Text.offset ( s , pos )
local s_before = s : sub ( 1 , offset - 1 )
2024-01-12 13:23:06 +00:00
return font : getWidth ( s_before )
2022-07-20 16:11:29 +00:00
end
2022-08-12 02:34:18 +00:00
function Text . to2 ( State , loc1 )
if State.lines [ loc1.line ] . mode == ' drawing ' then
return { line = loc1.line , screen_line = 1 , screen_pos = 1 }
end
2022-09-05 18:28:03 +00:00
local result = { line = loc1.line }
2022-08-18 16:51:43 +00:00
local line_cache = State.line_cache [ loc1.line ]
2022-08-12 02:34:18 +00:00
Text.populate_screen_line_starting_pos ( State , loc1.line )
2022-08-18 16:51:43 +00:00
for i =# line_cache.screen_line_starting_pos , 1 , - 1 do
local spos = line_cache.screen_line_starting_pos [ i ]
2022-08-12 02:34:18 +00:00
if spos <= loc1.pos then
2022-06-10 21:52:49 +00:00
result.screen_line = i
2022-08-12 02:34:18 +00:00
result.screen_pos = loc1.pos - spos + 1
2022-06-10 21:52:49 +00:00
break
2022-05-21 23:24:07 +00:00
end
end
2023-11-18 19:30:57 +00:00
assert ( result.screen_pos , ' failed to convert schema-1 coordinate to schema-2 ' )
2022-05-21 23:24:07 +00:00
return result
end
2022-08-12 02:34:18 +00:00
function Text . to1 ( State , loc2 )
local result = { line = loc2.line , pos = loc2.screen_pos }
if loc2.screen_line > 1 then
result.pos = State.line_cache [ loc2.line ] . screen_line_starting_pos [ loc2.screen_line ] + loc2.screen_pos - 1
2022-05-21 23:24:07 +00:00
end
return result
end
2022-06-03 15:11:18 +00:00
function Text . eq1 ( a , b )
return a.line == b.line and a.pos == b.pos
end
2022-05-29 06:11:53 +00:00
function Text . lt1 ( a , b )
if a.line < b.line then
return true
end
if a.line > b.line then
return false
end
return a.pos < b.pos
end
function Text . le1 ( a , b )
if a.line < b.line then
return true
end
if a.line > b.line then
return false
end
return a.pos <= b.pos
end
2022-06-19 16:03:09 +00:00
function Text . offset ( s , pos1 )
if pos1 == 1 then return 1 end
local result = utf8.offset ( s , pos1 )
if result == nil then
2023-12-09 17:22:45 +00:00
assert ( false , ( ' Text.offset(%d) called on a string of length %d (byte size %d); this is likely a failure to handle utf8 \n \n ^%s$ \n ' ) : format ( pos1 , utf8.len ( s ) , # s , s ) )
2022-06-19 16:03:09 +00:00
end
return result
end
2022-08-12 02:34:18 +00:00
function Text . previous_screen_line ( State , loc2 )
if loc2.screen_line > 1 then
return { line = loc2.line , screen_line = loc2.screen_line - 1 , screen_pos = 1 }
elseif loc2.line == 1 then
return loc2
elseif State.lines [ loc2.line - 1 ] . mode == ' drawing ' then
return { line = loc2.line - 1 , screen_line = 1 , screen_pos = 1 }
2022-05-22 06:02:04 +00:00
else
2022-08-12 02:34:18 +00:00
local l = State.lines [ loc2.line - 1 ]
Text.populate_screen_line_starting_pos ( State , loc2.line - 1 )
return { line = loc2.line - 1 , screen_line =# State.line_cache [ loc2.line - 1 ] . screen_line_starting_pos , screen_pos = 1 }
2022-05-22 06:02:04 +00:00
end
end
2022-07-13 00:24:01 +00:00
-- resize helper
2022-07-13 03:59:24 +00:00
function Text . tweak_screen_top_and_cursor ( State )
2022-07-13 00:24:01 +00:00
if State.screen_top1 . pos == 1 then return end
2022-07-17 16:10:33 +00:00
Text.populate_screen_line_starting_pos ( State , State.screen_top1 . line )
2022-07-13 00:24:01 +00:00
local line = State.lines [ State.screen_top1 . line ]
2022-07-20 23:34:09 +00:00
local line_cache = State.line_cache [ State.screen_top1 . line ]
2022-07-18 04:05:01 +00:00
for i = 2 , # line_cache.screen_line_starting_pos do
local pos = line_cache.screen_line_starting_pos [ i ]
2022-07-13 00:24:01 +00:00
if pos == State.screen_top1 . pos then
2022-07-01 17:30:52 +00:00
break
end
2022-07-13 00:24:01 +00:00
if pos > State.screen_top1 . pos then
2022-07-01 17:30:52 +00:00
-- make sure screen top is at start of a screen line
2022-07-18 04:05:01 +00:00
local prev = line_cache.screen_line_starting_pos [ i - 1 ]
2022-07-13 00:24:01 +00:00
if State.screen_top1 . pos - prev < pos - State.screen_top1 . pos then
State.screen_top1 . pos = prev
2022-07-01 17:30:52 +00:00
else
2022-07-13 00:24:01 +00:00
State.screen_top1 . pos = pos
2022-07-01 17:30:52 +00:00
end
break
end
end
-- make sure cursor is on screen
2022-07-13 00:24:01 +00:00
if Text.lt1 ( State.cursor1 , State.screen_top1 ) then
State.cursor1 = { line = State.screen_top1 . line , pos = State.screen_top1 . pos }
elseif State.cursor1 . line >= State.screen_bottom1 . line then
2022-07-01 17:30:52 +00:00
--? print('too low')
2022-08-17 16:36:17 +00:00
if Text.cursor_out_of_screen ( State ) then
2022-07-01 17:30:52 +00:00
--? print('tweak')
2022-07-13 00:24:01 +00:00
State.cursor1 = {
line = State.screen_bottom1 . line ,
2022-07-18 05:15:49 +00:00
pos = Text.to_pos_on_line ( State , State.screen_bottom1 . line , State.right - 5 , App.screen . height - 5 ) ,
2022-07-08 22:39:51 +00:00
}
2022-07-01 17:30:52 +00:00
end
end
end
2022-07-05 18:24:08 +00:00
-- slightly expensive since it redraws the screen
2022-08-17 16:36:17 +00:00
function Text . cursor_out_of_screen ( State )
2023-04-03 00:24:02 +00:00
edit.draw ( State )
2022-08-17 16:36:17 +00:00
return State.cursor_y == nil
2022-07-05 18:24:08 +00:00
-- this approach is cheaper and almost works, except on the final screen
-- where file ends above bottom of screen
2022-08-18 17:22:48 +00:00
--? local botpos = Text.pos_at_start_of_screen_line(State, State.cursor1)
2022-07-13 00:14:14 +00:00
--? local botline1 = {line=State.cursor1.line, pos=botpos}
--? return Text.lt1(State.screen_bottom1, botline1)
2022-07-05 18:24:08 +00:00
end
2022-07-13 00:24:01 +00:00
function Text . redraw_all ( State )
2022-06-10 21:52:49 +00:00
--? print('clearing fragments')
2023-11-25 03:16:33 +00:00
-- Perform some early sanity checking here, in hopes that we correctly call
-- this whenever we change editor state.
if State.right <= State.left then
assert ( false , ( ' Right margin %d must be to the right of the left margin %d ' ) : format ( State.right , State.left ) )
end
2022-07-20 23:34:09 +00:00
State.line_cache = { }
2022-07-18 04:05:01 +00:00
for i = 1 , # State.lines do
2022-07-20 23:34:09 +00:00
State.line_cache [ i ] = { }
2022-06-03 06:36:07 +00:00
end
end
2022-07-17 15:18:48 +00:00
function Text . clear_screen_line_cache ( State , line_index )
2022-07-20 23:34:09 +00:00
State.line_cache [ line_index ] . screen_line_starting_pos = nil
2022-06-23 18:09:49 +00:00
end
2022-08-23 22:06:18 +00:00
function trim ( s )
return s : gsub ( ' ^%s+ ' , ' ' ) : gsub ( ' %s+$ ' , ' ' )
end
function ltrim ( s )
return s : gsub ( ' ^%s+ ' , ' ' )
end
function rtrim ( s )
return s : gsub ( ' %s+$ ' , ' ' )
end
2023-01-13 17:10:48 +00:00
function starts_with ( s , prefix )
if # s < # prefix then
return false
end
for i = 1 , # prefix do
if s : sub ( i , i ) ~= prefix : sub ( i , i ) then
return false
end
end
return true
end
function ends_with ( s , suffix )
if # s < # suffix then
return false
end
for i = 0 , # suffix - 1 do
if s : sub ( # s - i , # s - i ) ~= suffix : sub ( # suffix - i , # suffix - i ) then
return false
end
end
return true
end