akkartik
/
lines-maleza-experiment
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first stab at supporting wrapping in cursor up 

Looks pretty clean.
This commit is contained in:
Kartik K. Agaram 2022-05-20 08:55:45 -07:00
parent 1c20d514f2
commit 7e6705a113
2 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
manual_tests
View File

@ -14,3 +14,14 @@ backspace
enter
cursor_pos == 0 -> insert empty line above current line
scrolling:
given moby dick, a file containing all text:
page up moves top line on screen to bottom
page down moves bottom line on screen to top
cursor remains on screen
cursor remains on text line
'up' arrow with cursor at top of screen scrolls up one line (drawings still fully in or out)
if top line wrapped before, it scrolls up by only one screen line
'down' arrow with cursor at bottom of screen scrolls down one line (drawings still fully in or out)
if top line wrapped before, it scrolls down by only one screen line

35
text.lua
View File

@ -19,7 +19,7 @@ function Text.draw(line, line_width, line_index)
local frag_width = math.floor(frag_text:getWidth()*Zoom)
if x + frag_width > line_width then
assert(x > 25) -- no overfull lines
if line_index > Screen_top_line or pos >= Top_screen_line_starting_pos then
if line_index > Screen_top_line or pos > Top_screen_line_starting_pos then
y = y + math.floor(15*Zoom)
end
x = 25
@ -219,19 +219,28 @@ function Text.keychord_pressed(chord)
save_to_disk(Lines, Filename)
elseif chord == 'up' then
assert(Lines[Cursor_line].mode == 'text')
-- previous text line
local new_cursor_line = Cursor_line
while new_cursor_line > 1 do
new_cursor_line = new_cursor_line-1
if Lines[new_cursor_line].mode == 'text' then
local old_x = Text.cursor_x(Lines[new_cursor_line].data, Cursor_pos)
Cursor_line = new_cursor_line
Cursor_pos = Text.nearest_cursor_pos(Lines[Cursor_line].data, old_x)
break
if Top_screen_line_starting_pos == 1 then
-- top line is done; skip to previous text line
local new_cursor_line = Cursor_line
while new_cursor_line > 1 do
new_cursor_line = new_cursor_line-1
if Lines[new_cursor_line].mode == 'text' then
local old_x = Text.cursor_x(Lines[new_cursor_line].data, Cursor_pos)
Cursor_line = new_cursor_line
Cursor_pos = Text.nearest_cursor_pos(Lines[Cursor_line].data, old_x)
break
end
end
end
if Cursor_line < Screen_top_line then
Screen_top_line = Cursor_line
if Cursor_line < Screen_top_line then
Screen_top_line = Cursor_line
end
else
-- scroll up just one screen line in current line
local screen_line_index = table.find(Lines[Cursor_line].screen_line_starting_pos, Top_screen_line_starting_pos)
assert(screen_line_index > 1)
Top_screen_line_starting_pos = Lines[Cursor_line].screen_line_starting_pos[screen_line_index-1]
local s = string.sub(Lines[Cursor_line].data, Top_screen_line_starting_pos)
Cursor_pos = Text.nearest_cursor_pos(s, Cursor_x)
end
elseif chord == 'down' then
assert(Lines[Cursor_line].mode == 'text')