From a0004946d6ba51546ebfef551248235c2cd78674 Mon Sep 17 00:00:00 2001
From: Danielle McLean <dani@00dani.me>
Date: Sun, 15 Oct 2017 22:34:05 +1100
Subject: [PATCH] Avoid rendering Markdown when pushing entry content into the
 og:description, and also, add the standard meta description and meta author

---
 src/Handler/Entries.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Entries.hs b/src/Handler/Entries.hs
index 8199a3a..bd73934 100644
--- a/src/Handler/Entries.hs
+++ b/src/Handler/Entries.hs
@@ -9,6 +9,7 @@ import Yesod.AtomFeed ( atomLink )
 
 import Model.Cache ( getCached )
 import Model.Entry ( entryTitle )
+import Model.Markdown ( unMarkdown )
 import Widget.Entry ( entryR, hEntry )
 import Widget.Feed ( hFeed )
 
@@ -40,9 +41,12 @@ renderEntry entry = do
     defaultLayout $ do
         setTitle . toHtml . entryTitle . entityVal $ entry
         toWidgetHead [hamlet|
+            <meta name="author" content=#{userFullName $ entityVal author}>
+            <link rel="author" href=@{userProfile $ entityVal author}>
+            <meta name="description" content=#{unMarkdown $ entryContent $ entityVal entry}>
             <meta property="og:title" content=#{entryTitle $ entityVal entry}>
             <meta property="og:type" content="article">
-            <meta property="og:description" content=#{entryContent $ entityVal entry}>
+            <meta property="og:description" content=#{unMarkdown $ entryContent $ entityVal entry}>
             <meta property="article:author" content=@{userProfile $ entityVal author}>
             <meta property="article:section" content=#{K.pluralise $ entryKind $ entityVal entry}>
             |]