akkartik/pensieve.love - Change 7AKT7IKOP6VQW3CABAVXCEZTHYNAETVXGFIQWB2L6I7LM7T57HAAC

move cursor as we pan using the keyboard

This still isn't perfect at keeping the cursor on screen, but maybe this is good enough? I'm also considering not moving the cursor when panning with the mouse. If you're already at the mouse just select a pane on the screen while you're at it.

But perhaps this is rationalization.

Created by Kartik K. Agaram on July 20, 2022

7AKT7IKOP6VQW3CABAVXCEZTHYNAETVXGFIQWB2L6I7LM7T57HAAC

Dependencies

In channels

main

Change contents

Insertion in main.lua at line 131 [5.2]

[3.595]

[4.440]

end
function App.resize(w, h)
  App.screen.width, App.screen.height = w, h
  Last_resize_time = App.getTime()

Insertion in main.lua at line 399 [5.2]

[2.511]

[6.25]

--?   print('before', Cursor_pane.col, Cursor_pane.row)

Insertion in main.lua at line 402 [5.2]

[6.117]

    local up_sx = up_edge_sx(Cursor_pane.col, Cursor_pane.row)
    local up_px = up_sx - Display_settings.y
    if up_px > 2/3*App.screen.height then
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], row(Cursor_pane.col, Display_settings.y + App.screen.height/3))
    end

Insertion in main.lua at line 412 [5.2]

[6.360]

    local down_sx = down_edge_sx(Cursor_pane.col, Cursor_pane.row)
    local down_px = down_sx - Display_settings.y
    if down_px < App.screen.height/3 then
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], row(Cursor_pane.col, Display_settings.y + App.screen.height/3))
    end

Insertion in main.lua at line 419 [5.2]

[6.458]

    local left_sx = left_edge_sx(Cursor_pane.col)
    local left_px = left_sx - Display_settings.x
    if left_px > App.screen.width - Margin_right - Display_settings.column_width/2 then
      Cursor_pane.col = math.min(#Surface, col(Display_settings.x + App.screen.width - Margin_right - Display_settings.column_width/2))
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], Cursor_pane.row)
    end

Insertion in main.lua at line 429 [5.2]

[6.655]

    local right_sx = left_edge_sx(Cursor_pane.col) + Display_settings.column_width
    local right_px = right_sx - Display_settings.x
    if right_px < Margin_left + Display_settings.column_width/2 then
      Cursor_pane.col = math.min(#Surface, col(Display_settings.x + Margin_left + Display_settings.column_width/2))
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], Cursor_pane.row)
    end

Insertion in main.lua at line 437 [5.2]

[6.799]

    local up_sx = up_edge_sx(Cursor_pane.col, Cursor_pane.row)
    local up_px = up_sx - Display_settings.y
    if up_px > 2/3*App.screen.height then
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], row(Cursor_pane.col, Display_settings.y + App.screen.height/3))
    end

Insertion in main.lua at line 446 [5.2]

[6.1082]

    end
    local down_sx = down_edge_sx(Cursor_pane.col, Cursor_pane.row)
    local down_px = down_sx - Display_settings.y
    if down_px < App.screen.height/3 then
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], row(Cursor_pane.col, Display_settings.y + App.screen.height/3))

Replacement in main.lua at line 453 [5.2]

B:BD[6.1122] → [6.1122:1232]

    Display_settings.x = math.max(Display_settings.x - Display_settings.column_width - Padding_horizontal, 0)

[6.1122]

[6.1232]

    Display_settings.x = math.max(Display_settings.x - Margin_left - Display_settings.column_width - Margin_right - Padding_horizontal, 0)
    local left_sx = left_edge_sx(Cursor_pane.col)
    local left_px = left_sx - Display_settings.x
    if left_px > App.screen.width - Margin_right - Display_settings.column_width/2 then
      Cursor_pane.col = math.min(#Surface, col(Display_settings.x + App.screen.width - Margin_right - Display_settings.column_width/2))
      Cursor_pane.row = math.min(#Surface[Cursor_pane.col], Cursor_pane.row)
    end

Replacement in main.lua at line 462 [5.2]

B:BD[6.1366] → [6.1366:1465]

      Display_settings.x = Display_settings.x + Display_settings.column_width + Padding_horizontal

[6.1366]

[7.1550]

      Display_settings.x = Display_settings.x + Margin_left + Display_settings.column_width + Margin_right + Padding_horizontal
      local right_sx = left_edge_sx(Cursor_pane.col) + Display_settings.column_width
      local right_px = right_sx - Display_settings.x
      if right_px < Margin_left + Display_settings.column_width/2 then
        Cursor_pane.col = math.min(#Surface, col(Display_settings.x + Margin_left + Display_settings.column_width/2))
        Cursor_pane.row = math.min(#Surface[Cursor_pane.col], Cursor_pane.row)
      end

Insertion in main.lua at line 471 [5.2]

[6.1486]

--?   print('after', Cursor_pane.col, Cursor_pane.row)

Insertion in main.lua at line 518 [5.2]

[6.2222]

end
function row(col, y)
  local sy = Margin_top
  for i,pane in ipairs(Surface[col]) do
    if sy > y then
      return i
    end
    sy = sy + Margin_above + Cache[pane.id].height + Margin_below + Padding_vertical
  end
  return #Surface[col]

Insertion in main.lua at line 531 [5.2]

[6.2227]

function up_edge_sx(col, row)
  local result = Margin_top
  for i=1,row-1 do
    local pane = Surface[col][i]
    result = result + Margin_above + Cache[pane.id].height + Margin_below + Padding_vertical
  end
  return result
end
function down_edge_sx(col, row)
  local result = Margin_top
  for i=1,row do
    local pane = Surface[col][i]
    result = result + Margin_above + Cache[pane.id].height + Margin_below + Padding_vertical
  end
  return result - Padding_vertical
end