introspective_admin 0.0.1

data/spec/admin/company_admin_spec.rb

@@ -0,0 +1,72 @@
+require 'rails_helper'
+
+RSpec.describe Admin::CompaniesController, :type => :controller do 
+  render_views
+
+  before :each do 
+    user = double('user')
+    allow(request.env['warden']).to receive(:authenticate!) { user }
+    allow(controller).to receive(:current_user) { user }
+  end
+
+  describe "GET index" do
+    it "finds all companies" do
+      c = Company.make!
+      get :index
+      response.status.should == 200 
+      assigns(:companies).include?(c).should == true
+    end
+  end
+
+  describe "SHOW record" do 
+    it "finds the record" do
+      c = Company.make!
+      get :show, id: c.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "NEW record" do 
+    it "renders the form for a new record" do
+      get :new
+      response.status.should == 200 
+    end
+  end
+
+  describe "CREATE record" do 
+    it "creates the record" do
+      c = Company.make
+      post :create, company: c.attributes
+      response.should redirect_to action: :show, id: Company.last.id
+      Company.last.name.should == c.name
+    end
+
+    it "creates a record with an admin" do
+      u = User.make!
+      c = Company.make
+      post :create, company: c.attributes.merge({
+        roles_attributes: {'0'=>{ user_id: u.id }}
+      })
+      response.should redirect_to action: :show, id: Company.last.id
+      Company.last.admins.include?(u).should be_truthy
+    end
+
+  end
+
+  describe "EDIT record" do 
+    it "renders the edit form for an existing record" do 
+      r = Company.make!
+      get :edit, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "UPDATE record" do 
+    it "updates the record" do
+      c = Company.make!
+      put :update, id: c.id, company: { name: "New Name" } 
+      response.should redirect_to action: :show, id: c.id
+      Company.find(c.id).name.should == "New Name"
+    end
+  end
+end

data/spec/admin/job_admin_spec.rb

@@ -0,0 +1,61 @@
+require 'rails_helper'
+
+RSpec.describe Admin::JobsController, :type => :controller do 
+  render_views
+
+  before :each do # Why can't I do this shit in a helper like I do for requests?
+    user = double('user')
+    allow(request.env['warden']).to receive(:authenticate!) { user }
+    allow(controller).to receive(:current_user) { user }
+  end
+
+  describe "GET index" do
+    it "finds all Jobs" do
+      r = Job.make!
+      get :index
+      response.status.should == 200 
+      assigns(:jobs).include?(r).should == true
+    end
+  end
+
+  describe "SHOW record" do 
+    it "finds the record" do
+      r = Job.make!
+      get :show, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "NEW record" do 
+    it "renders the form for a new record" do
+      get :new
+      response.status.should == 200 
+    end
+  end
+
+  describe "CREATE record" do 
+    it "creates the record" do
+      r = Job.make
+      post :create, job: r.attributes
+      response.should redirect_to action: :show, id: Job.last.id
+      Job.last.title.should == r.title
+    end
+  end
+
+  describe "EDIT record" do 
+    it "renders the edit form for an existing record" do 
+      r = Job.make!
+      get :edit, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "UPDATE record" do 
+    it "updates the record" do
+      r = Job.make!
+      put :update, id: r.id, job: { title: "New Name" } 
+      response.should redirect_to action: :show, id: r.id
+      Job.find(r.id).title.should == "New Name"
+    end
+  end
+end

data/spec/admin/location_admin_spec.rb

@@ -0,0 +1,65 @@
+require 'rails_helper'
+
+RSpec.describe Admin::LocationsController, :type => :controller do 
+  render_views
+
+  before :each do # Why can't I do this shit in a helper like I do for requests?
+    user = double('user')
+    allow(request.env['warden']).to receive(:authenticate!) { user }
+    allow(controller).to receive(:current_user) { user }
+  end
+
+  describe "GET index" do
+    it "finds all locations" do
+      c = Location.make!
+      get :index
+      response.status.should == 200 
+      assigns(:locations).include?(c).should == true
+    end
+  end
+
+  describe "SHOW record" do 
+    it "finds the record" do
+      c = Location.make!
+      get :show, id: c.id
+      response.status.should == 200 
+    end
+  end
+  
+  describe "NEW record" do 
+    # will fail until https://github.com/activeadmin/activeadmin/pull/4010 is merged
+    it "renders the form for a new record" do
+      get :new
+      response.status.should == 200 
+    end
+  end
+
+  describe "CREATE record" do 
+    it "creates the record" do
+      c = Location.make
+      gps = LocationGps.make
+      post :create, location: c.attributes.merge(gps_attributes: gps.attributes) 
+      response.should redirect_to action: :show, id: Location.last.id
+      Location.last.name.should == c.name
+      Location.last.gps.lat.round(10).should == gps.lat.round(10)
+      Location.last.gps.lng.round(10).should == gps.lng.round(10)
+    end
+  end
+
+  describe "EDIT record" do 
+    it "renders the edit form for an existing record" do 
+      r = Location.make!
+      get :edit, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "UPDATE record" do 
+    it "updates the record" do
+      r = Location.make!
+      put :update, id: r.id, location: { name: "New Name" } 
+      response.should redirect_to action: :show, id: r.id
+      Location.find(r.id).name.should == "New Name"
+    end
+  end
+end

