some beautyfication

Handler/Medium.hs

@@ -12,6 +12,8 @@ getMediumR mediumId = do
       ownerId <- return $ mediumOwner medium
       owner <- runDB $ getJust ownerId
       ownerName <- return $ userName owner
+      albumId <- return $ mediumAlbum medium
+      album <- runDB $ getJust albumId
       msu <- lookupSession "userId"
       presence <- case msu of
         Just tempUserId -> do

templates/album.hamlet

@@ -11,6 +11,8 @@ by <a href=@{UserR ownerName}>#{ownerName}</a>
     This album is empty
   $else
     Images in this album:
+    <ul class="media">
+      <li>
         $forall (Entity mediumId medium) <- media
           <div class="thumbnails">
             <a href=@{MediumR mediumId}>

templates/medium.hamlet

@@ -1,6 +1,6 @@
 <h3>#{mediumTitle medium}
 
-by <a href=@{UserR ownerName}>#{ownerName}</a>
+by <a href=@{UserR ownerName}>#{ownerName}</a> from album <a href=@{AlbumR albumId}>#{albumTitle album}</a>
 
 
 

templates/profile.hamlet

@@ -4,10 +4,14 @@ $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:
   $forall (Entity albumId album) <- userAlbs
+    <ul class="albums">
+      <li>
         <div class="thumbnails">
           <a href=@{AlbumR albumId}>
             $if (albumSamplePic album) == Nothing
@@ -20,6 +24,8 @@ $if null recentMedia
   This user has not uploaded any images
 $else
   Newest images:
+  <ul class="media">
+    <li>
       $forall (Entity mediumId medium) <- take 10 recentMedia
         <div class="thumbnails">
           <a href=@{MediumR mediumId}>