cockpit 0.0.1.5

data/lib/cockpit/definition.rb

@@ -0,0 +1,55 @@
+module Cockpit
+  # Represents the definition of a preference for a particular model
+  class Definition
+    # The data type for the content stored in this preference type
+    attr_reader :type
+    
+    def initialize(name, *args) #:nodoc:
+      options = args.extract_options!
+      
+      @type = args.first ? args.first.to_sym : :boolean
+      
+      # Create a column that will be responsible for typecasting
+      @column = ActiveRecord::ConnectionAdapters::Column.new(name.to_s, options[:default], @type == :any ? nil : @type.to_s)
+      
+      @group_defaults = (options[:group_defaults] || {}).inject({}) do |defaults, (group, default)|
+        defaults[group.is_a?(Symbol) ? group.to_s : group] = type_cast(default)
+        defaults
+      end
+    end
+    
+    # The name of the preference
+    def name
+      @column.name
+    end
+    
+    # The default value to use for the preference in case none have been
+    # previously defined
+    def default_value(group = nil)
+      @group_defaults.include?(group) ? @group_defaults[group] : @column.default
+    end
+    
+    # Determines whether column backing this preference stores numberic values
+    def number?
+      @column.number?
+    end
+    
+    # Typecasts the value based on the type of preference that was defined.
+    # This uses ActiveRecord's typecast functionality so the same rules for
+    # typecasting a model's columns apply here.
+    def type_cast(value)
+      @type == :any ? value : @column.type_cast(value)
+    end
+    
+    # Typecasts the value to true/false depending on the type of preference
+    def query(value)
+      if !(value = type_cast(value))
+        false
+      elsif number?
+        !value.zero?
+      else
+        !value.blank?
+      end
+    end
+  end
+end

data/lib/cockpit/extensions.rb

@@ -0,0 +1,25 @@
+class Hash
+  def recursively_symbolize_keys!
+    self.symbolize_keys!
+    self.values.each do |v|
+      if v.is_a? Hash
+        v.recursively_symbolize_keys!
+      elsif v.is_a? Array
+        v.recursively_symbolize_keys!
+      end
+    end
+    self
+  end
+end
+
+class Array
+  def recursively_symbolize_keys!
+    self.each do |item|
+      if item.is_a? Hash
+        item.recursively_symbolize_keys!
+      elsif item.is_a? Array
+        item.recursively_symbolize_keys!
+      end
+    end
+  end
+end

data/lib/cockpit/helper.rb

@@ -0,0 +1,44 @@
+module Cockpit::Helper
+  
+  # always returns either an array or a string
+  def c(*args)
+    options = args.extract_options!
+    result = args.collect {|i| Settings.get(i).value }
+    result = result.pop if result.length == 1
+    result.blank? ? nil : result.to_s
+  end
+  
+  def setting_tag(tag)
+    
+  end
+  
+  def settings_tag(key, &block)
+    Settings(key).each_setting do |key, attributes, value|
+      
+    end
+  end
+  
+  def setting_value(value)
+    result = case value
+      when Proc
+        value.call
+      when Cockpit::TreeHash
+        value
+      else
+        value
+      end
+  end
+  
+  def setting_options(attributes)
+    return {} unless (attributes.is_a?(Hash) && attributes[:options])
+    options = case attributes[:options]
+      when Proc
+        attributes[:options].call
+      else
+        attributes[:options]
+      end
+  end
+  
+end
+
+ActionView::Base.send(:include, Cockpit::Helper) if defined?(ActionView)

data/lib/cockpit/store.rb

