From 3601b6b89aa18c52ff7b486f22faf7621fa636ab Mon Sep 17 00:00:00 2001
From: Luke Shumaker <lukeshu@sbcglobal.net>
Date: Fri, 11 Nov 2016 00:59:00 -0500
Subject: refactor

---
 pandoc.rb | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 pandoc.rb

(limited to 'pandoc.rb')

diff --git a/pandoc.rb b/pandoc.rb
new file mode 100644
index 0000000..9c12351
--- /dev/null
+++ b/pandoc.rb
@@ -0,0 +1,77 @@
+require 'open3'
+require 'json'
+
+module Pandoc
+	def self.prog
+		@prog ||= 'pandoc'
+	end
+	def self.prog=(val)
+		@prog = val
+	end
+	def self.load(fmt, input)
+		cmd = Pandoc::prog + " -t json"
+		unless fmt.nil?
+			cmd += " -f " + fmt
+		end
+		str = input
+		if str.respond_to? :read
+			str = str.read
+		end
+		json = ''
+		errors = ''
+		Open3::popen3(cmd) do |stdin, stdout, stderr|
+			stdin.puts(str)
+			stdin.close
+			json = stdout.read
+			errors = stderr.read
+		end
+		unless errors.empty?
+			raise errors
+		end
+		return Pandoc::AST::new(json)
+	end
+
+	class AST
+		def initialize(json)
+			@js = JSON::parse(json)
+		end
+
+		def [](key)
+			Pandoc::AST::js2sane(@js[0]["unMeta"][key])
+		end
+
+		def to(format)
+			cmd = Pandoc::prog + " -f json -t " + format.to_s
+			output = ''
+			errors = ''
+			Open3::popen3(cmd) do |stdin, stdout, stderr|
+				stdin.puts @js.to_json
+				stdin.close
+				output = stdout.read
+				errors = stderr.read
+			end
+			unless errors.empty?
+				raise errors
+			end
+			return output
+		end
+
+		def self.js2sane(js)
+			if js.nil?
+				return js
+			end
+			case js["t"]
+			when "MetaList"
+				js["c"].map{|c| js2sane(c)}
+			when "MetaInlines"
+				js["c"].map{|c| js2sane(c)}.join()
+			when "Space"
+				" "
+			when "MetaString"
+				js["c"]
+			when "Str"
+				js["c"]
+			end
+		end
+	end
+end
-- 
cgit v1.2.3