card 1.18.6 → 1.19.0

data/tmpsets/set/mod006-05_email/self/follow.rb

@@ -1,9 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Self; module Follow; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_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/05_email/set/self/follow.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod006-05_email/self/follow_defaults.rb

@@ -1,76 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Self; module FollowDefaults; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/self/follow_defaults.rb ~~~~~~~~~~~
-event :update_follow_rules,
-      after: :store, 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: {})
-        if follow_rule
-          follow_rule.drop_item '*never'
-          follow_rule.drop_item '*always'
-          follow_rule.add_item option
-          follow_rule.save!
-        end
-      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/05_email/set/self/follow_defaults.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod006-05_email/self/never.rb

@@ -1,22 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Self; module Never; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/self/never.rb ~~~~~~~~~~~
-include Card::FollowOption
-
-self.follow_opts position: 3
-
-self.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/05_email/set/self/never.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod006-05_email/type/email_template.rb

@@ -1,120 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Type; module EmailTemplate; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/type/email_template.rb ~~~~~~~~~~~
-
-def clean_html?
-  false
-end
-
-def deliver args={}
-  begin
-    mail = format.render_mail(args)
-    mail.deliver
-  rescue Net::SMTPError => exception
-    errors.add :exception, exception.message
-  end
-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] and 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: :inclusion_only }
-  process_message_field :text_message, config, args, 'email_text'
-  process_message_field :html_message, config, args, 'email_html'
-  config[:html_message] = Card::Mailer.layout config[:html_message] if config[:html_message].present?
-
-
-  from_name, from_email = (config[:from] =~ /(.*)\<(.*)>/) ? [$1.strip, $2] : [nil, config[:from]]
-
-  if default_from=Card::Mailer.default[:from]
-    config[:from] = from_email ? %["#{from_name || from_email}" <#{default_from}>] : default_from
-    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 and !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/05_email/set/type/email_template.rb ~~~~~~~~~~~
-end;end;end;end;

data/tmpsets/set/mod006-05_email/type_plus_right/user/follow.rb

@@ -1,183 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module TypePlusRight; module User; module Follow; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/type_plus_right/user/follow.rb ~~~~~~~~~~~
-
-include Card::Set::Type::Pointer
-
-def raw_content
-  @raw_content ||= if left
-      items = if left.type_id == Card::UserID
-         user = left
-         follow_rules = Card.user_rule_cards left.name, 'follow'
-         follow_rules.map {|card| "[[#{card.name}]]" }
-      end.join "\n"
-    else
-      ''
-    end
-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|
-     %{
-      <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>
-     }
-   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
-     if (suggestions = Card["follow suggestions"])
-       suggestions.item_names.each do |sug|
-         if ((set_card = Card.fetch sug.to_name.left) && set_card.type_code == :set)
-           option_card = Card.fetch(sug.to_name.right) || Card[sug.to_name.right.to_sym]
-           option = if option_card.follow_option?
-                      option_card.name
-                    else
-                      '*always'
-                    end
-           yield(set_card, option)
-         elsif ((set_card = Card.fetch sug) && set_card.type_code == :set)
-           yield(set_card, '*always')
-         end
-       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)
-         if (rule = res[set_card.subclass_for_set].find { |rule| rule[:card].name == suggested_rule_name })
-           if !rule[:options].include? option
-             rule[:options] << option
-           end
-         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|
-         if follow_option.codename.to_sym == :never
-           ignore_list << follow_rule
-         end
-       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/05_email/set/type_plus_right/user/follow.rb ~~~~~~~~~~~
-end;end;end;end;end;

data/tmpsets/set/mod007-05_standard/abstract/attachment.rb

@@ -1,301 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; module Abstract; module Attachment; extend Card::Set
-# ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/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, before: :validate_name, 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,
-      after: :prepare,
-      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,
-      after: :prepare,
-      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, after: :store, 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, after: :validate_name,
-                               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,
-      after: :extend,
-      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,
-      after: :extend,
-      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, before: :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
-def action_id_of_cached_upload= value
-  @action_id_of_cached_upload = value
-end
-
-def action_id_of_cached_upload
-  @action_id_of_cached_upload
-end
-
-def empty_ok= value
-  @empty_ok = value
-end
-
-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)
-    if Dir.exist? dir
-      return dir
-    end
-  end
-end
-
-def mod_file?
-  if @store_in_mod
-    return @mod
-  # when db_content was changed assume that it's no longer a mod file
-  elsif !db_content_changed? && content.present?
-    case content
-    when %r{^:[^/]+/([^.]+)} then $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
-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 )
-      if Card.older_than_five_days? File.ctime(path)
-        FileUtils.rm path
-      end
-    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/05_standard/set/abstract/attachment.rb ~~~~~~~~~~~
-end;end;end;end;