card 1.99.4 → 1.99.5

data/tmpsets/set/mod013-email/right/follow_fields.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module FollowFields; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/follow_fields.rb ~~
+event :follow_fields_changed, :integrate do
+  Card.follow_caches_expired
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/follow_fields.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/right/followers.rb

@@ -0,0 +1,41 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module Followers; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/followers.rb ~~
+# -*- encoding : utf-8 -*-
+
+include Card::Set::Type::Pointer
+
+def raw_content
+  if left
+    items =
+      if (left.type_id == SetID) || (left.type_id == CardtypeID)
+        set_card = left.default_follow_set_card
+        set_card.all_user_ids_with_rule_for(:follow).map do |user_id|
+          if left.followed_by?(user_id) && (user = Card.find(user_id))
+            user.name
+          end
+        end.compact
+      else
+        left.follower_names
+      end
+    items.map { |item| "[[#{item}]]" }.join "\n"
+  else
+    ""
+  end
+end
+
+def virtual?
+  !real?
+end
+
+format do
+  include Card::Set::Type::Pointer::Format
+end
+
+format :html do
+  include Card::Set::Type::Pointer::HtmlFormat
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/followers.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/right/following.rb

@@ -0,0 +1,65 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module Following; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/following.rb ~~
+
+def virtual?
+  !real?
+end
+
+format :html do
+  view :core do |args|
+    if card.left && Auth.signed_in?
+      render_rule_editor args
+    else
+      fname = "#{card.cardname.left}+#{Card[:followers].name}"
+      fcard = Card.fetch fname
+      nest fcard, view: :titled, item: :link
+    end
+  end
+
+  view :status do |_args|
+    if (rcard = current_follow_rule_card)
+      rcard.item_cards.map do |item|
+        %(<div class="alert alert-success" role="alert">
+          <strong>#{rcard.rule_set.follow_label}</strong>: #{item.title}
+         </div>)
+      end.join
+    else
+      "No following preference"
+    end
+  end
+
+  view :closed_content do |_args|
+    ""
+  end
+
+  # view :editor do |args|
+  #   hidden_field( :content, class: 'card-content', 'no-autosave'=>true) +
+  #   (args.delete(:select_list) ? raw(render_rule_editor(args)) : super(args) )
+  # end
+
+  view :rule_editor do |_args|
+    preference_name = [
+      card.left.default_follow_set_card.name,
+      Auth.current.name,
+      Card[:follow].name
+    ].join("+")
+    rule_context = Card.fetch preference_name, new: { type_id: PointerID }
+
+    wrap_with :div, class: "edit-rule" do
+      follow_context = current_follow_rule_card || rule_context
+      subformat(follow_context).render_edit_rule(
+        rule_context: rule_context,
+        success: { view: "status", id: card.name }
+      )
+    end
+  end
+
+  def current_follow_rule_card
+    card.left.rule_card :follow, user: Auth.current
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/following.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/right/from.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module From; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/from.rb ~~
+include Bcc
+format(:email_text) { include Bcc::EmailTextFormat }
+format(:html)       { include Bcc::HtmlFormat }
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/from.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/right/html_message.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module HtmlMessage; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/html_message.rb ~~
+def clean_html?
+  false
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/html_message.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/right/to.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module To; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/to.rb ~~
+include Bcc
+format(:email_text) { include Bcc::EmailTextFormat }
+format(:html)       { include Bcc::HtmlFormat }
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/to.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/self/always.rb

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Always; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/always.rb ~~
+include Card::FollowOption
+
+follow_opts position: 2
+
+follow_test { |_follower_id, _accounted_ids| true }
+
+def title
+  "Following"
+end
+
+def label
+  "follow"
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/always.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/self/created.rb

@@ -0,0 +1,26 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Created; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/created.rb ~~
+include Card::FollowOption
+
+restrictive_follow_opts position: 1
+
+follower_candidate_ids do |card|
+  [card.creator_id]
+end
+
+def title
+  "Following content you created"
+end
+
+def label
+  "follow if I created"
+end
+
+def description set_card
+  "#{set_card.follow_label} I created"
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/created.rb ~~
+end;end;end;end;

data/tmpsets/set/{mod017-follow → mod013-email}/self/edited.rb

@@ -1,11 +1,7 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Self
-# Set: The card "Edited"
-#
-module Edited;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/self/edited.rb"; end
-include_set Abstract::FollowOption
+class Card; module Set; class Self; module Edited; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/edited.rb ~~
+include Card::FollowOption
 
 restrictive_follow_opts position: 2
 
@@ -25,5 +21,7 @@ end
 def description set_card
   "#{set_card.follow_label} I edited"
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/edited.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/self/edited.rb ~~

data/tmpsets/set/mod013-email/self/follow.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Follow; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/follow.rb ~~
+extend Card::Setting
+setting_opts group: :other, position: 7, rule_type_editable: false, user_specific: true
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/follow.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/self/follow_defaults.rb

