git.iko.soy/typeable/pandoc
on master help sign in
Rewrote hsmarkdown in Haskell for portability.
cdd3b67fiddlosopher
pandoc.cabal+14
compare with master
unifiedsplit
@@ -133,6 +133,9 @@ Flag highlighting
133Flag executable
133Flag executable
134 Description: Build the pandoc executable.
134 Description: Build the pandoc executable.
135 Default: True
135 Default: True
136+Flag wrappers
137+ Description: Build the wrappers (hsmarkdown, html2markdown, markdown2pdf).
138+ Default: True
136Flag library
139Flag library
137 Description: Build the pandoc library.
140 Description: Build the pandoc library.
138 Default: True
141 Default: True
@@ -214,3 +217,14 @@ Executable pandoc
214 else
217 else
215 Buildable: False
218 Buildable: False
216
219
220+Executable hsmarkdown
221+ Hs-Source-Dirs: src
222+ Main-Is: hsmarkdown.hs
223+ Ghc-Options: -Wall -threaded
224+ Ghc-Prof-Options: -auto-all
225+ Extensions: CPP, TemplateHaskell
226+ if flag(wrappers)
227+ Buildable: True
228+ else
229+ Buildable: False
230+
src/hsmarkdown.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE CPP #-}
2+{-
3+Copyright (C) 2006-8 John MacFarlane <jgm@berkeley.edu>
4+
5+This program is free software; you can redistribute it and/or modify
6+it under the terms of the GNU General Public License as published by
7+the Free Software Foundation; either version 2 of the License, or
8+(at your option) any later version.
9+
10+This program is distributed in the hope that it will be useful,
11+but WITHOUT ANY WARRANTY; without even the implied warranty of
12+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13+GNU General Public License for more details.
14+
15+You should have received a copy of the GNU General Public License
16+along with this program; if not, write to the Free Software
17+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18+-}
19+
20+{- |
21+ Module : Main
22+ Copyright : Copyright (C) 2006-8 John MacFarlane
23+ License : GNU GPL, version 2 or above
24+
25+ Maintainer : John MacFarlane <jgm@berkeley@edu>
26+ Stability : alpha
27+ Portability : portable
28+
29+Wrapper around pandoc that emulates Markdown.pl as closely as possible.
30+-}
31+module Main where
32+import System.Process
33+import System.Environment ( getArgs )
34+import Prelude hiding ( putStr, putStrLn, writeFile, readFile, getContents )
35+import System.IO.UTF8
36+import Control.Monad (forM_)
37+
38+main :: IO ()
39+main = do
40+ files <- getArgs
41+ let runPandoc inp = readProcess "pandoc" ["--from", "markdown", "--to", "html", "--strict"] inp >>= putStrLn
42+ if null files
43+ then getContents >>= runPandoc
44+ else forM_ files $ \f -> readFile f >>= runPandoc