mikepence

module Campaign
  class Base < ActiveRecord::Base
    include Campaign::Data
    include Campaign::State
    include Campaign::Events
    include Campaign::Presenters
    include Campaign::Services
  end
end

mikepence

require 'active_support/concern'

module Campaign::Events
  extend ActiveSupport::Concern

  included do
    def generate_event
      Bus::Event::CampaignSubmittedForReview.create(:campaign => self)
    end
  end

mikepence

(require '[clojure.string :as str])

(defn rename-underscore [sym]
  [(symbol (str/replace (name sym) \_ \-))
   (keyword sym)])

(defn udestructure [[lhs expr]]
  (if (and (map? lhs)
           (vector? (:_keys lhs)))
    (let [msym (gensym)

mikepence

something