From 290af7c2f24feb6cc7808d78378647a7a27b0a3f Mon Sep 17 00:00:00 2001
From: "jeremy@jermolene.com" <jeremy@jermolene.com>
Date: Wed, 18 Jan 2023 11:55:20 +0000
Subject: [PATCH] Add pagination to Flickr example

---
 ...etMessage_ tm-http-request Example Flickr.tid | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/editions/tw5.com/tiddlers/messages/WidgetMessage_ tm-http-request Example Flickr.tid b/editions/tw5.com/tiddlers/messages/WidgetMessage_ tm-http-request Example Flickr.tid
index 2aea14729..1e2ebef3e 100644
--- a/editions/tw5.com/tiddlers/messages/WidgetMessage_ tm-http-request Example Flickr.tid	
+++ b/editions/tw5.com/tiddlers/messages/WidgetMessage_ tm-http-request Example Flickr.tid	
@@ -4,7 +4,7 @@ tags: $:/tags/Macro
 <!--
 Get items from a Flickr album/interestingness/collection etc.
 -->
-\procedure flickr-get-items(method:"flickr.photosets.getPhotos",resultPhotoRoot:"photoset")
+\procedure flickr-get-items(per_page:"100",page_number:"1",method:"flickr.photosets.getPhotos",resultPhotoRoot:"photoset")
 
 \procedure completion()
 \import [[$:/core/ui/PageMacros]] [all[shadows+tiddlers]tag[$:/tags/Macro]!has[draft.of]]
@@ -32,6 +32,13 @@ Get items from a Flickr album/interestingness/collection etc.
 				/>
 			</$let>
 		</$list>
+		<$let
+			pages={{{ [<data>jsonget[photos],[pages]] }}}
+		>
+			<$list filter="[<page_number>compare:number:lt<pages>]" variable="ignore">
+				<$macrocall $name="flickr-get-items" page_page=<<per_page>> page_number={{{ [<page_number>add[1]] }}} method=<<method>> resultPhotoRoot=<<resultPhotoRoot>>/>
+			</$list>
+		</$let>
 	</$list>
 \end completion
 
@@ -50,6 +57,8 @@ https://api.flickr.com/services/rest/
 	method="GET"
 	query-method=<<method>>
 	query-extras="geo"
+	query-per_page=<<per_page>>
+	query-page=<<page_number>>
 	query-format="json"
 	query-nojsoncallback="1"
 	query-photoset_id={{$:/config/flickr-album}}
@@ -59,8 +68,9 @@ https://api.flickr.com/services/rest/
 	bind-progress="$:/temp/flickr/progress"
 	oncompletion=<<completion>>
 	onprogress=<<progress>>
-	var-start=<<start>>
-	var-limit=<<limit>>
+	var-method=<<method>>
+	var-per_page=<<per_page>>
+	var-page_number=<<page_number>>
 	var-resultPhotoRoot=<<resultPhotoRoot>>
 />
 \end