workarea-mail_chimp 3.0.2

data/app/services/workarea/mail_chimp/cart.rb

@@ -0,0 +1,78 @@
+module Workarea
+  module MailChimp
+    class Cart
+      include Workarea::I18n::DefaultUrlOptions
+      include Storefront::Engine.routes.url_helpers
+
+      attr_reader :order, :options
+
+      def initialize(order, options = {})
+        @order = order
+        @options = options
+      end
+
+      # @return Hash
+      def to_h
+        cart_hsh = {
+          id: order.id.to_s,
+          currency_code: order.total_price.currency.iso_code,
+          order_total: order.total_price.to_s,
+          tax_total: order.tax_total.to_s,
+          shipping_total: order.shipping_total.to_s,
+          lines: lines,
+          customer: customer,
+          checkout_url: Storefront::Engine.routes.url_helpers.resume_cart_url(token: order.token, host: Workarea.config.host),
+        }
+
+        # Mailchimp api does not accept empty values for campaign ID
+        # only merge in if the campaign ID is present
+        cart_hsh.merge!(campaign_id: order.mail_chimp_campaign_id) if order.mail_chimp_campaign_id.present?
+
+        cart_hsh
+      end
+
+      private
+
+        def customer
+          customer = { id: Digest::MD5.hexdigest(order.email) }
+          if send_full_customer?
+            customer.merge!(
+              {
+                email_address: order.email,
+                opt_in_status: Workarea::Email.signed_up?(order.email),
+                first_name: payment.address.first_name,
+                last_name:  payment.address.last_name
+              }
+            )
+          end
+
+          customer
+        end
+
+        def payment
+          @payment ||=  Workarea::Payment.find(order.id)
+        end
+
+        # order items. Mailchimp refers to them as "lines"
+        def lines
+          order.items.map do |oi|
+            {
+              id: oi.id.to_s,
+              product_id: oi.product_id,
+              product_variant_id: oi.sku,
+              quantity: oi.quantity,
+              price: oi.total_price.to_s
+            }
+          end
+        end
+
+        def payment
+          @payment ||=  Workarea::Payment.find(order.id)
+        end
+
+        def send_full_customer?
+          options[:send_full_customer]
+        end
+    end
+  end
+end

data/app/services/workarea/mail_chimp/order.rb

@@ -0,0 +1,97 @@
+module Workarea
+  module MailChimp
+    class Order
+      attr_reader :order, :options
+
+      def initialize(order, options = {})
+        @order = order
+        @options = options
+      end
+
+      # @return Hash
+      def to_h
+        order_hsh = {
+          id: order.id.to_s,
+          financial_status: financial_status,
+          fulfillment_status: fulfillment_status,
+          currency_code: order.total_price.currency.iso_code,
+          order_total: order.total_price.to_s,
+          tax_total: order.tax_total.to_s,
+          shipping_total: order.shipping_total.to_s,
+          processed_at_foreign: order.placed_at.strftime('%FT%T%:z'),
+          shipping_address: shipping_address,
+          billing_address: billing_address,
+          lines: lines,
+          customer: customer
+        }
+        order_hsh.merge!(campaign_id: order.mail_chimp_campaign_id) if order.mail_chimp_campaign_id.present?
+        order_hsh
+      end
+
+      private
+
+        def customer
+          {
+            id: Digest::MD5.hexdigest(order.email),
+            email_address: order.email,
+            opt_in_status: Workarea::Email.signed_up?(order.email),
+            orders_count: user_order_count,
+            total_spent: user_order_total.to_s,
+            first_name: payment.address.first_name,
+            last_name:  payment.address.last_name
+          }
+        end
+
+        def user_order_count
+          user_orders.count
+        end
+
+        def user_order_total
+          user_orders.map(&:total_price).sum
+        end
+
+        def user_orders
+          @user_orders ||= Workarea::Order.placed.where(email: order.email)
+        end
+
+        def shipping_address
+          return unless shipping.present?
+
+          MailChimp::Address.new(shipping.address).to_h
+        end
+
+        def billing_address
+          MailChimp::Address.new(payment.address).to_h
+        end
+
+        def financial_status
+          options[:financial_status] || ""
+        end
+
+        def fulfillment_status
+          options[:fulfillment_status] || ""
+        end
+
+        # order items. Mailchimp refers to them as "lines"
+        def lines
+          order.items.map do |oi|
+            {
+              id: oi.id.to_s,
+              product_id: oi.product_id,
+              product_variant_id: oi.sku,
+              quantity: oi.quantity,
+              price: oi.total_price.to_s
+            }
+          end
+        end
+
+        def payment
+          @payment ||=  Workarea::Payment.find(order.id)
+        end
+
+        def shipping
+          @shipping ||= Workarea::Shipping.find_by_order(order.id)
+        end
+    end
+  end
+end

