card 1.21.0 → 1.91

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

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

@@ -1,20 +0,0 @@
-# -*- 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/mod012-email/type/email_template.rb

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

data/tmpsets/set/mod012-email/type_plus_right/user/follow.rb

@@ -1,184 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class TypePlusRight; module User; module Follow; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type_plus_right/user/follow.rb ~~
-include Card::Set::Type::Pointer
-
-def raw_content
-  item_names.map { |name| "[[#{name}]]" }
-end
-
-def item_names
-  if (user = left)
-    Card.preference_names user.name, "follow"
-  else
-    []
-  end
-end
-
-def item_cards
-  item_names.map { |name| Card.fetch name }
-end
-
-def virtual?
-  !real?
-end
-
-format { include Card::Set::Type::Pointer::Format }
-
-format :html do
-  include Card::Set::Type::Pointer::HtmlFormat
-
-  view :closed_content do |_args|
-    ""
-  end
-
-  view :core do |args|
-    <<-HTML
-      <div role="tabpanel">
-        <ul class="nav nav-tabs" role="tablist" id="myTab">
-          <li role="presentation" class="active">
-             <a href="#following" aria-controls="following"
-                role="tab" data-toggle="tab">Follow</a>
-          </li>
-          <li role="presentation">
-            <a href="#ignoring" aria-controls="ignoring"
-               role="tab" data-toggle="tab">Ignore</a>
-          </li>
-        </ul>
-        <div class="tab-content">
-          <div role="tabpanel" class="tab-pane active" id="following">
-            #{render_following_list args}
-          </div>
-          <div role="tabpanel" class="tab-pane" id="ignoring">
-            #{render_ignoring_list}
-          </div>
-        </div>
-      </div>
-    HTML
-  end
-
-  def followed_by_option
-    hash = Hash.new { |h, k| h[k] = [] }
-    card.item_cards.each do |follow_rule|
-      follow_rule.item_cards.each do |follow_option|
-        hash[follow_option.codename.to_sym] << follow_rule
-      end
-    end
-  end
-
-  def each_suggestion
-    return unless (suggestions = Card["follow suggestions"])
-    suggestions.item_names.each do |sug|
-      set_card = Card.fetch sug.to_name.left
-      if set_card && set_card.type_code == :set
-        sugtag = sug.to_name.right
-        option_card = Card.fetch(sugtag) || Card[sugtag.to_sym]
-        option = option_card.follow_option? ? option_card.name : "*always"
-        yield(set_card, option)
-      elsif (set_card = Card.fetch sug) && set_card.type_code == :set
-        yield(set_card, "*always")
-      end
-    end
-  end
-
-  # returns hashes with existing and suggested follow options
-  # structure:
-  # set_pattern_class =>
-  #  [ {card: rule_card, options: ['*always', '*created'] },.... ]
-  def followed_by_set
-    res = Hash.new { |h, k| h[k] = [] }
-    never = Card[:never].name
-    card.item_cards.each do |follow_rule|
-      options = follow_rule.item_names.reject { |item| item == never }
-      res[follow_rule.rule_set.subclass_for_set] << { card: follow_rule,
-                                                      options: options }
-    end
-
-    if Auth.signed_in? && Auth.current_id == card.left.id
-      each_suggestion do |set_card, option|
-        suggested_rule_name = set_card.follow_rule_name(card.trunk)
-        rule = res[set_card.subclass_for_set].find do |rule|
-          rule[:card].name == suggested_rule_name
-        end
-        if rule
-          rule[:options] << option unless rule[:options].include? option
-        else
-          rule_card = Card.new(name: suggested_rule_name)
-          res[set_card.subclass_for_set] << { card: rule_card,
-                                              options: [option] }
-        end
-      end
-    end
-    res
-  end
-
-  view :following_list do |_args|
-    if !Auth.signed_in? || Auth.current_id != card.left.id
-      hide_buttons = [:delete_follow_rule_button, :add_follow_rule_button]
-    end
-
-    sets = followed_by_set
-    wrap_with :div, class: "pointer-list-editor" do
-      wrap_with :ul, class: "delete-list list-group" do
-        Card.set_patterns.select { |p| sets[p] }.reverse.map do |set_pattern|
-          sets[set_pattern].map do |rule|
-            rule[:options].map do |option|
-              content_tag :li, class: "list-group-item" do
-                subformat(rule[:card]).render_follow_item condition: option,
-                                                          hide: hide_buttons
-              end
-            end.join("\n")
-          end.join("\n")
-        end.join("\n")
-      end
-    end
-  end
-
-  view :ignoring_list do |_args|
-    ignore_list = []
-    card.item_cards.each do |follow_rule|
-      follow_rule.item_cards.each do |follow_option|
-        ignore_list << follow_rule if follow_option.codename.to_sym == :never
-      end
-    end
-    if !Auth.signed_in? || Auth.current_id != card.left.id
-      hide_buttons = [:delete_follow_rule_button, :add_follow_rule_button]
-    end
-    never = Card[:never].name
-    wrap_with :div, class: "pointer-list-editor" do
-      wrap_with :ul, class: "delete-list list-group" do
-        ignore_list.map do |rule_card|
-          content_tag :li, class: "list-group-item" do
-            subformat(rule_card).render_follow_item condition: never,
-                                                    hide: hide_buttons
-          end
-        end.join "\n"
-      end
-    end
-  end
-
-  view :pointer_items, tags: :unknown_ok do |args|
-    super(args.merge(item: :link))
-  end
-
-  view :errors, perms: :none do |args|
-    if card.errors.any?
-      if card.errors.find { |attrib, _msg| attrib == :permission_denied }
-        Env.save_interrupted_action(request.env["REQUEST_URI"])
-        title = "Problems with #{card.name}"
-        frame args.merge(panel_class: "panel panel-warning",
-                         title: title, hide: "menu") do
-          "Please #{link_to 'sign in', card_url(':signin')}" # " #{to_task}"
-        end
-      else
-        super(args)
-      end
-    end
-  end
-end
-
-format(:css) { include Card::Set::Type::Pointer::CssFormat }
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type_plus_right/user/follow.rb ~~
-end;end;end;end;end;

data/tmpsets/set/mod013-carrierwave/abstract/attachment.rb

@@ -1,282 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module Attachment; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
-require "carrier_wave/cardmount"
-
-def self.included host_class
-  host_class.extend CarrierWave::CardMount
-end
-
-event :select_file_revision, after: :select_action do
-  attachment.retrieve_from_store!(attachment.identifier)
-end
-
-event :upload_attachment, :prepare_to_validate,
-      on: :save, when: proc { |c| c.preliminary_upload? } do
-  save_original_filename  # save original filename as comment in action
-  write_identifier        # set db_content
-  # (needs original filename to determine extension)
-  store_attachment!
-  finalize_action         # create Card::Change entry for db_content
-
-  card_id = new_card? ? upload_cache_card.id : id
-  @current_action.update_attributes! draft: true, card_id: card_id
-  success << {
-    target: (new_card? ? upload_cache_card : self),
-    type: type_name,
-    view: "preview_editor",
-    rev_id: current_action.id
-  }
-  abort :success
-end
-
-event :assign_attachment_on_create, :initialize,
-      after: :assign_action, on: :create,
-      when: proc { |c| c.save_preliminary_upload? } do
-  if (action = Card::Action.fetch(@action_id_of_cached_upload))
-    upload_cache_card.selected_action_id = action.id
-    upload_cache_card.select_file_revision
-    assign_attachment upload_cache_card.attachment.file, action.comment
-  end
-end
-
-event :assign_attachment_on_update, :initialize,
-      after: :assign_action, on: :update,
-      when:  proc { |c| c.save_preliminary_upload? } do
-  if (action = Card::Action.fetch(@action_id_of_cached_upload))
-    uploaded_file =
-      with_selected_action_id(action.id) do
-        attachment.file
-      end
-    assign_attachment uploaded_file, action.comment
-  end
-end
-
-def assign_attachment file, original_filename
-  send "#{attachment_name}=", file
-  write_identifier
-  @current_action.update_attributes! comment: original_filename
-end
-
-# we need a card id for the path so we have to update db_content when we have
-# an id
-event :correct_identifier, :finalize, on: :create do
-  update_column(:db_content, attachment.db_content(mod: load_from_mod))
-  expire
-end
-
-def file_ready_to_save?
-  attachment.file.present? &&
-    !preliminary_upload? &&
-    !save_preliminary_upload? &&
-    attachment_changed?
-end
-
-event :save_original_filename, :prepare_to_store,
-      when: proc { |c| c.file_ready_to_save? } do
-  return unless @current_action
-  @current_action.update_attributes! comment: original_filename
-end
-
-event :delete_cached_upload_file_on_create, :integrate,
-      on: :create, when: proc { |c| c.save_preliminary_upload? } do
-  if (action = Card::Action.fetch(@action_id_of_cached_upload))
-    upload_cache_card.delete_files_for_action action
-    action.delete
-  end
-  clear_upload_cache_dir_for_new_cards
-end
-
-event :delete_cached_upload_file_on_update, :integrate,
-      on: :update, when: proc { |c| c.save_preliminary_upload? } do
-  if (action = Card::Action.fetch(@action_id_of_cached_upload))
-    delete_files_for_action action
-    action.delete
-  end
-end
-
-event :validate_file_exist, :validate, on: :create do
-  unless attachment.file.present? || empty_ok?
-    errors.add attachment_name, "is missing"
-  end
-end
-
-event :write_identifier, after: :save_original_filename do
-  self.content = attachment.db_content(mod: load_from_mod)
-end
-
-def item_names _args={} # needed for flexmail attachments.  hacky.
-  [cardname]
-end
-
-def original_filename
-  attachment.original_filename
-end
-
-def unfilled?
-  !attachment.present? && !save_preliminary_upload? && !subcards.present?
-end
-
-def preliminary_upload?
-  Card::Env && Card::Env.params[:attachment_upload]
-end
-
-def save_preliminary_upload?
-  @action_id_of_cached_upload.present?
-end
-
-def attachment_changed?
-  send "#{attachment_name}_changed?"
-end
-
-def create_versions?
-  true
-end
-
-# used for uploads for new cards until the new card is created
-def upload_cache_card
-  @upload_cache_card ||= Card["new_#{attachment_name}".to_sym]
-end
-
-# action id of the cached upload
-attr_writer :action_id_of_cached_upload
-
-attr_reader :action_id_of_cached_upload
-
-attr_writer :empty_ok
-
-def empty_ok?
-  @empty_ok
-end
-
-def load_from_mod= value
-  @mod = value
-  write_identifier
-  @store_in_mod = true if value
-end
-
-def load_from_mod
-  @mod
-end
-
-def store_dir
-  if @store_in_mod
-    mod_dir
-  else
-    upload_dir
-  end
-end
-
-def retrieve_dir
-  if mod_file?
-    mod_dir
-  else
-    upload_dir
-  end
-end
-
-# place for files of regular file cards
-def upload_dir
-  if id
-    "#{Card.paths['files'].existent.first}/#{id}"
-  else
-    tmp_upload_dir
-  end
-end
-
-# place for files if card doesn't have an id yet
-def tmp_upload_dir _action_id=nil
-  "#{Card.paths['files'].existent.first}/#{upload_cache_card.id}"
-end
-
-# place for files of mod file cards
-def mod_dir
-  mod = @mod || mod_file?
-  Card.paths["mod"].to_a.each do |mod_path|
-    dir = File.join(mod_path, mod, "file", codename)
-    return dir if Dir.exist? dir
-  end
-end
-
-def mod_file?
-  return @mod if @store_in_mod
-  # when db_content was changed assume that it's no longer a mod file
-  return if db_content_changed? || !content.present?
-  case content
-  when %r{^:[^/]+/([^.]+)} then Regexp.last_match(1) # current mod_file format
-  when /^\~/               then false  # current id file format
-  else
-    if (lines = content.split("\n")) && (lines.size == 4)
-      # old format, still used in card_changes.
-      lines.last
-    end
-  end
-end
-
-def assign_set_specific_attributes
-  # reset content if we really have something to upload
-  if @set_specific.present? && @set_specific[attachment_name.to_s].present?
-    self.content = nil
-  end
-  super
-end
-
-def clear_upload_cache_dir_for_new_cards
-  Dir.entries(tmp_upload_dir).each do |filename|
-    if filename =~ /^\d+/
-      path = File.join(tmp_upload_dir, filename)
-      FileUtils.rm path if Card.older_than_five_days? File.ctime(path)
-    end
-  end
-end
-
-def delete_files_for_action action
-  with_selected_action_id(action.id) do
-    FileUtils.rm attachment.file.path
-    attachment.versions.each_value do |version|
-      FileUtils.rm version.path
-    end
-  end
-end
-
-# create filesystem links to files from prior action
-def symlink_to prior_action_id
-  return unless prior_action_id != last_action_id
-  save_action_id = selected_action_id
-  links = {}
-
-  self.selected_action_id = prior_action_id
-  attachment.versions.each do |name, version|
-    links[name] = version.store_path
-  end
-  original = attachment.store_path
-
-  self.selected_action_id = last_action_id
-  attachment.versions.each do |name, version|
-    ::File.symlink links[name], version.store_path
-  end
-  ::File.symlink original, attachment.store_path
-
-  self.selected_action_id = save_action_id
-end
-
-def attachment_format ext
-  if ext.present? && attachment && (original_ext = attachment.extension)
-    if ["file", original_ext].member? ext
-      original_ext
-    elsif (exts = MIME::Types[attachment.content_type])
-      if exts.find { |mt| mt.extensions.member? ext }
-        ext
-      else
-        exts[0].extensions[0]
-      end
-    end
-  end
-rescue => e
-  Rails.logger.info "attachment_format issue: #{e.message}"
-  nil
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
-end;end;end;end;