mirrors/TiddlyWiki5
1
0
Fork 0
mirror of https://github.com/Jermolene/TiddlyWiki5 synced 2024-12-25 01:20:30 +00:00
Code Issues Releases Wiki Activity

Flickr demo: refactor to get photosets or interesting set

Browse Source
This commit is contained in:
jeremy@jermolene.com 2023-01-18 08:38:06 +00:00
parent 797c8e64ec
commit 1ba7c0d60c
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
editions/tw5.com/tiddlers/messages/WidgetMessage_ tm-http-request Example Flickr.tid
View File

@ -1,7 +1,10 @@
title: WidgetMessage: tm-http-request Example - Flickr
tags: $:/tags/Macro
\define flickr-get-album-items()
<!--
Get items from a Flickr album/interestingness/collection etc.
-->
\define flickr-get-items(method:"flickr.photosets.getPhotos",resultPhotoRoot:"photoset")
\define completion()
\import [[$:/core/ui/PageMacros]] [all[shadows+tiddlers]tag[$:/tags/Macro]!has[draft.of]]
@ -9,9 +12,9 @@ tags: $:/tags/Macro
<$action-log/>
<!-- Success -->
<$list filter="[<status>compare:number:gteq[200]compare:number:lteq[299]]" variable="ignore">
<$list filter="[<data>jsonindexes[photoset],[photo]]" variable="photoIndex">
<$list filter="[<data>jsonindexes<resultPhotoRoot>,[photo]]" variable="photoIndex">
<$let
photoData={{{ [<data>jsonextract[photoset],[photo],<photoIndex>] }}}
photoData={{{ [<data>jsonextract<resultPhotoRoot>,[photo],<photoIndex>] }}}
photoFarm={{{ [<photoData>jsonget[farm]] }}}
photoServer={{{ [<photoData>jsonget[server]] }}}
photoID={{{ [<photoData>jsonget[id]] }}}
@ -45,7 +48,7 @@ https://api.flickr.com/services/rest/
$message="tm-http-request"
url=<<request-url>>
method="GET"
query-method="flickr.photosets.getPhotos"
query-method=<<__method__>>
query-extras="geo"
query-format="json"
query-nojsoncallback="1"
@ -58,9 +61,18 @@ https://api.flickr.com/services/rest/
onprogress=<<progress>>
var-start=<<__start__>>
var-limit=<<__limit__>>
var-resultPhotoRoot=<<__resultPhotoRoot__>>
/>
\end
\define flickr-get-album-items()
<$macrocall $name="flickr-get-items" method="flickr.photosets.getPhotos" resultPhotoRoot="photoset"/>
\end
\define flickr-get-interesting-items()
<$macrocall $name="flickr-get-items" method="flickr.interestingness.getList" resultPhotoRoot="photos"/>
\end
\define flickr-actions()
<$macrocall $name="flickr-get-album-items"/>
\end
@ -71,8 +83,14 @@ Flickr API Key: <$password name="flickr-api-key"/>
Flickr album ID: <$edit-text tiddler="$:/config/flickr-album" tag="input"/>
<$button actions=<<flickr-actions>>>
Call Flickr
<$button>
<$macrocall $name="flickr-get-album-items"/>
Get Flickr album
</$button>
<$button>
<$macrocall $name="flickr-get-interesting-items"/>
Get Flickr interesting items
</$button>
<$geomap