@@ -0,0 +1,103 @@
+module Cockpit
+  module Store
+    class Base
+      attr_accessor :configurable
+      
+      def initialize(*args)
+        options = args.extract_options!
+        options.each do |k, v|
+          self.send("#{k.to_s}=", v) if self.respond_to?("#{k.to_s}=")
+        end
+        @configuration = args.first
+      end
+      
+      def configuration
+        @configuration
+      end
+      
+      def tree=(value)
+        @tree = value if value.is_a?(TreeHash)
+        @tree
+      end
+      
+      def tree
+        @tree ||= TreeHash.new
+      end
+      
+      def clear(options = {})
+        tree.each do |k, v|
+          tree.delete(k) unless (options[:except] && options[:except].include?(k.to_sym))
+        end
+      end
+      
+      def get(path)
+        tree.get(path)
+      end
+      alias_method :[], :get
+      
+      def get!(path)
+        result = get(path)
+        raise "'#{path.to_s}' was not in Config" if result.blank?
+        result
+      end
+      
+      def set(value)
+        return unless value.is_a?(Hash)
+        value.each { |k,v| set_one(k, v) }
+      end
+      
+      def set_one(key, value)
+        tree.set(key, value)
+      end
+      
+      def set!(value)
+        result = set(value)
+        raise "'#{path.to_s}' was not set in Config" if result.blank?
+        result
+      end
+      
+      def []=(key, value)
+        set_one(key => value)
+      end
+    end
+    
+    class Memory < Base
+      
+    end
+    
+    class Database < Base
+      
+      def clear(options = {})
+        configuration.setting_class.all.collect(&:destroy) if options[:hard] == true
+        super(options)
+      end
+      
+      def find_or_create(key)
+        result = configuration.setting_class.find(key.to_s) rescue nil
+        result ||= configuration.setting_class.create(:key => key.to_s)
+      end
+      
+      def set_one_with_database(key, value)
+        setting = find_or_create(key)
+        cast_as = (setting.cast_as || Cockpit.get_type(value)).to_s
+        attributes = {:value => value, :cast_as => cast_as}
+        attributes[:configurable] = self.configurable if self.configurable
+        setting.update_attributes(attributes)
+        set_one_without_database(key, Cockpit.type_cast(value, cast_as))
+      end
+      alias_method_chain :set_one, :database
+      
+      def get(key)
+        result = super(key)
+        if result.blank? && setting = find_or_create(key)
+          set(key => setting.value)
+          result = super(key)
+        else
+          
+        end
+        result
+      end
+      
+    end
+  end
+end

data/lib/cockpit/tree_hash.rb

@@ -0,0 +1,113 @@
+# http://www.daniel-azuma.com/blog/view/z3bqa0t01uugg1/implementing_dsl_blocks
+module Cockpit  
+  class TreeHash < Hash
+    
+    def initialize
+      block = Proc.new {|h,k| h[k] = TreeHash.new(&block)}
+      super &block
+    end
+    
+    def value_type
+      has_key?(:type) ? self[:type] : :string
+    end
+    
+    def each_setting(&block)
+      dup.each do |k, v|
+        atrib = Hash.new
+        if v.has_key?(:value)
+          value = clone(v[:value])
+          atrib = clone(v)
+        else
+          v.each do |k, sub_v|
+            atrib[k] = clone(v[k]) unless sub_v.is_a?(TreeHash)
+          end
+          value = clone(v)
+        end
+        yield(k.to_s, atrib, value) if block_given?
+      end
+    end
+    
+    def dup
+      result = super
+      result.each do |k,v|
+        result[k] = v.dup if v.is_a?(TreeHash)
+      end
+      result
+    end
+    
+    def children
+      hash = {}
+      each do |k, v|
+        hash[k] = v if v.is_a?(Hash)
+      end
+      hash
+    end
+    
+    def get(key)
+      traverse(key)
+    end
+    
+    def get_attribute(key, attribute)
+      get(key)[attribute.to_sym]
+    end
+
+    def set(key, value)
+      traverse(key, value)
+    end
+    
+    def set_attribute(key, value)
+      traverse(key, value, false)
+    end
+    
+    def set_attributes(hash)
+      hash.each { |k, v| set_attribute(k, v) }
+      self
+    end
+    
+    def to_hash
+      hash = {}
+      self.each do |k, v|
+        hash[k] = v.is_a?(TreeHash) ? v.to_hash : v
+      end
+      hash
+    end
+    
+    protected
+      def traverse(path, value = nil, as_node = true)
+        path = path.to_s.split('.')
+        child = path.pop.to_sym
+        parent = path.inject(self) { |h,k| h[k.to_sym] }
+        unless value.nil?
+          if as_node
+            if parent[child].has_key?(:type)
+              parent[child][:value] = Cockpit.type_cast(value, parent[child][:type])
+            else
+              parent[child][:value] = value
+              parent[child][:type]  = Cockpit.get_type(value)
+            end
+          else
+            parent[child] = value
+          end
+        end
+        parent[child]
+      end
+      
+      def method_missing(meth, *args, &block)
+        options = args.extract_options!
+        meth    = meth.to_s.gsub("=", "").to_sym
+        if args.empty?
+          return self[meth] if self.has_key?(meth)
+          found = get(meth).set_attributes(options)
+          found = found.instance_eval(&block) if block_given?
+          found
+        else
+          get(meth).set_attributes({:type => Cockpit.get_type(args.first)}.merge(options).merge(:value => args.first))
+        end
+      end
+      
+    private
+      def clone(object)
+        (object.respond_to?(:dup) ? object.dup : object) rescue object
+      end
+  end
+end

