-- footer menu: second cursor zone; ←/→ pick, 🅾 activate, x/select return.
in_menu=false
menu_sel=1
menu_labels=split"reply,repost,quote,like,post,credits"
-- footer icons parallel to menu_labels; "•" separates engagement (1-4) from global (5-6).
menu_icons={8,9,14,11,12,15}

function mobile() return (rpin(126)&1)>0 end
-- footer label for the 🅾 button: the 🅾 glyph (\142) on mobile, the "z" key on
-- desktop (where 🅾 is bound to z, so showing the glyph would mislead).
function obtn() return mobile() and "\142" or "z" end

-- "like"/"repost" are contextual: show the undo verb once already done.
function menu_label(i)
 local l=menu_labels[i]
 local p=posts[sel]
 if l=="like" then return (p and p.liked) and "unlike" or "like" end
 if l=="repost" then return (p and p.reposted) and "unrepost" or "repost" end
 return l
end

-- bump a plain-integer count field by d (formatted "k" counts are left alone).
function bump_count(p,k,d)
 local n=tonum(p[k])
 if n and n==flr(n) then p[k]=tostr(flr(n+d)) end
end

-- toggle like on a post/comment: optimistic local flip + tell js (op_like).
function toggle_like(p)
 if not p then return end
 p.liked=not p.liked
 bump_count(p,"likes",p.liked and 1 or -1)
 if ONLINE then enqueue(op_like,p.refid,p.liked and "1" or "0") end
 sfx(p.liked and 3 or 1)
end

-- toggle repost: same shape as like, against an app.bsky.feed.repost record.
function toggle_repost(p)
 if not p then return end
 p.reposted=not p.reposted
 bump_count(p,"reposts",p.reposted and 1 or -1)
 if ONLINE then enqueue(op_repost,p.refid,p.reposted and "1" or "0") end
 sfx(p.reposted and 3 or 1)
end

function toggle_menu()
 in_menu=not in_menu
 if in_menu then menu_sel=1 end -- always open on the first item (reply)
 sfx(0)
end

function menu_activate()
 local m=menu_labels[menu_sel]
 local p=posts[sel]
 in_menu=false
 if m=="reply" then if p then open_compose(p.refid) sfx(3) end
 elseif m=="like" then toggle_like(p)
 elseif m=="repost" then toggle_repost(p)
 elseif m=="quote" then if p then open_compose(0,p.refid,p.name) sfx(3) end
 elseif m=="post" then open_compose(0) sfx(3)
 elseif m=="credits" then enter_demo() end
end

-- 1 when the next 🅾 press opens compose (feed, or menu on post/quote)
function compose_intent()
 if scr==scr_timeline or scr==scr_thread then
  if in_menu then local m=menu_labels[menu_sel] return (m=="post" or m=="quote" or m=="reply") and 1 or 0 end
  return 0
 end
 return 0
end

