require 'plist4r/backend_base'
require 'plist4r/mixin/ruby_stdlib'
require 'haml'
require 'base64'
require 'time'

# This backend uses haml to generate xml plists
# @author Dreamcat4 (dreamcat4@gmail.com)
module Plist4r::Backend::Haml
	class << self
		def to_xml_haml
			@to_xml_haml ||= <<-'EOC'
!!! XML UTF-8
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN"
"http://www.apple.com/DTDs/PropertyList-1.0.dtd" >
%plist{ :version => '1.0' }
	%dict
		- p = Proc.new do |data, block| 
			- data.each_pair do |k,v|
				- raise "Invalid input. Hash: #{data.inspect} can only contain keys of type Symbol or String. Found key #{k.inspect}, of type: \"#{k.class}\"" unless [Symbol,String].include? k.class
				- case v
					- when TrueClass, FalseClass
						%key #{k}
						<#{v}/>
					- when String
						%key #{k}
						- if v.blob?
							- data = Base64::encode64(v)
							%data #{data}
						- else
							%string #{v}
					- when Integer
						%key #{k}
						%integer #{v}
					- when Float
						%key #{k}
						%real #{v}
					- when Time
						%key #{k}
						%date #{v.utc.strftime('%Y-%m-%dT%H:%M:%SZ')}
					- when Array
						%key #{k}
						%array
							- v.compact.each do |e|
								- case e
									- when TrueClass, FalseClass
										<#{e}/>
									- when String
										- if e.blob?
											- data = Base64::encode64(e)
											%data #{data}
										- else
											%string #{e}
									- when Integer
										%integer #{e}
									- when Float
										%real #{e}
									- when Time
										%date #{e.utc.strftime('%Y-%m-%dT%H:%M:%SZ')}
									- when Hash
										%dict
											- tab_up ; block.call(e, block) ; tab_down
					- when Hash
						%key #{k}
						%dict
							- tab_up ; block.call(v, block) ; tab_down

		- p.call( @plist.to_hash, p)
EOC
		end

		def to_xml plist
			@plist = plist
			engine = Haml::Engine.new to_xml_haml
			rendered_xml_output = engine.render self
		end

	end
end