Render entryContent as Markdown too :3

config/models

@@ -28,7 +28,7 @@ Profile
 Entry
     kind EntryKind maxlen=255
     name Text Maybe maxlen=255
-    content Text sqltype=longtext
+    content Markdown sqltype=longtext
     published UTCTime
     updated UTCTime
     authorId UserId

src/Model/Entry.hs

@@ -2,14 +2,27 @@
 module Model.Entry where
 
 import Model ( Entry, entryName, entryContent )
+import Model.Markdown ( Markdown(Markdown), unMarkdown )
 import Data.Maybe ( fromMaybe )
 
 import qualified Data.Text as T
+import qualified Data.Text.Lazy as TL
 
 entryTitle :: Entry -> T.Text
-entryTitle = fromMaybe <$> shorten 30 . entryContent <*> entryName
+entryTitle = fromMaybe <$> TL.toStrict . shorten 30 . unMarkdown . entryContent <*> entryName
 
-shorten :: Int -> T.Text -> T.Text
+class Shorten a where
-shorten n t
+  shorten :: Integral n => n -> a -> a
-  | T.length t > n = flip T.append "..." . T.take (n - 1) $ t
+
-  | otherwise      = t
+instance Shorten T.Text where
+  shorten n t
+    | T.length t > fromIntegral n = flip T.append "..." . T.take (fromIntegral n - 1) $ t
+    | otherwise                   = t
+
+instance Shorten TL.Text where
+  shorten n t
+    | TL.length t > fromIntegral n = flip TL.append "..." . TL.take (fromIntegral n - 1) $ t
+    | otherwise                    = t
+
+instance Shorten Markdown where
+  shorten n (Markdown t) = Markdown $ shorten n t

templates/mf2/h-entry.cassius

@@ -1,4 +1,6 @@
 article.h-entry
+  .e-content p:last-child
+    margin-bottom: 0
   > .card-footer
     display: flex
     flex-wrap: wrap