function update_nav()
 local is_nav=scr==scr_timeline or scr==scr_thread
 -- handle keyboard: menu keys take priority over global shortcuts
 while stat(30) do
  local c=stat(31)
  if is_nav and in_menu then
   if c=="\13" then menu_activate() return
   elseif c=="\27" then toggle_menu() return end
  elseif is_nav and c=="\27" and scr==scr_thread then
   open_timeline(false) sfx(1) return
  elseif is_nav and (c=="l" or c=="L") then toggle_like(posts[sel])
  elseif is_nav and (c=="s" or c=="S") then toggle_repost(posts[sel])
  elseif is_nav and (c=="q" or c=="Q") then
   local p=posts[sel] if p then open_compose(0,p.refid,p.name) sfx(3) end
  elseif c=="t" or c=="T" then theme=1-theme sfx(0)
  elseif c=="r" or c=="R" then open_timeline(true)
  elseif c=="d" or c=="D" then enter_demo()
  elseif c=="n" or c=="N" then open_compose(0) sfx(3) end
 end
 if is_nav then
  -- cursor in the footer menu: ←/→ pick, 🅾/z/enter activate, x/esc exit
  if in_menu then
   if btnp(0) then menu_sel=max(1,menu_sel-1) sfx(0) end
   if btnp(1) then menu_sel=min(#menu_labels,menu_sel+1) sfx(0) end
   if btnp(4) then menu_activate() end
   if btnp(5) then in_menu=false sfx(1) end
   return
  end
  local p=posts[sel]
  local expanded=p and p.expanded
  if expanded then
   -- up/down scroll within the expanded post; navigate at boundaries
   if btnp(2) then
    if (p.scroll or 0)>0 then p.scroll-=1 sfx(0)
    else sel=max(1,sel-1) sfx(0) end
   end
   if btnp(3) then
    local total=p.lines and #p.lines or 0
    local cap=p.vis_lines or 3
    if (p.scroll or 0)<max(0,total-cap) then p.scroll+=1 sfx(0)
    else sel=min(max(1,#posts),sel+1) sfx(0) end
   end
  else
   -- normal post navigation
   if btnp(2) then sel=max(1,sel-1) sfx(0) end
   if btnp(3) then sel=min(max(1,#posts),sel+1) sfx(0) end
  end
  -- right: expand selected post (only when there is hidden content)
  if btnp(1) then
   if p then
    if not p.lines then
     p.lines=wrap(p.text,flr((120-2-p.depth*4)/4))
    end
    local has_more=#p.lines>3
    if has_more and not p.expanded then
     p.expanded=true p.scroll=0
     scroll=sel-1  -- pin expanded post to top of viewport
     sfx(0)
    end
   end
  end
  -- left: collapse selected post
  if btnp(0) then
   if p and p.expanded then
    p.expanded=false p.scroll=0 sfx(0)
   end
  end
  if scr==scr_timeline then
   if btnp(4) then toggle_menu() end
   if btnp(5) and posts[sel] then
    local cp=posts[sel]
    if cp.depth>0 then
     -- self-reply: find nearest depth-0 parent above, open its thread focused here
     local par=nil
     for i=sel-1,1,-1 do
      if posts[i].depth<cp.depth then par=posts[i] break end
     end
     if par then open_thread(par.refid,cp.refid) sfx(2)
     elseif cp.replies!="0" then open_thread(cp.refid) sfx(2) end
    elseif cp.replies!="0" then
     open_thread(cp.refid) sfx(2)
    end
   end
  elseif scr==scr_thread then
   if btnp(4) then toggle_menu() end
   if btnp(5) then open_timeline(false) sfx(1) end
  end
  -- auto-load: guard scr so open_thread's nav can't race in-flight REQ_MORE
  if scr==scr_timeline and sel>=max(1,#posts-2) then load_more() end
 elseif scr==scr_auth then
  -- waits for js to recover the session
 end
 -- skip scroll-clamp on first frame back: heights not cached yet, would stomp restored scroll.
 if just_switched then
  just_switched=false
 else
  local p=posts[sel]
  if p and p.expanded then
   scroll=sel-1
  elseif p then
   local cb=status_showing() and 111 or 118
   local top,ok=12,sel>scroll
   for i=scroll+1,sel-1 do
    local h=posts[i] and posts[i].h
    if not h then ok=false break end
    top+=h
   end
   local h=p.h
   if (not ok) or sel<=scroll or top<11 or not h or top+h-2>cb then
    scroll=sel-1
   end
  end
 end
end

function cancel_compose()
 reset_draft()
 sfx(1) -- back/cancel
 open_timeline(false)
end

function update_compose()
 poke(0x5f30,1) -- suppress pause this frame
 if btnp(4) and btn(5) or btn(4) and btnp(5) then poke(0x5f2d,1) end -- o+x: re-open soft keyboard
 -- cancel is keyboard-only (esc/backspace): 🅾/❎ keys double as typed chars here.
 while stat(30) do
  local c=stat(31)
  if c=="\13" then        -- enter = send
   send_draft() return
  elseif c=="\27" then    -- esc = cancel
   cancel_compose() return
  elseif c=="\8" then     -- backspace (on empty = cancel)
   if #draft>0 then draft=sub(draft,1,#draft-1) sfx(5)
   else cancel_compose() return end
  elseif c>=" " and #draft<maxchars then
   draft=draft..c
   sfx(4) -- keystroke tick
  end
 end
end