class Settingslogic

# File lib/settingslogic.rb, line 36
def [](key)
  instance.fetch(key.to_s, nil)
end

# File lib/settingslogic.rb, line 40
def []=(key, val)
  # Setting[:key][:key2] = 'value' for dynamic settings
  val = new(val, source) if val.is_a? Hash
  instance.store(key.to_s, val)
  instance.create_accessor_for(key, val)
end

# File lib/settingslogic.rb, line 15
def get(key)
  parts = key.split('.')
  curs = self
  while p = parts.shift
    curs = curs.send(p)
  end
  curs
end

# File lib/settingslogic.rb, line 47
def load!
  instance
  true
end

# File lib/settingslogic.rb, line 28
def namespace(value = nil)
  @namespace ||= value
end

# File lib/settingslogic.rb, line 94
def initialize(hash_or_file = self.class.source, section = nil)
  #puts "new! #{hash_or_file}"
  case hash_or_file
  when nil
    raise Errno::ENOENT, "No file specified as Settingslogic source"
  when Hash
    self.replace hash_or_file
  else
    file_contents = open(hash_or_file).read
    hash = file_contents.empty? ? {} : YAML.load(ERB.new(file_contents).result).to_hash
    if self.class.namespace
      hash = hash[self.class.namespace] or return missing_key("Missing setting '#{self.class.namespace}' in #{hash_or_file}")
    end
    self.replace hash
  end
  @section = section || self.class.source  # so end of error says "in application.yml"
  create_accessors!
end

# File lib/settingslogic.rb, line 52
def reload!
  @instance = nil
  load!
end

# File lib/settingslogic.rb, line 24
def source(value = nil)
  @source ||= value
end

# File lib/settingslogic.rb, line 32
def suppress_errors(value = nil)
  @suppress_errors ||= value
end

# File lib/settingslogic.rb, line 77
def create_accessor_for(key)
  return unless key.to_s =~ /^\w+$/  # could have "some-setting:" which blows up eval
  instance_eval "def #{key}; instance.send(:#{key}); end"
end

# File lib/settingslogic.rb, line 71
def create_accessors!
  instance.each do |key,val|
    create_accessor_for(key)
  end
end

# File lib/settingslogic.rb, line 58
def instance
  return @instance if @instance
  @instance = new
  create_accessors!
  @instance
end

# File lib/settingslogic.rb, line 65
def method_missing(name, *args, &block)
  instance.send(name, *args, &block)
end

# File lib/settingslogic.rb, line 123
def [](key)
  fetch(key.to_s, nil)
end

# File lib/settingslogic.rb, line 127
def []=(key,val)
  # Setting[:key][:key2] = 'value' for dynamic settings
  val = self.class.new(val, @section) if val.is_a? Hash
  store(key.to_s, val)
  create_accessor_for(key, val)
end

# File lib/settingslogic.rb, line 152
def create_accessor_for(key, val=nil)
  return unless key.to_s =~ /^\w+$/  # could have "some-setting:" which blows up eval
  instance_variable_set("@#{key}", val)
  self.class.class_eval <<-EndEval
    def #{key}
      return @#{key} if @#{key}
      return missing_key("Missing setting '#{key}' in #{@section}") unless has_key? '#{key}'
      value = fetch('#{key}')
      @#{key} = if value.is_a?(Hash)
        self.class.new(value, "'#{key}' section in #{@section}")
      elsif value.is_a?(Array) && value.all?{|v| v.is_a? Hash}
        value.map{|v| self.class.new(v)}
      else
        value
      end
    end
  EndEval
end

# File lib/settingslogic.rb, line 143
def create_accessors!
  self.each do |key,val|
    create_accessor_for(key)
  end
end

# File lib/settingslogic.rb, line 115
def method_missing(name, *args, &block)
  key = name.to_s
  return missing_key("Missing setting '#{key}' in #{@section}") unless has_key? key
  value = fetch(key)
  create_accessor_for(key)
  value.is_a?(Hash) ? self.class.new(value, "'#{key}' section in #{@section}") : value
end

# File lib/settingslogic.rb, line 186
def missing_key(msg)
  return nil if self.class.suppress_errors

  raise MissingSetting, msg
end

# File lib/settingslogic.rb, line 171
def symbolize_keys
  
  inject({}) do |memo, tuple|
    
    k = (tuple.first.to_sym rescue tuple.first) || tuple.first
          
    v = k.is_a?(Symbol) ? send(k) : tuple.last # make sure the value is accessed the same way Settings.foo.bar works
    
    memo[k] = v && v.respond_to?(:symbolize_keys) ? v.symbolize_keys : v #recurse for nested hashes
    
    memo
  end
  
end

# File lib/settingslogic.rb, line 135
def to_hash
  Hash[self]
end