data/rails/init.rb

@@ -0,0 +1 @@
+require 'cockpit'

data/test/lib/database.rb

@@ -0,0 +1,22 @@
+begin
+  ActiveRecord::Base.establish_connection(:adapter => "sqlite3", :database => ":memory:")
+rescue ArgumentError
+  ActiveRecord::Base.establish_connection(:adapter => "sqlite3", :dbfile => ":memory:")
+end
+
+ActiveRecord::Base.configurations = true
+
+ActiveRecord::Schema.define(:version => 1) do
+
+  create_table :settings, :force => true do |t|
+    t.string :key
+    t.string :value
+    t.string :cast_as
+    t.string :configurable_type
+    t.integer :configurable_id
+  end
+  
+  create_table "users", :force => true do |t|
+  end
+
+end

data/test/lib/user.rb

@@ -0,0 +1,8 @@
+class User < ActiveRecord::Base
+  acts_as_configurable :settings do
+    name "Lance", :title => "First Name", :options => ["Lance", "Viatropos"]
+    favorite do
+      color "red"
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,90 @@
+require "rubygems"
+require "ruby-debug"
+gem 'test-unit'
+require "test/unit"
+require 'active_support'
+require 'active_support/test_case'
+require 'active_record'
+require 'active_record/fixtures'
+require 'shoulda'
+require 'shoulda/active_record'
+
+require File.dirname(__FILE__) + '/lib/database'
+
+require File.expand_path(File.join(File.dirname(__FILE__), '/../lib/cockpit'))
+
+require File.dirname(__FILE__) + '/lib/user'
+
+ActiveRecord::Base.class_eval do
+  def self.detonate
+    all.map(&:destroy)
+  end
+end
+
+ActiveSupport::TestCase.class_eval do
+  
+  def load_settings
+    Settings do
+      asset :title => "Asset (and related) Settings" do
+        thumb do
+          width 100, :tip => "Thumb's width"
+          height 100, :tip => "Thumb's height"
+        end
+        medium do
+          width 600, :tip => "Thumb's width"
+          height 250, :tip => "Thumb's height"
+        end
+        large do
+          width 600, :tip => "Large's width"
+          height 295, :tip => "Large's height"
+        end
+      end
+      authentication :title => "Authentication Settings" do
+        use_open_id true
+        use_oauth true
+      end
+      front_page do
+        slideshow_tag "slideshow"
+        slideshow_effect "fade"
+      end
+      page do
+        per_page 10
+        feed_per_page 10
+      end
+      people do
+        show_avatars true
+        default_avatar "/images/missing-person.png"
+      end
+      site do
+        title "Martini"
+        tagline "Developer Friendly, Client Ready Blog with Rails 3"
+        keywords "Rails 3, Heroku, JQuery, HTML 5, Blog Engine, CSS3"
+        copyright "© 2010 Viatropos. All rights reserved."
+        timezones :value => lambda { TimeZone.first }, :options => lambda { TimeZone.all }
+        date_format "%m %d, %Y"
+        time_format "%H"
+        week_starts_on "Monday", :options => ["Monday", "Sunday", "Friday"]
+        language "en-US", :options => ["en-US", "de"]
+        touch_enabled true
+        touch_as_subdomain false
+        google_analytics ""
+        teasers :title => "Teasers" do
+          disable false
+          left 1, :title => "Left Teaser"
+          right 2
+          center 3
+        end
+        main_quote 1
+      end
+      social do
+        facebook "http://facebook.com/viatropos"
+        twitter "http://twitter.com/viatropos"
+        email "lancejpollard@gmail.com"
+      end
+      s3 do
+        key "my_key"
+        secret "my_secret"
+      end
+    end
+  end
+end