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,
|
$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(
|
||||||
[
|
[
|
||||||
|
|
|
||||||
|
|
@ -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)
|
||||||
]
|
]
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue