card 1.99.6 → 1.100.0

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

@@ -1,33 +0,0 @@
-# -*- 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/mod013-email/right/bcc.rb

@@ -1,47 +0,0 @@
-# -*- 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/mod013-email/right/cc.rb

@@ -1,10 +0,0 @@
-# -*- 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/mod013-email/right/follow.rb

@@ -1,106 +0,0 @@
-# -*- 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/mod013-email/right/follow_fields.rb

@@ -1,10 +0,0 @@
-# -*- 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

@@ -1,41 +0,0 @@
-# -*- 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

@@ -1,65 +0,0 @@
-# -*- 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

@@ -1,10 +0,0 @@
-# -*- 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

@@ -1,10 +0,0 @@
-# -*- 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

@@ -1,10 +0,0 @@
-# -*- 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

@@ -1,20 +0,0 @@
-# -*- 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

@@ -1,26 +0,0 @@
-# -*- 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/mod013-email/self/edited.rb

@@ -1,27 +0,0 @@
-# -*- 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/mod013-email/self/follow.rb

@@ -1,9 +0,0 @@
-# -*- 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

@@ -1,75 +0,0 @@
-# -*- 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;