card 1.18.6 → 1.19.0

data/tmpsets/set/mod012-email/all/observer.rb

@@ -0,0 +1,33 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Observer; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/observer.rb ~~
+def send_action_mails args
+  setting = "on_#{args[:on]}".to_sym
+  email_templates_for(setting) do |mailcard|
+    mailcard.deliver(context: self)
+  end
+end
+
+def email_templates_for setting
+  if (email_templates = @email_template_cache ||
+      ((event_card = rule_card(setting)) && event_card.extended_item_cards))
+    email_templates.each do |mailcard|
+      yield(mailcard)
+    end
+  end
+end
+
+[:create, :update, :delete].each do |action|
+  event "observer_#{action}".to_sym, :integrate, on: action do
+    send_action_mails on: action
+  end
+end
+
+event :cache_delete_email_templates, :store, on: :delete do
+  event_card = rule_card(:on_delete)
+  @email_template_cache = event_card && event_card.extended_item_cards
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/observer.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-email/right/bcc.rb

@@ -0,0 +1,47 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module Bcc; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/bcc.rb ~~
+
+def process_email_addresses context_card, format_args, args
+  format(format_args).render_email_addresses(args.merge(context: context_card))
+end
+
+format do
+  def chunk_list  # turn off autodetection of uri's
+    :references
+  end
+end
+
+format :html do
+  view :pointer_items do |args|
+    card.item_names(context: :raw).map do |iname|
+      wrap_item iname, args
+    end.join ", "
+  end
+end
+
+format :email_text do
+  view :email_addresses do |args|
+    context = args[:context] || self
+    card.item_names(context: context.cardname).map do |item_name|
+      # note that context is processed twice here because pointers absolutize
+      # item_names by default while other types can return relative names.
+      # That's poor default behavior and should be fixed!
+      item_name = item_name.to_name.to_absolute(context).to_s
+      if item_name =~ /.+\@.+\..+/
+        item_name
+      elsif (item_card = Card.fetch(item_name))
+        if item_card.account
+          item_card.account.email
+        else
+          item_card.contextual_content(context, format: :email_text)
+                   .split(/[,\n]/)
+        end
+      end
+    end.flatten.compact.join(", ")
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/bcc.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-email/right/cc.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module Cc; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/cc.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/cc.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-email/right/follow.rb

@@ -0,0 +1,106 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right; module Follow; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/follow.rb ~~
+include All::Permissions::Follow
+
+def option_cards
+  Card::FollowOption.cards.compact
+end
+
+def options_rule_card
+  Card.new(
+    name: "follow_options_card",
+    type_code: :pointer,
+    content: option_cards.map { |oc| "[[#{oc.name}]]" }.join("\n")
+  )
+end
+
+format :html do
+  def default_follow_item_args args
+    args[:condition] ||= Env.params[:condition] || "*always"
+  end
+
+  view :follow_item, tags: :unknown_ok do |args|
+    if card.new_card? || !card.include_item?(args[:condition])
+      button_view = :add_follow_rule_button
+      form_opts = { add_item: args[:condition] }
+    else
+      button_view = :delete_follow_rule_button
+      form_opts = { drop_item: args[:condition] }
+    end
+
+    text = if (option_card = Card.fetch args[:condition])
+             option_card.description(card.rule_set)
+           else
+             card.rule_set.follow_label
+           end
+    link_target = if card.rule_set.tag.codename == "self"
+                    card.rule_set_name.left
+                  else
+                    "#{card.rule_set_name}+by name"
+                  end
+    wrap do
+      card_form(
+        { action: :update, name: card.name, success: { view: :follow_item } },
+        hidden: { condition: args[:condition] }.merge(form_opts)
+      ) do
+        output [
+          _optional_render(button_view, args),
+          card_link(link_target, text: text)
+        ]
+      end
+    end
+  end
+
+  def default_follow_status_args args
+    args[:card_key] ||= card.set_prototype.key
+  end
+
+  view :follow_status do |args|
+    delete_options =
+      wrap_with(:ul, class: "delete-list list-group") do
+        card.item_names.map do |option|
+          content_tag :li, class: "list-group-item" do
+            condition = option == "*never" ? "*always" : option
+            subformat(card).render_follow_item condition: condition
+          end
+        end.join "\n"
+      end
+
+    follow_link =
+      card_link args[:card_key],
+                text: "more options",
+                path_opts: {
+                  view: :related,
+                  related: { name: card.name, view: :edit_single_rule }
+                },
+                class: "btn update-follow-link",
+                "data-card_key" => args[:card_key]
+
+    header = "<h4>Get notified about changes</h4>"
+
+    [header, delete_options, follow_link].join "\n\n"
+  end
+
+  view :delete_follow_rule_button do |_args|
+    button_tag(
+      type: :submit,
+      class: "btn-xs btn-item-delete btn-primary", "aria-label" => "Left Align"
+    ) do
+      tag :span, class: "glyphicon glyphicon-ok", "aria-hidden" => "true"
+    end
+  end
+
+  view :add_follow_rule_button do |_args|
+    button_tag(
+      type: :submit,
+      class: "btn-xs btn-item-add", "aria-label" => "Left Align"
+    ) do
+      tag :span, class: "glyphicon glyphicon-plus", "aria-hidden" => "true"
+    end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/right/follow.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-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/mod012-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/mod012-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/mod012-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/mod012-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/mod012-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/mod012-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/mod012-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/mod012-email/self/edited.rb

@@ -0,0 +1,27 @@
+# -*- encoding : utf-8 -*-
+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
+
+follower_candidate_ids do |card|
+  # FIXME? - could optimize by not using cards table...
+  Card.search editor_of: card.name, return: :id
+end
+
+def title
+  "Following content you edited"
+end
+
+def label
+  "follow if I edited"
+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;

data/tmpsets/set/mod012-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/mod012-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;