diff options
| author | Viktor Kleen <viktor@kleen.org> | 2015-01-02 13:12:04 +0000 |
|---|---|---|
| committer | Viktor Kleen <viktor@kleen.org> | 2015-01-02 13:12:04 +0000 |
| commit | a7cf43b34976ac230e4cbead28990f9823c35f7b (patch) | |
| tree | 49a3c3b6d27a5f45ea7119982d9588af463a5a31 /build/add-math-kleen-org.hs | |
| parent | 0fe32e47ba3f8895a6125cf8fc618f01adf59579 (diff) | |
| download | dirty-haskell.org-a7cf43b34976ac230e4cbead28990f9823c35f7b.tar dirty-haskell.org-a7cf43b34976ac230e4cbead28990f9823c35f7b.tar.gz dirty-haskell.org-a7cf43b34976ac230e4cbead28990f9823c35f7b.tar.bz2 dirty-haskell.org-a7cf43b34976ac230e4cbead28990f9823c35f7b.tar.xz dirty-haskell.org-a7cf43b34976ac230e4cbead28990f9823c35f7b.zip | |
remove redundant add-math-kleen-org.hs
Diffstat (limited to 'build/add-math-kleen-org.hs')
| -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 | ||