data/app/services/workarea/mail_chimp/product.rb

@@ -0,0 +1,43 @@
+module Workarea
+  module MailChimp
+    class Product
+      include ActionView::Helpers::AssetUrlHelper
+      include Core::Engine.routes.url_helpers
+      include Storefront::Engine.routes.url_helpers
+      include Workarea::ApplicationHelper
+
+      attr_reader :product
+
+      def initialize(product)
+        @product = product
+      end
+
+      # @return Hash
+      def to_h
+        {
+          id: product.id.to_s,
+          title: product.name,
+          handle: product.slug,
+          url:  product_url(id: product.to_param, host: Workarea.config.host),
+          description: product.description.to_s,
+          image_url: primary_image,
+          variants: variants
+        }
+      end
+
+      private
+
+        def variants
+          @variants ||= product.variants.map{ |v| Variant.new(v).to_h }
+        end
+
+        def primary_image
+          Workarea.config.host + ProductPrimaryImageUrl.new(product).path
+        end
+
+        def mounted_core
+          self
+        end
+    end
+  end
+end

data/app/services/workarea/mail_chimp/variant.rb

@@ -0,0 +1,43 @@
+module Workarea
+  module MailChimp
+    class Variant
+      include ActionView::Helpers::AssetUrlHelper
+      include Core::Engine.routes.url_helpers
+      include Workarea::ApplicationHelper
+
+      delegate :sku, to: :variant
+
+      attr_reader :variant
+
+      def initialize(variant)
+        @variant = variant
+      end
+
+      # @return Hash
+      def to_h
+        {
+          id: sku,
+          title: variant.name,
+          sku: sku,
+          price: price.to_s,
+          inventory_quantity: inventory_sku.available_to_sell,
+          visibility: inventory_sku.displayable?.to_s
+        }
+      end
+
+      private
+
+      def inventory_sku
+        @inventory_sku ||= Inventory::Sku.find(sku) rescue Inventory::Sku.new(id: sku)
+      end
+
+      def pricing_sku
+        @pricing_sku ||= Pricing::Sku.find(sku) rescue Pricing::Sku.new(id: sku)
+      end
+
+      def price
+        pricing_sku.sell_price.dollars.to_f
+      end
+    end
+  end
+end

data/app/view_models/workarea/storefront/user_view_model.decorator

@@ -0,0 +1,16 @@
+module Workarea
+  decorate Storefront::UserViewModel, with: :mail_chimp do
+    def has_email_interest?(interest)
+      return false if model.groups.empty?
+      email_interests.find { |id, int| int == interest }
+    end
+
+    def email_interests
+      model.groups.map(&:interests).inject(&:merge)
+    end
+
+    def email_signup?
+      model.email_signup || super
+    end
+  end
+end

data/app/views/workarea/storefront/mail_chimp/_ecommerce_javascript.html.haml

@@ -0,0 +1,2 @@
+- if Workarea::MailChimp.current_store.present?
+ != Workarea::MailChimp.current_store.site_script_fragment

data/app/views/workarea/storefront/users/accounts/_edit.html.haml

@@ -0,0 +1,12 @@
+.email-interest-group
+- if @email_interests.present?
+  %p.email-interest-group__heading= t('workarea.storefront.users.edit.email_interests')
+  - @email_interests.each do |group|
+    %p.email-interest-group__sub-heading= group["name"]
+    - group.interests.each do |id, interest|
+      .button-property
+        .value= check_box_tag "groups[][interests][#{id}]", interest, @user.has_email_interest?(interest)
+        = label_tag "groups[][interests][#{id}]", nil, class: 'button-property__name' do
+          %span.text= interest
+    = hidden_field_tag 'groups[][id]', group._id if group._id.present?
+    = hidden_field_tag 'groups[][name]', group.name if group.name.present?

data/app/views/workarea/storefront/users/accounts/_email_interests.html.haml

@@ -0,0 +1,13 @@
+%tr
+  %th
+    %span= t('workarea.storefront.users.email_preferences.interests')
+  %td
+    - if @user.email_interests.present?
+      %ul.inline-list
+        - @user.email_interests.each.with_index(1) do |(_id, interest), index|
+          %li<
+            #{interest}
+            - if index != @user.email_interests.size
+              ,
+    - else
+      %p= t('workarea.storefront.users.email_preferences.none')

