1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
defmodule Pandoc do
@moduledoc """
Documentation for `Pandoc`.
"""
def run(profile, ["--watch" | dirs]) do
ref =
__MODULE__.Supervisor
|> Supervisor.start_child(
Supervisor.child_spec({Pandoc.Watcher, [profile, dirs: dirs]},
restart: :transient,
id: __MODULE__.Watcher
)
)
|> case do
{:ok, pid} -> pid
{:error, {:already_started, pid}} -> pid
end
|> Process.monitor()
receive do
{:DOWN, ^ref, _, _, _} -> :ok
end
end
def run(profile, path) do
config = Application.get_env(:pandoc, profile)
args = config[:args] || []
opts = [
cd: config[:cd] || File.cwd!(),
into: IO.stream(:stdio, :line),
stderr_to_stdout: true
]
args =
List.update_at(args, -1, fn v ->
Path.join(
v,
path
|> Path.basename()
|> String.replace_suffix(".md", ".html")
|> String.slice(11..-1//1)
)
end)
"pandoc" |> System.cmd(args ++ [path], opts) |> elem(1)
end
end
|