" scroll_popup.vim
" Continuously scrolling popup with multi-line content

let s:text = []
for i in range(1, 50)
	call add(s:text, printf("This is scrolling line %02d — Vim popup demo", i))
endfor

let s:firstline = 1
let s:popup_id = -1

function! s:scroll_popup(timer) abort
	let s:firstline += 1

	" Wrap when reaching the end
	if s:firstline > len(s:text)
		let s:firstline = 1
	endif

	call popup_setoptions(s:popup_id, {'firstline': s:firstline})
endfunction

function! StartScrollingPopup() abort
	let s:popup_id = popup_create(s:text, {
		\ 'title': 'Scrolling Popup',
		\ 'pos': 'center',
		\ 'minwidth': 60,
		\ 'minheight': 10,
		\ 'maxheight': 10,
		\ 'border': [],
		\ 'scrollbar': 1,
		\ 'opacity': 100,
	\ })

	" Scroll every 500 ms
	call timer_start(1000, function('s:scroll_popup'), {'repeat': -1})
endfunction

call StartScrollingPopup()