well stuff

external/mypage/text.md

@@ -19,5 +19,7 @@ this that
 
 ## Something else
 
+![awesome](img/awesome.png)
+
 more nonsense
-haha
+haha [linek](/tags/)

oldsite.hs

@@ -62,7 +62,9 @@ extractHTagLinks ident = do
   pure (to, htags)
 
 invTags :: [(Identifier, [[String]])] -> [([String], [String])]
-invTags x = map (fmap (map ('/':) . nub . map toFilePath)) $ groupSort [(t, p) | (p, htl) <- x, ht <- htl, t <- inits ht]
+invTags x =
+  map (fmap (map ('/' :) . nub . map toFilePath)) $
+  groupSort [(t, p) | (p, htl) <- x, ht <- htl, t <- inits ht]
 
 makeTag :: [FilePath] -> [String] -> Rules ()
 makeTag htag pages =
@@ -72,8 +74,14 @@ makeTag htag pages =
       let ctx =
             mconcat
               [ constField "title" ("Pages tagged " ++ joinPath htag)
-              , listField "htags" (field "htag" (return . itemBody)) (traverse makeItem htag)
+              , listField
-              , listField "pages" (field "page" (return . itemBody)) (traverse makeItem pages)
+                  "htags"
+                  (field "htag" (return . itemBody))
+                  (traverse makeItem htag)
+              , listField
+                  "pages"
+                  (field "page" (return . itemBody))
+                  (traverse makeItem pages)
               , defaultContext
               ]
       makeItem "" >>= loadAndApplyTemplate "templates/tag.html" ctx >>=

pagedeploy.cabal

@@ -9,5 +9,16 @@ executable site
                   , hakyll == 4.16.*
                   , filepath
                   , extra
+                  , transformers
+                  , containers
+                  , pandoc
+                  , pandoc-types
+                  , microlens
+                  , microlens-th
+                  , microlens-mtl
+                  , microlens-aeson
+                  , data-default
+                  , text
+                  , yaml
   ghc-options:      -threaded -rtsopts -with-rtsopts=-N
   default-language: Haskell2010