chore(tazblog): Remove 'read more' feature

services/tazblog/src/Blog.hs

@@ -82,13 +82,9 @@ $forall entry <- entries
     <aside .date>
       #{pack $ formatTime defaultTimeLocale "%Y-%m-%d" $ edate entry}
     $if (isEntryMarkdown entry)
-      ^{renderEntryMarkdown $ btext entry}
+      ^{renderEntryMarkdown $ text entry}
     $else
-      ^{preEscapedToHtml $ btext entry}
-    $if ((/=) (mtext entry) empty)
-      <p>
-        <a .uncoloured-link href=#{linkElems entry}>
-          #{readMore $ lang entry}
+      ^{preEscapedToHtml $ text entry}
   <hr>
 $maybe links <- pageLinks
   ^{links}
@@ -126,11 +122,9 @@ renderEntry e@Entry {..} =
   <aside .date>
     #{pack $ formatTime defaultTimeLocale "%Y-%m-%d" edate}
   $if (isEntryMarkdown e)
-    ^{renderEntryMarkdown btext}
-    <p>^{renderEntryMarkdown $ mtext}
+    ^{renderEntryMarkdown text}
   $else
-    ^{preEscapedToHtml $ btext}
-    <p>^{preEscapedToHtml $ mtext}
+    ^{preEscapedToHtml $ text}
 <hr>
 |]
 

services/tazblog/src/BlogStore.hs

@@ -57,8 +57,7 @@ data Entry
         lang :: BlogLang,
         author :: Text,
         title :: Text,
-        btext :: Text,
-        mtext :: Text,
+        text :: Text,
         edate :: Day
         }
   deriving (Eq, Ord, Show)
@@ -170,8 +169,7 @@ entryFromDNS cache eid = do
                   lang = EN,
                   author = "tazjin",
                   title = t,
-                  btext = text,
-                  mtext = "",
+                  text = text,
                   edate = d
                   }
               )

services/tazblog/src/RSS.hs

@@ -29,7 +29,7 @@ createItem :: Entry -> Item
 createItem Entry {..} =
   [ Title $ T.unpack title,
     Link $ makeLink lang entryId,
-    Description $ T.unpack btext,
+    Description $ T.unpack text,
     PubDate $ UTCTime edate $ secondsToDiffTime 0
     ]