diff options
-rwxr-xr-x | build/add-math-kleen-org.hs | 13 |
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 | |||
3 | import Data.Map | ||
4 | import Text.Pandoc.Pretty | ||
5 | import Text.Pandoc.JSON | ||
6 | import System.IO | ||
7 | |||
8 | add_title :: Pandoc -> Pandoc | ||
9 | add_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 | |||
12 | main :: IO () | ||
13 | main = toJSONFilter add_title | ||