refined picture tag

This commit is contained in:
nek0 2015-10-06 03:19:15 +02:00
parent 5e877fa287
commit e6b37bed60
3 changed files with 4 additions and 2 deletions

View File

@ -59,6 +59,7 @@ getMediumR mediumId = do
, CommentParent !=. Nothing ]
[ Desc CommentTime ]
let dataWidth = if mediumWidth medium >= 850 then 850 else mediumWidth medium
let tr = StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumThumb medium) []
let pr = StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumPreview medium) []
let ir = StaticR $ StaticRoute (drop 2 $ map T.pack $ splitDirectories $ mediumPath medium) []
formLayout $ do

0
config/favicon.ico Normal file → Executable file
View File

Before

Width:  |  Height:  |  Size: 1.3 KiB

After

Width:  |  Height:  |  Size: 1.3 KiB

View File

@ -8,8 +8,9 @@
<div class="inner">
<a href=@{ir}>
<picture>
<source srcset="@{pr}, @{ir} 2x" media="(min-width: 100px)">
<img srcset="@{pr}, @{ir} 2x" src=@{pr} title=#{mediumTitle medium}>
<source srcset="@{pr}, @{ir} 2x" media="(min-width: 1400px)">
<source srcset="@{tr}, @{pr} 2x">
<img src=@{pr} title=#{mediumTitle medium}>
<div id="header" class="item" data-width="400">
<div class="inner">