39 lines
1.3 KiB
Forth
39 lines
1.3 KiB
Forth
|
namespace Fibble.FibLib
|
||
|
|
|
||
|
|
module Pandoc =
|
||
|
|
open System.Diagnostics
|
||
|
|
|
||
|
|
let toHtml (from: string) (markdownText: string) =
|
||
|
|
let startInfo = ProcessStartInfo(
|
||
|
|
FileName = "pandoc",
|
||
|
|
Arguments = $"-f {from} -t html5 --lua-filter strip-p.lua",
|
||
|
|
RedirectStandardInput = true,
|
||
|
|
RedirectStandardOutput = true,
|
||
|
|
RedirectStandardError = true,
|
||
|
|
UseShellExecute = false,
|
||
|
|
CreateNoWindow = true)
|
||
|
|
|
||
|
|
try
|
||
|
|
use proc = Process.Start startInfo
|
||
|
|
// Skriv markdown till Pandoc
|
||
|
|
use stdin = proc.StandardInput
|
||
|
|
stdin.Write markdownText
|
||
|
|
stdin.Close() // Måste stängas så Pandoc vet att texten är slut
|
||
|
|
// Läs ut resultatet
|
||
|
|
let htmlOutput = proc.StandardOutput.ReadToEnd()
|
||
|
|
let errorOutput = proc.StandardError.ReadToEnd()
|
||
|
|
|
||
|
|
proc.WaitForExit()
|
||
|
|
|
||
|
|
if proc.ExitCode = 0 then
|
||
|
|
htmlOutput.Trim()
|
||
|
|
else
|
||
|
|
sprintf "\n<pre>%s</pre> and <pre>%s</pre>" errorOutput markdownText
|
||
|
|
|
||
|
|
with ex ->
|
||
|
|
// Fångar upp om Pandoc inte är installerat eller inte finns i PATH
|
||
|
|
sprintf "\n<pre>%s</pre> and <pre>%s</pre>" ex.Message markdownText
|
||
|
|
|
||
|
|
let mdToHtml markdownText =
|
||
|
|
toHtml "markdown" markdownText
|