2014-08-12 21:45:33 +00:00
|
|
|
$newline always
|
2015-01-11 07:06:48 +00:00
|
|
|
<div id="header" class="item" data-width="400">
|
|
|
|
<div class="inner">
|
|
|
|
<h1>Profile of #{ownerSlug}
|
2015-01-11 07:57:38 +00:00
|
|
|
$if presence == True
|
|
|
|
<a href=@{ProfileSettingsR ownerId}>Change your profile settings
|
2014-08-12 21:45:33 +00:00
|
|
|
|
2015-01-11 07:06:48 +00:00
|
|
|
<div id="header" class="item" data-width="400">
|
|
|
|
<div class="inner">
|
|
|
|
$if null userAlbs
|
|
|
|
<p class="center">This user has no albums yet
|
|
|
|
$else
|
|
|
|
<h1>Albums
|
|
|
|
<p>Albums of this user:
|
2014-09-14 05:49:42 +00:00
|
|
|
<ul>
|
2015-01-11 07:06:48 +00:00
|
|
|
$forall (Entity albumId album) <- userAlbs
|
|
|
|
<article class="item" data-width=#{albumSampleWidth album}>
|
|
|
|
<a href=@{AlbumR albumId}>
|
|
|
|
<figure class="thumbnail">
|
|
|
|
$if (albumSamplePic album) == Nothing
|
2015-02-12 04:25:15 +00:00
|
|
|
<img src=@{StaticR img_album_jpg}>
|
2015-01-11 07:06:48 +00:00
|
|
|
$else
|
2015-02-12 04:25:15 +00:00
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ fromJust $ albumSamplePic album) []}>
|
2015-01-11 07:06:48 +00:00
|
|
|
<figcaption>#{albumTitle album}
|
2014-08-12 21:45:33 +00:00
|
|
|
|
2014-12-06 03:39:24 +00:00
|
|
|
$if null sharedAlbs
|
|
|
|
$else
|
2015-01-11 07:06:48 +00:00
|
|
|
<div id="header" class="item" data-width="400">
|
|
|
|
<div class="inner">
|
|
|
|
<h1>Shared Albums
|
|
|
|
<p>Albums shared with this user:
|
|
|
|
$forall Just (Entity albumId album) <- sharedAlbs
|
|
|
|
<article class="shared item" data-width=#{albumSampleWidth album}>
|
|
|
|
<a href=@{AlbumR albumId}>
|
|
|
|
<figure class="thumbnail">
|
|
|
|
$if (albumSamplePic album) == Nothing
|
2015-02-12 04:25:15 +00:00
|
|
|
<img src=@{StaticR img_album_jpg}>
|
2015-01-11 07:06:48 +00:00
|
|
|
$else
|
2015-02-12 04:25:15 +00:00
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ fromJust $ albumSamplePic album) []}>
|
2015-01-11 07:06:48 +00:00
|
|
|
<figcaption>#{albumTitle album}
|
2014-12-06 03:39:24 +00:00
|
|
|
|
2014-08-15 11:25:33 +00:00
|
|
|
$if null recentMedia
|
2014-08-12 21:45:33 +00:00
|
|
|
$else
|
2015-01-11 07:06:48 +00:00
|
|
|
<div id="header" class="item" data-width="400">
|
|
|
|
<div class="inner">
|
|
|
|
<h1>Newest images
|
|
|
|
<p>recent uploads of #{ownerSlug}
|
|
|
|
$forall (Entity mediumId medium) <- take 10 recentMedia
|
|
|
|
<article class="recent item" data-width=#{mediumThumbWidth medium}>
|
|
|
|
<a href=@{MediumR mediumId}>
|
|
|
|
<figure class="thumbnail">
|
2015-02-12 04:25:15 +00:00
|
|
|
<img src=@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumThumb medium) []}>
|
2015-01-11 07:06:48 +00:00
|
|
|
<figcaption>#{mediumTitle medium}
|
2014-12-19 21:36:15 +00:00
|
|
|
|
2015-01-11 07:06:48 +00:00
|
|
|
<div id="footer">
|
|
|
|
<div class="right">
|
|
|
|
get a feed from this:
|
|
|
|
<a href=@{UserFeedAtomR ownerId}>Atom
|
|
|
|
<a href=@{UserFeedRssR ownerId}>RSS
|