@@ -0,0 +1,75 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module FollowDefaults; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/follow_defaults.rb ~~
+event :update_follow_rules, :finalize,
+      on: :save, when: proc { |c| c.update_all_users } do
+  defaults = item_names.map do |item|
+    if (set_card = Card.fetch item.to_name.left) && set_card.type_code == :set
+      option_card = Card.fetch(item.to_name.right) ||
+                    Card[item.to_name.right.to_sym]
+      option = if option_card.follow_option?
+                 option_card.name
+               else
+                 "*always"
+               end
+      [set_card, option]
+    elsif (set_card = Card.fetch sug) && set_card.type_code == :set
+      [set_card, "*always"]
+    end
+  end.compact
+  Auth.as_bot do
+    Card.search(type: "user").each do |user|
+      defaults.each do |set_card, option|
+        follow_rule = Card.fetch(set_card.follow_rule_name(user.name), new: {})
+        next unless follow_rule
+        follow_rule.drop_item "*never"
+        follow_rule.drop_item "*always"
+        follow_rule.add_item option
+        follow_rule.save!
+      end
+    end
+  end
+  Card.follow_caches_expired
+end
+
+format :html do
+  view :edit, perms: :update, tags: :unknown_ok do |args|
+    frame_and_form :update, args do
+      [
+        _optional_render(:content_formgroup, args),
+        _optional_render(:confirm_update_all, args),
+        _optional_render(:button_formgroup,   args)
+      ]
+    end
+  end
+
+  view :confirm_update_all do |args|
+    wrap args do
+      alert "info" do
+        %(
+          <h1>Are you sure you want to change the default follow rules?</h1>
+          <p>You may choose to update all existing users.
+             This may take a while. </p>
+        )
+      end
+    end
+  end
+
+  def default_edit_args args
+    args[:hidden] ||= {}
+    args[:hidden].reverse_merge!(
+      success: "_self",
+      card:    { update_all_users: false }
+    )
+    args[:buttons] = %(
+      #{submit_button text: 'Submit and update all users',
+                      disable_with: 'Updating', class: 'follow-updater'}
+      #{button_tag 'Submit', class: 'follow'}
+      #{cancel_button href: path(view: :edit, id: card.id)}
+    )
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/follow_defaults.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/self/never.rb

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Never; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/never.rb ~~
+include Card::FollowOption
+
+follow_opts position: 3
+
+follow_test { |_follower_id, _accounted_ids| false }
+
+def title
+  "Ignoring"
+end
+
+def label
+  "ignore"
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/self/never.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/type/email_template.rb

@@ -0,0 +1,133 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module EmailTemplate; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type/email_template.rb ~~
+
+def clean_html?
+  false
+end
+
+def deliver args={}
+  mail = format.render_mail(args)
+  mail.deliver
+rescue Net::SMTPError => exception
+  errors.add :exception, exception.message
+end
+
+def process_email_field field, config, args
+  config[field] =
+    if args[field]
+      args[field]
+    elsif (field_card = fetch(trait: field))
+      # configuration can be anything visible to configurer
+      user = (args[:follower] && Card.fetch(args[:follower])) ||
+             field_card.updater
+      Auth.as(user) do
+        yield(field_card)
+      end
+    else
+      ""
+    end
+end
+
+def process_message_field field, config, args, format, special_args=nil
+  process_email_field(field, config, args) do |field_card|
+    content_args = args.clone
+    content_args.merge! special_args if special_args
+    field_card.contextual_content args[:context], { format: format },
+                                  content_args
+  end
+end
+
+def email_config args={}
+  config = {}
+  args[:context] ||= self
+
+  [:to, :from, :cc, :bcc].each do |field_name|
+    process_email_field(field_name, config, args) do |field_card|
+      field_card.process_email_addresses(
+        args[:context], { format: "email_text" }, args
+      )
+    end
+  end
+  process_email_field(:attach, config, args) do |field_card|
+    field_card.extended_item_contents args[:context]
+  end
+  process_message_field :subject, config, args, "email_text",
+                        content_opts: { chunk_list: :nest_only }
+  process_message_field :text_message, config, args, "email_text"
+  process_message_field :html_message, config, args, "email_html"
+  if config[:html_message].present?
+    config[:html_message] = Card::Mailer.layout config[:html_message]
+  end
+
+  from_name, from_email =
+    if config[:from] =~ /(.*)\<(.*)>/
+      [Regexp.last_match(1).strip, Regexp.last_match(2)]
+    else
+      [nil, config[:from]]
+    end
+
+  if (default_from = Card::Mailer.default[:from])
+    config[:from] =
+      if from_email
+        %("#{from_name || from_email}" <#{default_from}>)
+      else
+        default_from
+      end
+    config[:reply_to] ||= config[:from]
+  elsif config[:from].blank?
+    config[:from] = Card[Card::WagnBotID].account.email
+  end
+  config.select { |_k, v| v.present? }
+end
+
+format do
+  view :mail, perms: :none do |args|
+    args = card.email_config(args)
+    text_message = args.delete(:text_message)
+    html_message = args.delete(:html_message)
+    attachment_list = args.delete(:attach)
+    alternative = (text_message.present? && html_message.present?)
+    mail = Card::Mailer.new_mail(args) do
+      if alternative
+        if attachment_list && !attachment_list.empty?
+          content_type "multipart/mixed"
+          part content_type: "multipart/alternative" do |copy|
+            copy.part content_type: "text/plain" do |plain|
+              plain.body = text_message
+            end
+            copy.part content_type: "text/html" do |html|
+              html.body = html_message
+            end
+          end
+        else
+          text_part { body text_message }
+          html_part do
+            content_type "text/html; charset=UTF-8"
+            body html_message
+          end
+        end
+      elsif html_message.present?
+        content_type "text/html; charset=UTF-8"
+        body html_message
+      else
+        content_type "text/plain; charset=UTF-8"
+        text_part { body text_message }
+      end
+
+      if attachment_list
+        attachment_list.each_with_index do |cardname, i|
+          if (c = Card[cardname]) && c.respond_to?(:attachment)
+            add_file filename: "attachment-#{i + 1}.#{c.attachment.extension}",
+                     content: File.read(c.attachment.path)
+          end
+        end
+      end
+    end  # TODO: add error handling
+    mail
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type/email_template.rb ~~
+end;end;end;end;