data/spec/admin/project__admin_spec.rb

@@ -0,0 +1,71 @@
+require 'rails_helper'
+RSpec.describe Admin::ProjectsController, :type => :controller do 
+  render_views
+
+  before :each do # Why can't I do this shit in a helper like I do for requests?
+    user = double('user')
+    allow(request.env['warden']).to receive(:authenticate!) { user }
+    allow(controller).to receive(:current_user) { user }
+  end
+
+  describe "GET index" do
+    it "finds all projects" do
+      r = Project.make!
+      get :index
+      response.status.should == 200 
+      assigns(:projects).include?(r).should == true
+    end
+  end
+
+  describe "SHOW record" do 
+    it "finds the record" do
+      r = Project.make!
+      get :show, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "NEW record" do 
+    it "renders the form for a new record" do
+      get :new
+      response.status.should == 200 
+    end
+  end
+
+  describe "CREATE record" do 
+    it "creates the record" do
+      r = Project.make
+      post :create, project: r.attributes
+      response.should redirect_to action: :show, id: Project.last.id
+      Project.last.name.should == r.name
+    end
+
+    it "the inverse_of declaration allows a new project to be created with a project_job" do
+      j = Job.make!
+      r = Project.make
+      post :create, project: r.attributes.merge({project_jobs_attributes:{'0'=>{job_id: j.id}}}) 
+      p = Project.last
+      p.name.should == r.name
+      p.project_jobs.size.should == 1
+      p.project_jobs.first.job.should == j
+    end
+
+  end
+
+  describe "EDIT record" do 
+    it "renders the edit form for an existing record" do 
+      r = Project.make!
+      get :edit, id: r.id
+      response.status.should == 200 
+    end
+  end
+
+  describe "UPDATE record" do 
+    it "updates the record" do
+      r = Project.make!
+      put :update, id: r.id, project: { name: "New Name" } 
+      response.should redirect_to action: :show, id: r.id
+      Project.find(r.id).name.should == "New Name"
+    end
+  end
+end

data/spec/dummy/README.rdoc

@@ -0,0 +1,28 @@
+== README
+
+This README would normally document whatever steps are necessary to get the
+application up and running.
+
+Things you may want to cover:
+
+* Ruby version
+
+* System dependencies
+
+* Configuration
+
+* Database creation
+
+* Database initialization
+
+* How to run the test suite
+
+* Services (job queues, cache servers, search engines, etc.)
+
+* Deployment instructions
+
+* ...
+
+
+Please feel free to use a different markup language if you do not plan to run
+<tt>rake doc:app</tt>.

data/spec/dummy/Rakefile

@@ -0,0 +1,6 @@
+# Add your own tasks in files placed in lib/tasks ending in .rake,
+# for example lib/tasks/capistrano.rake, and they will automatically be available to Rake.
+
+require File.expand_path('../config/application', __FILE__)
+
+Rails.application.load_tasks

data/spec/dummy/app/admin/company_admin.rb

@@ -0,0 +1,4 @@
+class CompanyAdmin < IntrospectiveAdmin::Base 
+  register Company do
+  end
+end

data/spec/dummy/app/admin/job_admin.rb

@@ -0,0 +1,4 @@
+class JobAdmin < IntrospectiveAdmin::Base
+  register Job do
+  end
+end

data/spec/dummy/app/admin/location_admin.rb

@@ -0,0 +1,4 @@
+class LocationAdmin < IntrospectiveAdmin::Base
+  register Location do
+  end
+end

data/spec/dummy/app/admin/project_admin.rb

@@ -0,0 +1,6 @@
+class ProjectAdmin < IntrospectiveAdmin::Base
+  register Project do
+
+  end
+
+end

data/spec/dummy/app/admin/role_admin.rb

@@ -0,0 +1,5 @@
+class RoleAdmin < IntrospectiveAdmin::Base
+  register Role do
+  end
+end
+

