now retrieving thumbnail sizes

src/Main.hs

@@ -63,4 +63,3 @@ build showDrafts = do
     Projects.build
     Posts.build showDrafts
     Readings.build
-

src/Templates.hs

@@ -76,7 +76,6 @@ outerWith SiteConfig{title,..} content = doctypehtml_ do
                 a_ [ href_ "/visual.html"   ] "Visual"
                 a_ [ href_ "/readings.html" ] "Readings"
                 a_ [ href_ "/quid.html"     ] "Quid"
-                a_ [ href_ "/atom.xml"      ] "Feed"
 
         main_ content
 

src/Visual.hs

@@ -9,20 +9,36 @@ build :: Task IO ()
 build = do
     pictures <- match "visual/*" \src -> do
       copyFile src
-      callCommandWith
-         (\a b -> "convert -resize 740x " <> a <> " " <> b)
-         (-<.> "thumb.png")
-         src
-      <&> timestamped
+      src' <- toAbsolute src
+      size <- (resized . read)
+              <$> readCommand "identify" ["-ping", "-format", "(%w, %h)", src']
+      processMagick src
+        <&> timestamped
+        <&> fmap (size,) 
 
     watch pictures $ match_ "./visual.rst" \src -> do
         intro <- compilePandoc src
         write "visual.html" $ renderVisual intro (recentFirst pictures)
 
-renderVisual :: Text -> [Timestamped FilePath] -> Html ()
+resized :: (Int, Int) -> (Int, Int)
+resized (width, height) = (710, round $ fi height * 710.0 / fi width)
+    where
+        fi :: Int -> Float
+        fi = fromIntegral
+
+renderVisual :: Text -> [Timestamped ((Int, Int), FilePath)] -> Html ()
 renderVisual txt imgs =
     outerWith def {title = "visual"} do
         toHtmlRaw txt
         hr_ []
-        section_ $ forM_ imgs \ (Timestamped _ p) ->
-            figure_ $ img_ [ src_ (fromString p), loading_ "lazy" ]
+        section_ $ forM_ imgs \ (Timestamped _ ((width, height), p)) ->
+            figure_ $ img_
+                [ src_ (fromString p)
+                , width_ (fromString $ show width)
+                , height_ (fromString $ show height)
+                , loading_ "lazy" ]
+
+processMagick :: FilePath -> Task IO FilePath
+processMagick = callCommandWith
+    (\a b -> "convert -resize 710x " <> a <> " " <> b)
+    (-<.> "thumb.webp")