24 lines
598 B
Nim
24 lines
598 B
Nim
## Example that shows how to accomplish an "infinitely scrolling" app.
|
|
|
|
include karaxprelude
|
|
import jstrutils, dom
|
|
|
|
var entries: seq[cstring] = @[]
|
|
for i in 1..500:
|
|
entries.add(cstring("Entry ") & &i)
|
|
|
|
proc scrollEvent(ev: Event; n: VNode) =
|
|
let d = n.dom
|
|
if d != nil and inViewport(d.lastChild):
|
|
# "load" more data:
|
|
for i in 1..50:
|
|
entries.add(cstring("Loaded Entry ") & &i)
|
|
|
|
proc createDom(): VNode =
|
|
result = buildHtml():
|
|
tdiv(onscroll=scrollEvent, style="height: 400px; overflow: scroll"):
|
|
for x in entries:
|
|
tdiv:
|
|
text x
|
|
|
|
setRenderer createDom
|