eidolon/templates/medium.hamlet

<div .column>
  <div .medium>
    <h1>#{mediumTitle medium}
    <p>
      by <a href=@{UserR ownerName}>#{ownerName}</a> from album <a href=@{AlbumR albumId}>#{albumTitle album}</a>
  <div .medium .image>
    <a href=@{ir}>
      <picture>
        <source srcset="@{pr}, @{ir} 2x" media="(min-width: 600px)">
        <source srcset="@{tr}, @{pr} 2x">
        <img src=@{pr} title=#{mediumTitle medium}>
  
  <div .medium>
    <p>
      Licence:
      <p>
        $maybe thing <- link
          <a href=#{thing} target="_blank">#{lic}
        $nothing
          #{lic}
    <p>
      Uploaded on: #{formatTime defaultTimeLocale "%A %F %H:%M" (mediumTime medium)}<br>
      $maybe d <- mediumDescription medium
        Description:<br>
        #{d}
      $nothing
        No description given
  
    <div .tags>
        <p>
          Tags:
          <ul>
            $if null (mediumTags medium)
              none
            $else
              $forall tag <- mediumTags medium
                <li>
                  <a href=@{TagR tag}>#{tag}
      $if presence == True
        <a href=@{MediumSettingsR mediumId}>Change medium settings
  
  $if null comments
    <div class="medium">
      <p>There are no Comments yet
  $else
    $forall (Entity commentId comment) <- comments
      <div .medium .comment>
        <a href=@{ProfileR $ commentAuthor comment}>#{fromMaybe "" $ lookup (commentAuthor comment) authors}</a> wrote on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime comment}:
        <hr>
        #{commentContent comment}
        <hr>
        $if userId /= Nothing
          <hr>
          <a href=@{CommentReplyR commentId}>Reply to this comment
          $if userId == (Just $ commentAuthor comment)
            <a href=@{CommentDeleteR commentId}>Delete this comment
        $forall (Entity replyId reply) <- replies
          $if commentParent reply == Just commentId
            <div .comment .reply>
              <a href=@{ProfileR $ commentAuthor reply}>#{fromMaybe "" $ lookup (commentAuthor reply) authors}</a> replied on #{formatTime defaultTimeLocale "%A %F %H:%M" $ commentTime reply}:
              <hr>
              #{commentContent reply}
              <hr>
              $if userId == (Just $ commentAuthor reply)
                <a href=@{CommentDeleteR replyId}>Delete this comment
    
  $if userId /= Nothing
    <div .medium>
      <form method=post enctype=#{enctype}>
        ^{commentWidget}

<style type="text/css">
  body{background-image: url('/static/css/images/overlay.png'),	-webkit-linear-gradient(top, rgba(0,0,0,0) 75%, rgba(0,0,0,0.65)), url('@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumPath medium) []}');background-attachment:fixed;background-image: url('/static/css/images/overlay.png'), -moz-linear-gradient(center top , transparent 75%, rgba(0, 0, 0, 0.65)), url('@{StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumPath medium) []}');}