2014-08-12 21:45:33 +00:00
|
|
|
$newline always
|
2016-08-30 12:22:00 +00:00
|
|
|
<div #header>
|
|
|
|
<h1>Profile of #{ownerSlug}
|
|
|
|
$if presence == True
|
|
|
|
<a href=@{ProfileSettingsR ownerId}>Change your profile settings
|
2014-08-12 21:45:33 +00:00
|
|
|
|
2016-08-30 12:22:00 +00:00
|
|
|
<div #reel>
|
|
|
|
<article .subheader .item>
|
2015-01-11 07:06:48 +00:00
|
|
|
$if null userAlbs
|
|
|
|
<p class="center">This user has no albums yet
|
|
|
|
$else
|
|
|
|
<h1>Albums
|
|
|
|
<p>Albums of this user:
|
2016-08-30 12:22:00 +00:00
|
|
|
$if not (null userAlbs)
|
|
|
|
$forall (Entity albumId album) <- userAlbs
|
|
|
|
<article class="item">
|
|
|
|
<a href=@{AlbumR albumId}>
|
|
|
|
<figure>
|
|
|
|
$if (albumSamplePic album) == Nothing
|
|
|
|
<img src=@{StaticR img_album_jpg} title=#{albumTitle album}>
|
|
|
|
$else
|
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ fromJust $ albumSamplePic album) []} title=#{albumTitle album}>
|
|
|
|
<figcaption>#{albumTitle album}
|
|
|
|
|
|
|
|
$if not (null sharedAlbs)
|
|
|
|
<article .subheader .item>
|
2015-01-11 07:06:48 +00:00
|
|
|
<h1>Shared Albums
|
|
|
|
<p>Albums shared with this user:
|
2016-08-30 12:22:00 +00:00
|
|
|
$forall Just (Entity albumId album) <- sharedAlbs
|
|
|
|
<article .item>
|
|
|
|
<a href=@{AlbumR albumId}>
|
|
|
|
<figure>
|
|
|
|
$if (albumSamplePic album) == Nothing
|
|
|
|
<img src=@{StaticR img_album_jpg}>
|
|
|
|
$else
|
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ fromJust $ albumSamplePic album) []} title=#{albumTitle album}>
|
|
|
|
<figcaption>#{albumTitle album}
|
|
|
|
|
|
|
|
$if not (null recentMedia)
|
|
|
|
<article .subheader .item>
|
2015-01-11 07:06:48 +00:00
|
|
|
<h1>Newest images
|
|
|
|
<p>recent uploads of #{ownerSlug}
|
2016-08-30 12:22:00 +00:00
|
|
|
$forall (Entity mediumId medium) <- take 10 recentMedia
|
|
|
|
<article .item>
|
|
|
|
<a href=@{MediumR mediumId}>
|
|
|
|
<figure>
|
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumThumb medium) []} title=#{mediumTitle medium}>
|
|
|
|
<figcaption>#{mediumTitle medium}
|