@main[] ^1251[] ^test_exif[096_dir] @test_exif[dir][file;image;keys] $file[^file:list[$dir;\.(?i:jpe?g)^$]] ^file.sort{$file.name} ^file.menu{ $image[^image::measure[$dir/$file.name; $.exif(true) $.xmp(true) ]] }
^image.html[$.width(100)$.height(100)] $file.name
^if($image.exif){ $keys[^image.exif._keys[]] ^keys.sort{$keys.key} ^keys.menu{ ${keys.key}: ^show_exif_value[$image.exif.[$keys.key]] }[
] }{ no EXIF info
}
XMP
$image.xmp
@show_exif_value[value][i] ^if($value is date){ ^value.sql-string[] }{ ^if($value is hash){ ^for[i](0;$value-1){$value.$i}[,] }{ $value } }