Show meta-data as image title
This commit is contained in:
parent
a4501d5cb5
commit
5f80082567
2 changed files with 4 additions and 0 deletions
3
app.js
3
app.js
|
|
@ -6746,6 +6746,7 @@ var $elm$html$Html$Attributes$classList = function (classes) {
|
|||
$elm$core$Tuple$first,
|
||||
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(
|
||||
function (selectedUrl, thumb) {
|
||||
return A2(
|
||||
|
|
@ -6754,6 +6755,8 @@ var $author$project$PhotoGroove$viewThumbnail = F2(
|
|||
[
|
||||
$elm$html$Html$Attributes$src(
|
||||
_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(
|
||||
_List_fromArray(
|
||||
[
|
||||
|
|
|
|||
|
|
@ -92,6 +92,7 @@ viewThumbnail : String -> Photo -> Html Message
|
|||
viewThumbnail selectedUrl thumb =
|
||||
img
|
||||
[ src (urlPrefix ++ thumb.url)
|
||||
, title (thumb.title ++ " [" ++ String.fromInt thumb.size ++ " KB]")
|
||||
, classList [ ( "selected", selectedUrl == thumb.url ) ]
|
||||
, onClick (ClickedThumbnail thumb.url)
|
||||
]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue