summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbuild/add-math-kleen-org.hs13
1 files changed, 0 insertions, 13 deletions
diff --git a/build/add-math-kleen-org.hs b/build/add-math-kleen-org.hs
deleted file mode 100755
index e564149..0000000
--- a/build/add-math-kleen-org.hs
+++ /dev/null
@@ -1,13 +0,0 @@
1#!/usr/bin/env runhaskell
2
3import Data.Map
4import Text.Pandoc.Pretty
5import Text.Pandoc.JSON
6import System.IO
7
8add_title :: Pandoc -> Pandoc
9add_title (Pandoc m bs) = Pandoc (add_title' m) bs
10 where add_title' m@(Meta map) = Meta $ insert "title" (MetaInlines $ [Link [Str "math.kleen.org:"] ("/","math.kleen.org"), Space] ++ docTitle m) map
11
12main :: IO ()
13main = toJSONFilter add_title