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 ()