Show meta-data as image title

This commit is contained in:
Alexander Kobjolke 2023-12-12 10:50:07 +01:00
parent a4501d5cb5
commit 5f80082567
2 changed files with 4 additions and 0 deletions

3
app.js
View file

@ -6746,6 +6746,7 @@ var $elm$html$Html$Attributes$classList = function (classes) {
$elm$core$Tuple$first, $elm$core$Tuple$first,
A2($elm$core$List$filter, $elm$core$Tuple$second, classes)))); A2($elm$core$List$filter, $elm$core$Tuple$second, classes))));
}; };
var $elm$html$Html$Attributes$title = $elm$html$Html$Attributes$stringProperty('title');
var $author$project$PhotoGroove$viewThumbnail = F2( var $author$project$PhotoGroove$viewThumbnail = F2(
function (selectedUrl, thumb) { function (selectedUrl, thumb) {
return A2( return A2(
@ -6754,6 +6755,8 @@ var $author$project$PhotoGroove$viewThumbnail = F2(
[ [
$elm$html$Html$Attributes$src( $elm$html$Html$Attributes$src(
_Utils_ap($author$project$PhotoGroove$urlPrefix, thumb.url)), _Utils_ap($author$project$PhotoGroove$urlPrefix, thumb.url)),
$elm$html$Html$Attributes$title(
thumb.title + (' [' + ($elm$core$String$fromInt(thumb.size) + ' KB]'))),
$elm$html$Html$Attributes$classList( $elm$html$Html$Attributes$classList(
_List_fromArray( _List_fromArray(
[ [

View file

@ -92,6 +92,7 @@ viewThumbnail : String -> Photo -> Html Message
viewThumbnail selectedUrl thumb = viewThumbnail selectedUrl thumb =
img img
[ src (urlPrefix ++ thumb.url) [ src (urlPrefix ++ thumb.url)
, title (thumb.title ++ " [" ++ String.fromInt thumb.size ++ " KB]")
, classList [ ( "selected", selectedUrl == thumb.url ) ] , classList [ ( "selected", selectedUrl == thumb.url ) ]
, onClick (ClickedThumbnail thumb.url) , onClick (ClickedThumbnail thumb.url)
] ]