\define totext() <$text text="""$(cult_field_val)$"""/>
<$button>
Fill the cultures field
<$list filter="[all[tiddlers]tag[+tmp-data-site]]" >
<$set name="site_tid" filter="[<currentTiddler>removesuffix[.geojson]]" >
<$set name="cult_field_cur" value=<<cult_field_val>> emptyValue="">
<$list variable="cult-path" filter="[<currentTiddler>indexes[/features/0/properties/cultures]addprefix[/features/0/properties/cultures/]]" >
<$wikify name="cult-path-w" text=<<cult-path>> >
<$set name="cult_field_val" filter="[<currentTiddler>getindex<cult-path>addprefix<cult_field_cur>]" >
<$set name="cult_list" value=<<totext>> >
<$wikify name="cult_list_w" text=<<cult_list>> >
<<cult_list_w>>
<$action-setfield $tiddler=<<site_tid>> $field="cultures" $value=<<cult_list_w>> />
</$wikify>
</$set>
</$set>
</$wikify>
</$list>
</$set>
</$set>
</$list>
</$button>