data/app/workers/workarea/mail_chimp/ecommerce/save_cart.rb

@@ -0,0 +1,40 @@
+module Workarea
+  module MailChimp
+    module Ecommerce
+      class SaveCart
+        include Sidekiq::Worker
+
+        def perform(id, options = {})
+          order = Workarea::Order.find(id)
+
+          return if order.placed?
+          return if order.email.blank?
+
+          store_id = Workarea::MailChimp.config.default_store[:id]
+
+          customer_id = Digest::MD5.hexdigest(order.email)
+
+          # see if customer exists already
+          # existing customers only need to send the ID ot mailchimp
+          customer = MailChimp.request.ecommerce.stores(store_id).customers(customer_id).retrieve rescue nil
+
+          cart_options = { send_full_customer: customer.blank? }
+          mc_cart = Workarea::MailChimp::Cart.new(order, cart_options)
+
+          if order.cart_exported_to_mail_chimp_at.present?
+            MailChimp.request.ecommerce.stores(store_id).carts(order.id.to_s).update(body: mc_cart.to_h)
+          else
+            MailChimp.request.ecommerce.stores(store_id).carts.create(body: mc_cart.to_h)
+          end
+
+          # cart lines in mail chimp need to be removed outside of the delete or update methods.
+          if options["deleted_item_id"].present?
+            MailChimp.request.ecommerce.stores(store_id).carts(order.id.to_s).lines(options["deleted_item_id"]).delete
+          end
+
+          order.set(cart_exported_to_mail_chimp_at: Time.current)
+        end
+      end
+    end
+  end
+end

data/app/workers/workarea/mail_chimp/ecommerce/save_order.rb

@@ -0,0 +1,31 @@
+module Workarea
+  module MailChimp
+    module Ecommerce
+      class SaveOrder
+        include Sidekiq::Worker
+        include Sidekiq::CallbacksWorker
+
+        sidekiq_options(
+          enqueue_on: { Workarea::Order => [:place] },
+          unique: :until_executing
+        )
+
+        def perform(id)
+          order = Workarea::Order.find(id)
+          mc_order = Workarea::MailChimp::Order.new(order)
+          store_id = Workarea::MailChimp.config.default_store[:id]
+
+          MailChimp.request.ecommerce.stores(store_id).orders.create(body: mc_order.to_h)
+
+          order.set(exported_to_mail_chimp_at: Time.current)
+
+          delete_cart(id, store_id)
+        end
+
+        def delete_cart(id, store_id)
+          MailChimp.request.ecommerce.stores(store_id).carts(id).delete rescue nil
+        end
+      end
+    end
+  end
+end

data/app/workers/workarea/mail_chimp/ecommerce/save_product.rb

@@ -0,0 +1,31 @@
+module Workarea
+  module MailChimp
+    module Ecommerce
+      class SaveProduct
+        include Sidekiq::Worker
+        include Sidekiq::CallbacksWorker
+
+        sidekiq_options(
+          enqueue_on: { Catalog::Product => [:save] },
+          unique: :until_executing
+        )
+
+        def perform(id)
+          product = Workarea::Catalog::Product.find(id)
+
+          mc_product = Workarea::MailChimp::Product.new(product)
+
+          store_id = Workarea::MailChimp.config.default_store[:id]
+
+          if product.exported_to_mail_chimp_at.present?
+            MailChimp.request.ecommerce.stores(store_id).products(product.id.to_s).update(body: mc_product.to_h)
+          else
+            MailChimp.request.ecommerce.stores(store_id).products.create(body: mc_product.to_h)
+          end
+
+          product.set(exported_to_mail_chimp_at: Time.current)
+        end
+      end
+    end
+  end
+end

data/app/workers/workarea/mail_chimp/list_subscriber.rb

@@ -0,0 +1,30 @@
+module Workarea
+  module MailChimp
+    class ListSubscriber
+      include Sidekiq::Worker
+      include Sidekiq::CallbacksWorker
+
+      sidekiq_options(
+        enqueue_on: { Email::Signup => [:save] },
+        queue: "low",
+        retry: true
+      )
+
+      def perform(email_signup_id)
+        signup = Email::Signup.find(email_signup_id)
+        @user = User.find_by(email: signup.email) rescue nil
+
+        if @user
+          Workarea::MailChimp.gateway.subscribe(@user.email, user: @user)
+          update_user_subscription
+        else
+          Workarea::MailChimp.gateway.subscribe(signup.email)
+        end
+      end
+
+      def update_user_subscription
+        @user.update_attributes(email_signup: true)
+      end
+    end
+  end
+end