card 1.16.1 → 1.16.2

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

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

@@ -0,0 +1,119 @@
+# -*- 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 ] and 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

@@ -0,0 +1,182 @@
+# -*- 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?; true 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 }
+         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

@@ -0,0 +1,91 @@
+# -*- 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 :write_identifier, :after=>:assign_action do
+  self.content = attachment.db_content
+end
+
+event :save_original_filename, :before=>:finalize_action do
+  if @current_action
+    @current_action.update_attributes! :comment=>original_filename
+  end
+end
+
+event :move_file_to_store_dir, :after=>:store, :on=>:create do
+  if ::File.exist? tmp_store_dir
+    if ::File.exist? store_dir
+      FileUtils.rm_rf store_dir
+    end
+    FileUtils.mv tmp_store_dir, store_dir
+  end
+  if !(content =~ /^[:~]/)
+    update_column(:db_content,attachment.db_content)
+    expire
+  end
+end
+
+def item_names(args={})  # needed for flexmail attachments.  hacky.
+  [self.cardname]
+end
+
+def original_filename
+  attachment.original_filename
+end
+
+
+def assign_set_specific_attributes
+  if @set_specific && @set_specific.present?
+    self.content = nil
+  end
+  super
+end
+
+
+def symlink_to(prior_action_id) # create filesystem links to files from prior action
+  if 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
+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;

data/tmpsets/set/mod007-05_standard/all/account.rb

@@ -0,0 +1,73 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Account; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/account.rb ~~~~~~~~~~~
+module ClassMethods
+  def default_accounted_type_id
+    Card::UserID
+  end
+end
+
+def account
+  fetch :trait=>:account
+end
+
+def accountable?
+  Card.toggle( rule :accountable )
+end
+
+def parties
+  @parties ||= (all_roles << self.id).flatten.reject(&:blank?)
+end
+
+def among? ok_ids
+  ok_ids.each do |ok_id|
+    return true if parties.member? ok_id
+  end
+  ok_ids.member? Card::AnyoneID
+end
+
+def is_own_account?
+  # card is +*account card of signed_in user.
+  cardname.part_names[0].key == Auth.as_card.key and
+  cardname.part_names[1].key == Card[:account].key
+end
+
+def read_rules
+  @read_rules ||= begin
+    rule_ids = []
+    unless id==Card::WagnBotID # always_ok, so not needed
+      ( [ Card::AnyoneID ] + parties ).each do |party_id|
+        if rule_ids_for_party = self.class.read_rule_cache[ party_id ]
+          rule_ids += rule_ids_for_party
+        end
+      end
+    end
+    rule_ids
+  end
+end
+
+def all_roles
+  @all_roles ||= 
+    if id == Card::AnonymousID
+      []
+    else
+      Auth.as_bot do
+        role_trait = fetch :trait=>:roles
+        [ Card::AnyoneSignedInID ] + ( role_trait ? role_trait.item_ids : [] )
+      end
+    end
+end
+
+
+event :generate_token do
+  Digest::SHA1.hexdigest "--#{Time.now.to_f}--#{rand 10}--" 
+end
+
+event :set_stamper, :before=>:approve do
+  self.updater_id = Auth.current_id
+  self.creator_id = self.updater_id if new_card?
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/all/account.rb ~~~~~~~~~~~
+end;end;end;end;