card 1.16.1 → 1.16.2

data/tmpsets/set/mod006-05_email/all/observer.rb

@@ -0,0 +1,33 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module All; module Observer; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_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 = self.rule_card(setting) and 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, :after=>:extend, :on=>action do 
+    self.send_action_mails :on=>action
+  end
+end
+
+event :cache_delete_email_templates, :after=>:approve, :on=>:delete do 
+  event_card = self.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/05_email/set/all/observer.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/bcc.rb

@@ -0,0 +1,51 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module Bcc; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_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.match /.+\@.+\..+/ 
+        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
+
+
+
+# _user, info@mail.com, Ethan, Pointer -> ..., _left+email, my email address -> info@mail.com
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/bcc.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/cc.rb

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

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

@@ -0,0 +1,90 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module Follow; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_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.title}]]" }.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|
+    #          #{ link_to '×', '', 'aria-hidden'=>true, :class=>'close update-follow-link', 'data-dismiss'=>'modal', 'data-card_key'=>args[:card_key] }
+    %{
+
+      <h4>Get notified about changes</h4>
+
+      #{
+        wrap_with( :ul, :class=>'delete-list list-group') do
+          card.item_names.map do |option|
+            content_tag :li, :class=>'list-group-item' do
+              subformat(card).render_follow_item :condition=>(option == '*never' ? '*always' : option)
+            end
+          end.join "\n"
+        end
+      }
+
+      #{ card_link(args[:card_key], :text=>'more options', :path_opts=>{:view=>:related, :related=>{:name=>card.name,:view=>:related_edit_rule}}, :class=>'btn update-follow-link', 'data-card_key'=>args[:card_key]) }
+    }
+  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/05_email/set/right/follow.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/follow_fields.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module FollowFields; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/follow_fields.rb ~~~~~~~~~~~
+event :follow_fields_changed, :before=>:extend do
+  Card.follow_caches_expired
+end
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/follow_fields.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/followers.rb

@@ -0,0 +1,35 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module Followers; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_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)
+              left.default_follow_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 
+                else 
+                  nil
+                end
+              end.compact
+            else
+              left.follower_names
+            end
+    items.map {|item| "[[#{item}]]"}.join "\n"
+  else
+    ''
+  end
+end
+
+def virtual?; true end
+
+format() do 
+  include Card::Set::Type::Pointer::Format     
+end
+
+format(:html)  { include Card::Set::Type::Pointer::HtmlFormat }
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/followers.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/following.rb

@@ -0,0 +1,58 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module Following; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/following.rb ~~~~~~~~~~~
+
+def virtual?; true end
+
+
+format :html do
+
+   view :core do |args|
+     if card.left and Auth.signed_in?
+       render_rule_editor args
+     else
+       followers_card = Card.fetch("#{card.cardname.left}+#{Card[:followers].name}") 
+       nest followers_card, :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
+   
+=begin
+   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
+=end
+   
+   view :rule_editor do |args|
+     preference_name = "#{card.left.default_follow_set_card.name}+#{Auth.current.name}+#{Card[:follow].name}"
+     rule_context = Card.fetch preference_name, :new=>{:type_id=>PointerID}
+     wrap_with :div, :class=>'edit-rule' do
+       subformat(current_follow_rule_card || rule_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/05_email/set/right/following.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/from.rb

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

data/tmpsets/set/mod006-05_email/right/html_message.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Right; module HtmlMessage; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/html_message.rb ~~~~~~~~~~~
+def clean_html?
+  false
+end
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_email/set/right/html_message.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod006-05_email/right/to.rb

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

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

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

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

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

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

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

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

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

@@ -0,0 +1,71 @@
+# -*- 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|
+        if (follow_rule = Card.fetch(set_card.follow_rule_name(user.name), :new=>{}))
+         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] = %{
+      #{ button_tag 'Submit and update all users', :disable_with=>'Updating', :class=>'follow-updater', :situation=>'primary' }
+      #{ button_tag 'Submit', :class=>'follow'         }
+      #{ button_tag 'Cancel', :class=>'slotter', :type=>'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;