Add support for embedded pdf

default/templates/filters/embed-pdf.tpl

@@ -0,0 +1,3 @@
+<object class="mb-3 embedded-pdf" type="application/pdf" data="${ema:url}">
+  <a href="${ema:url}">Open pdf</a>
+</object>

default/templates/hooks/more-head.tpl

@@ -34,4 +34,9 @@
   .header-font {
     font-family: 'MavenPro', sans-serif;
   }
+
+  .embedded-pdf {
+    width: 100%;
+    height: 800px;
+  }
 </style>

docs/demo/embed.md

@@ -35,3 +35,10 @@ It is also posible to add images inline (example, here's the site favicon: [![[f
 The following is the result of using `![[death-note.mp4]]`.
 
 ![[death-note.mp4]]
+
+
+### PDFs
+
+An embedded version of [GitHub's Git Cheat Sheet](https://education.github.com/git-cheat-sheet-education.pdf) is shown below:
+
+![[git-cheat-sheet-education.pdf]]

src/Emanote/Pandoc/Renderer/Embed.hs

@@ -82,6 +82,9 @@ embedStaticFileRoute model wl staticFile = do
       | any (`T.isSuffixOf` toText fp) videoExts -> do
         pure . runEmbedTemplate "video" $ do
           "ema:url" ## HI.textSplice url
+      | any (`T.isSuffixOf` toText fp) ["pdf"] -> do
+        pure . runEmbedTemplate "pdf" $ do
+          "ema:url" ## HI.textSplice url
       | otherwise -> Nothing
 
 imageExts :: [Text]

src/Heist/Extra/Splices/Pandoc/Render.hs

@@ -14,7 +14,7 @@ import Data.Map.Syntax ((##))
 import Data.Text qualified as T
 import Emanote.Pandoc.Markdown.Syntax.WikiLink qualified as WL
 import Heist qualified as H
-import Heist.Extra (runCustomNode)
+import Heist.Extra qualified as HE
 import Heist.Extra.Splices.Pandoc.Attr (concatAttr, rpAttr)
 import Heist.Extra.Splices.Pandoc.Ctx
   ( RenderCtx (..),
@@ -40,7 +40,7 @@ withTplTag :: RenderCtx -> Text -> H.Splices (HI.Splice Identity) -> HI.Splice I
 withTplTag RenderCtx {..} name splices default_ =
   case X.childElementTag name =<< rootNode of
     Nothing -> default_
-    Just node -> runCustomNode node splices
+    Just node -> HE.runCustomNode node splices
 
 rpBlock' :: RenderCtx -> B.Block -> HI.Splice Identity
 rpBlock' ctx@RenderCtx {..} b = case b of
@@ -224,10 +224,16 @@ rpInline' ctx@RenderCtx {..} i = case i of
             <> rpAttr (concatAttr attr $ iAttr i)
     one . X.Element "a" attrs <$> foldMapM (rpInline ctx) is
   B.Image attr is (url, tit) -> do
-    let attrs =
-          catMaybes [pure ("src", url), guard (not $ T.null tit) >> pure ("title", tit), pure ("alt", WL.plainify is)]
-            <> rpAttr (rewriteClass ctx attr)
-    pure $ one . X.Element "img" attrs $ mempty
+    let lowerUrl = T.toLower url
+    if T.isInfixOf ".pdf?t=" lowerUrl || T.isSuffixOf ".pdf" lowerUrl
+      then do
+        tpl <- HE.lookupHtmlTemplateMust "/templates/filters/embed-pdf"
+        HE.runCustomTemplate tpl ("ema:url" ## HI.textSplice url)
+      else do
+        let attrs =
+              catMaybes [pure ("src", url), guard (not $ T.null tit) >> pure ("title", tit), pure ("alt", WL.plainify is)]
+                <> rpAttr (rewriteClass ctx attr)
+        pure $ one . X.Element "img" attrs $ mempty
   B.Note _bs -> do
     -- Footnotes are to be handled separately; see Footenotes.hs
     pure $ one $ X.Element "sup" mempty $ one $ X.TextNode "*"