33 lines
941 B
Text
33 lines
941 B
Text
$newline always
|
|
<h3>Profile of #{ownerSlug}
|
|
$if presence == True
|
|
<a href=@{ProfileSettingsR ownerId}>Change your profile settings
|
|
|
|
$if null userAlbs
|
|
<ul class="noalbum">
|
|
<li>
|
|
This user has no albums yet
|
|
$else
|
|
Albums of this user:
|
|
<ul>
|
|
$forall (Entity albumId album) <- userAlbs
|
|
<li>
|
|
<a href=@{AlbumR albumId}>
|
|
<figure class="thumbnail">
|
|
$if (albumSamplePic album) == Nothing
|
|
<img src="/static/img/album.jpg"><br>
|
|
$else
|
|
<img src=#{T.pack $ fromJust $ albumSamplePic album}>
|
|
<figcaption>#{albumTitle album}
|
|
|
|
$if null recentMedia
|
|
This user has not uploaded any images
|
|
$else
|
|
Newest images:
|
|
<ul>
|
|
$forall (Entity mediumId medium) <- take 10 recentMedia
|
|
<li>
|
|
<a href=@{MediumR mediumId}>
|
|
<figure class="thumbnail">
|
|
<img src=#{mediumPath medium}>
|
|
<figcaption>#{mediumTitle medium}
|