data/spec/dummy/app/admin/user_admin.rb

@@ -0,0 +1,9 @@
+class UserAdmin < IntrospectiveAdmin::Base
+  def self.exclude_params
+    %w(reset_password_at current_sign_in_at current_sign_in_ip remember_created_at sign_in_count encrypted_password reset_password_sent_at reset_password_token password authentication_token unlock_token failed_attempts last_sign_in_at locked_at last_sign_in_ip)
+  end
+
+  register User do
+  end
+
+end

data/spec/dummy/app/assets/javascripts/application.js

@@ -0,0 +1,13 @@
+// This is a manifest file that'll be compiled into application.js, which will include all the files
+// listed below.
+//
+// Any JavaScript/Coffee file within this directory, lib/assets/javascripts, vendor/assets/javascripts,
+// or any plugin's vendor/assets/javascripts directory can be referenced here using a relative path.
+//
+// It's not advisable to add code directly here, but if you do, it'll appear at the bottom of the
+// compiled file.
+//
+// Read Sprockets README (https://github.com/rails/sprockets#sprockets-directives) for details
+// about supported directives.
+//
+//= require_tree .

data/spec/dummy/app/assets/stylesheets/application.css

@@ -0,0 +1,15 @@
+/*
+ * This is a manifest file that'll be compiled into application.css, which will include all the files
+ * listed below.
+ *
+ * Any CSS and SCSS file within this directory, lib/assets/stylesheets, vendor/assets/stylesheets,
+ * or any plugin's vendor/assets/stylesheets directory can be referenced here using a relative path.
+ *
+ * You're free to add application-wide styles to this file and they'll appear at the bottom of the
+ * compiled file so the styles you add here take precedence over styles defined in any styles
+ * defined in the other CSS/SCSS files in this directory. It is generally better to create a new
+ * file per style scope.
+ *
+ *= require_tree .
+ *= require_self
+ */

data/spec/dummy/app/controllers/application_controller.rb

@@ -0,0 +1,5 @@
+class ApplicationController < ActionController::Base
+  # Prevent CSRF attacks by raising an exception.
+  # For APIs, you may want to use :null_session instead.
+  protect_from_forgery with: :exception
+end

data/spec/dummy/app/helpers/application_helper.rb

@@ -0,0 +1,2 @@
+module ApplicationHelper
+end

data/spec/dummy/app/models/abstract_adapter.rb

@@ -0,0 +1,13 @@
+class AbstractAdapter < ActiveRecord::Base
+  self.abstract_class = true
+
+  class << self
+    def human_attribute_name(attr, options = {})
+      # The default formatting of validation errors sucks, this helps a little syntatically:
+      super.titleize+":"
+    end
+
+  end
+
+end
+

data/spec/dummy/app/models/admin_user.rb

@@ -0,0 +1,6 @@
+class AdminUser < ActiveRecord::Base
+  # Include default devise modules. Others available are:
+  # :confirmable, :lockable, :timeoutable and :omniauthable
+  devise :database_authenticatable, 
+         :recoverable, :rememberable, :trackable, :validatable
+end

data/spec/dummy/app/models/chat.rb

@@ -0,0 +1,18 @@
+class Chat < AbstractAdapter
+  belongs_to :creator, foreign_key: :creator_id, :class_name => "User", inverse_of: :own_chats
+
+  has_many :chat_users, dependent: :destroy
+  has_many :users, through: :chat_users
+  has_many :chat_messages, dependent: :destroy
+  has_many :messages, class_name: 'ChatMessage', dependent: :destroy
+
+  def active_users
+    chat_users.includes(:user).select {|cu| cu.departed_at.nil? }.map(&:user)
+  end
+
+  before_create :add_creator_to_conversation 
+  def add_creator_to_conversation
+    users.push creator
+  end
+
+end

data/spec/dummy/app/models/chat_message.rb

@@ -0,0 +1,34 @@
+class ChatMessage < AbstractAdapter
+  belongs_to :chat
+  belongs_to :author, class_name: 'User'
+
+  has_many :chat_users, through: :chat
+  has_many :recipients, lambda {|message|  where(':created_at >= chat_users.created_at and (chat_users.departed_at IS NULL OR :created_at <= chat_users.departed_at)', created_at: message.created_at ) }, through: :chat_users, source: :user, class_name: 'User'
+
+  # Create ChatUserMessage records for each recipient to track read status
+  has_many :chat_message_users, dependent: :destroy
+
+  validate :author_in_chat
+
+  def author_in_chat
+    errors[:base] << 'User not in chat session.' unless chat.active_users.include? author
+  end
+
+  before_save :create_message_users, if: :new_record?
+  def create_message_users
+    chat_users.merge(ChatUser.current).each do |cu|
+      chat_message_users.build(user: cu.user)
+    end
+  end
+
+  def read_by?(user)
+    chat_message_users.merge(ChatMessageUser.read).map(&:user_id).include?(user.id)
+  end
+
+  def self.find_chat_for_users(users)
+    # presumably much more efficient ways to run an intersecton, we want to find the last
+    # exact match with the users being messaged to append to the existing chat.
+    Chat.eager_load(:chat_users).where("chat_users.departed_at IS NULL").order('chats.created_at desc').detect {|c| c.chat_users.map(&:user_id).uniq.sort == users.map(&:id).sort }
+  end
+
+end 

