diff --git a/src/Roux/Html.hs b/src/Roux/Html.hs index 54968eb..06db893 100644 --- a/src/Roux/Html.hs +++ b/src/Roux/Html.hs @@ -337,7 +337,12 @@ renderRecipe recipe = do case course of Just c -> H.p ! A.class_ "roux-course" $ H.toHtml c Nothing -> pure () - H.h1 $ H.toHtml (titleText recipe) + H.div ! A.style "display: flex; justify-content: space-between; align-items: baseline; gap: 1rem;" $ do + H.h1 $ H.toHtml (titleText recipe) + case metaSource meta of + Just url -> H.a ! A.href (H.toValue url) ! A.target "_blank" ! A.rel "noopener noreferrer" ! A.style "white-space: nowrap; font-size: 0.8rem; flex-shrink: 0;" $ do + "↗ Original recipe" + Nothing -> pure () case desc of Just d -> H.p ! A.class_ "roux-desc" $ H.toHtml d Nothing -> pure ()