data/spec/dummy/app/models/chat_message_user.rb

@@ -0,0 +1,17 @@
+class ChatMessageUser < AbstractAdapter
+  belongs_to :chat_message
+  belongs_to :user
+  has_one    :chat, through: :chat_message
+
+  scope :read, ->{ where('read_at IS NOT NULL' ) }
+  scope :unread, ->{ where('read_at IS NULL' ) }
+
+  before_save :author_reads_message
+  def author_reads_message
+    self.read_at = Time.now if user == chat_message.author
+  end
+
+  def read?
+    read_at.present?
+  end
+end

data/spec/dummy/app/models/chat_user.rb

@@ -0,0 +1,16 @@
+class ChatUser < AbstractAdapter
+  belongs_to :chat
+  belongs_to :user 
+
+  alias_attribute :joined_at, :created_at
+  alias_attribute :left_at,   :departed_at
+
+  scope :current, ->{ where(departed_at: nil) }
+
+  validate :user_not_already_active, on: :create
+
+  def user_not_already_active
+    errors[:base] << "#{user.name} is already present in this chat." if chat.chat_users.where(user_id: user.id, departed_at: nil).count > 0 if user.persisted?
+  end
+
+end

data/spec/dummy/app/models/company.rb

@@ -0,0 +1,12 @@
+class Company < AbstractAdapter
+  has_many :roles, as: :ownable
+  has_many :admins, through: :roles, source: :user
+  accepts_nested_attributes_for :roles, allow_destroy: true
+  
+  has_many :beacons, class_name: 'LocationBeacon', dependent: :destroy
+  has_many :locatables
+  has_many :locations, through: :locatables, source: :locatable, source_type: 'Company'
+
+  has_many :projects, foreign_key: :owner_id, dependent: :destroy, inverse_of: :owner
+
+end

data/spec/dummy/app/models/job.rb

@@ -0,0 +1,10 @@
+class Job < AbstractAdapter
+
+  has_many :project_jobs,     dependent: :destroy
+  accepts_nested_attributes_for :project_jobs, allow_destroy: true
+
+  has_many :user_project_jobs, dependent: :destroy
+  has_many :users,    through: :user_project_jobs
+  has_many :projects, through: :user_project_jobs
+
+end

data/spec/dummy/app/models/locatable.rb

@@ -0,0 +1,6 @@
+class Locatable < AbstractAdapter
+  belongs_to :location
+  belongs_to :locatable, polymorphic: true
+
+  validates_inclusion_of :locatable_type, in: %w(Company)
+end

data/spec/dummy/app/models/location.rb

@@ -0,0 +1,26 @@
+class Location < AbstractAdapter
+  has_many :locatables, dependent: :destroy
+  has_many :companies, through: :locatables, source: :locatable, source_type: 'Company'
+
+  has_many :beacons, class_name: 'LocationBeacon', dependent: :destroy
+  has_one  :gps,     class_name: 'LocationGps',    dependent: :destroy
+  delegate :lat,:lng,:alt, to: :gps
+
+  belongs_to :parent_location, foreign_key: :parent_location_id, class_name: 'Location', inverse_of: :child_locations
+  has_many   :child_locations, foreign_key: :parent_location_id, class_name: 'Location', dependent: :destroy, inverse_of: :parent_location
+
+  has_many :user_locations, dependent: :destroy
+
+  # isn't this list going to be kinda long? are there any reasonable constraints to put
+  # on this random bit of metadata?
+  validates_inclusion_of :kind, in: %w(airport terminal gate plane)
+
+  accepts_nested_attributes_for :child_locations, allow_destroy: true
+  accepts_nested_attributes_for :gps,             allow_destroy: true
+  accepts_nested_attributes_for :beacons,         allow_destroy: true
+
+  def coords
+    [gps.lat, gps.lng, gps.alt]
+  end
+
+end

data/spec/dummy/app/models/location_beacon.rb

@@ -0,0 +1,16 @@
+class LocationBeacon < AbstractAdapter
+  belongs_to :location
+  has_many :gps, through: :location
+  belongs_to :company
+
+  # B9407F30-F5F8-466E-AFF9-25556B57FE6D
+  validates_format_of :uuid, with: /[0-9a-fA-F]{32}/ # 32 digit hexadecimal UUID
+  validates_format_of :mac_address, with: /[0-9a-fA-F]{12}/ # 16 digit hexadecimal bluetooth MAC address
+
+  before_validation :massage_ids
+  def massage_ids
+    self.uuid        = (uuid||'').gsub(/[^0-9a-fA-F]+/,'').upcase
+    self.mac_address = (mac_address||'').gsub(/[^0-9a-fA-F]+/,'').upcase
+  end
+
+end

data/spec/dummy/app/models/location_gps.rb

@@ -0,0 +1,64 @@
+class LocationGps < AbstractAdapter
+  belongs_to :location
+  has_many :beacons, through: :location
+
+  # lat and lng in degrees altitude in meters
+  validates_numericality_of :lat, greater_than_or_equal_to: -90.0, less_than_or_equal_to: 90.0
+  validates_numericality_of :lng, greater_than_or_equal_to: -180.0, less_than_or_equal_to: 180.0
+  validates_numericality_of :alt
+
+  def distance_from(lat,lng) # calc distance between this location and the passed coords
+    Haversine.distance(self.lat,self.lng, lat,lng).to_meters
+  end
+
+  class << self
+    def bounding_box(lat,lng,alt)  
+      # box constrain the nearest neighbor search to something reasonble
+      box = 0.1447 # 10 miles radius: 111132 meters/deg, 1609m a mile, 0.01447 deg to a mile
+      alt_box = 8  # we're trying to constrain the box to a floor of a building here...
+      ["lat BETWEEN :lat-#{box} AND :lat+#{box} AND
+       lng BETWEEN :lng-#{box} AND :lng+#{box} AND
+       alt BETWEEN :alt-#{alt_box} AND :alt+#{alt_box}",
+       { lat: lat, lng: lng, alt: alt } ]
+    end
+
+    def nearest_beacon(lat, lng, alt=0, companies)
+      company_ids = companies.kind_of?(Array) ? companies : [companies]
+
+      gps = nearest_approximation(lat,lng,alt).joins(:beacons).where("location_beacons.company_id"=>company_ids).first || ( raise ActiveRecord::RecordNotFound.new("Couldn't find a Beacon for that GPS Location.") )
+      # It's not clear, if they're doing this across multiple companies, how which beacon
+      # comes back is not arbitrary, so maybe we should require it be specific.
+      gps.beacons.where(company_id: company_ids).first
+    end
+
+    def nearest(lat,lng,alt=0) 
+      nearest_approximation(lat,lng,alt).first || ( raise ActiveRecord::RecordNotFound.new("Couldn't find GPS Location.") )
+    end
+
+    def nearest_approximation(lat,lng,alt=0) # approximate as a flat-ish plane
+      dOrder= sanitize_sql_array(["(lat - ?)^2 + (lng - ?)^2 * COS(RADIANS(lat))", lat, lng])
+
+      self.select("location_gps.id, location_gps.location_id, #{dOrder} as dOrder").
+      where( bounding_box(lat,lng,alt) ).order("dOrder ASC")
+    end
+
+    def nearest_great_circle(lat,lng,alt=0)
+      dOrder = sanitize_sql_array(["acos( sin(radians(lat))*sin(radians(:lat)) + cos(radians(lat))*cos(radians(:lat))*cos(radians(lng - :lng)) )", { lat: lat, lng: lng } ] )
+
+      self.select("location_gps.id, location_gps.location_id, #{dOrder} as dOrder").
+      where( bounding_box(lat,lng,alt) ).order("dOrder ASC")
+    end
+
+    def nearest_haversine(lat,lng,alt=0)
+      dOrder = sanitize_sql_array(["asin( sqrt( (sin(radians(:lat - lat))/2)^2 + cos(radians(lat))*cos(radians(:lat))*(sin(radians(:lng - lng )/2))^2 ))", { lat: lat, lng: lng }])
+
+      self.select("location_gps.id, location_gps.location_id, #{dOrder} as dOrder").
+      where( bounding_box(lat,lng,alt) ).order("dOrder ASC")
+    end
+
+    #def nearest_wgs84(lat,lng,alt=0)
+    #  # vincenty's ellipsoid calculation is an iterative estimate available in postGIS
+    #end
+  end
+
+end