card 0.0.1 → 1.15.pre

data/mod/05_email/set/type_plus_right/user/follow.rb

@@ -0,0 +1,176 @@
+
+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_button, :add_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_button, :add_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(:slot_class=>"panel panel-warning", :title=>title, :hide=>'menu' ) do
+           "You have to #{ 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  }

data/mod/05_email/spec/set/all/follow_spec.rb

@@ -0,0 +1,133 @@
+# -*- encoding : utf-8 -*-
+
+describe "Card::Set::All::Follow" do
+  def follow_view card_name
+    render_card :follow_link, :name=>card_name
+  end
+   
+  describe "follower_ids" do
+    
+    context 'when a new +*follow rule created' do
+      it 'contains id of a new follower' do
+        Card::Auth.as_bot do
+          Card['Joe User'].follow "No One Sees Me"
+          expect(Card['No One Sees Me'].follower_ids).to eq ::Set.new([Card['Joe User'].id])
+        end
+      end
+    end
+    
+    
+    subject { Card[cardname].follower_names.sort }
+    context 'followers of No One Sees Me' do
+      let(:cardname) {'No One Sees Me'}
+      it { is_expected.to eq([]) }
+    end
+    
+    context 'followers of Magnifier' do
+      let(:cardname) {'Magnifier'} 
+      it { is_expected.to eq([])}
+    end
+    
+    context 'followers of Magnifier+lens' do
+      let(:cardname) {'Magnifier+lens'} 
+      it { is_expected.to eq ['Big Brother','Narcissist']}
+    end
+    
+    context 'followers of Sunglasses' do
+      let(:cardname) {'Sunglasses'} 
+      it { is_expected.to eq ['Big Brother', 'Narcissist', 'Optic fan', 'Sara', 'Sunglasses fan']}
+    end
+    context 'followers of Sunglasses+tint' do
+      let(:cardname) {'Sunglasses+tint'} 
+      it { is_expected.to eq ['Big Brother', 'Narcissist', 'Optic fan', 'Sara', 'Sunglasses fan']}
+    end
+    
+    context 'followers of Google glass' do
+      let(:cardname) {'Google glass'} 
+      it { is_expected.to eq ['Big Brother', 'Optic fan', 'Sara']}
+    end
+  end
+
+
+
+
+   
+  describe "view: follow" do
+    before do
+      Card::Auth.current_id = Card['Big Brother'].id
+    end
+      
+    def assert_following_view name, args
+      assert_follow_view name, args.reverse_merge(:following => true, :text=>"unfollow #{name}")
+    end
+  
+#  href="/card/update/Home+*self+philipp+*follow?card%5Bcontent%5D=%5B%5Bnever%5D%5D&success%5Bid%5D=Home&success%5Bview%5D=follow"
+    def assert_follow_view name, args
+      args[:user] ||= "Big_Brother"
+      #      href = "/card/update/#{args[:add_set].to_name.url_key}+#{args[:user]}+*follow?"
+      #      href += CGI.escape("card[content]") + '='
+      #      href += 
+      #        if args[:following] 
+      #          link_class = "follow-toggle-off"
+      #          CGI.escape("[[*never]]")
+      #        else
+      #          link_class = "follow-toggle-on"
+      #          CGI.escape("[[*always]]")
+      #        end
+      link_class = args[:following] ? "follow-toggle-off" : "follow-toggle-on"
+      assert_view_select follow_view(name), "a[class~=#{link_class}][href*='']", args[:text] || "follow #{name}"
+    end
+
+      
+    context "when not following" do
+      it 'renders follow link' do
+        assert_follow_view 'No One Sees Me', :add_set=>'No One Sees Me+*self'
+      end
+    end
+
+    context "when following *self" do
+      it 'renders following link' do
+        assert_following_view 'Look At Me', :add_set=>'Look at me+*self'
+      end
+    end
+  
+    context "when following *type" do
+      it 'renders following link' do
+        assert_following_view 'Sunglasses', :add_set=>'Sunglasses+*self'
+      end
+    end
+    
+    context "when following cardtype card" do
+      it 'renders following all link' do
+        assert_following_view 'Optic', :add_set=>'Optic+*type', :text=>'unfollow all "Optics"'
+      end
+    end
+    
+    context "when not following cardtype card" do
+      it "renders 'follow all' link" do
+        assert_follow_view 'Basic', :add_set=>'Basic+*type', :text=>'follow all "Basics"'
+      end
+    end
+  
+    context "when following *right" do
+      it "renders following link" do
+        assert_following_view 'Magnifier+lens', :add_set=>'Magnifier+lens+*self'
+      end
+    end
+  
+    context 'when following content I created' do
+      before { Card::Auth.current_id = Card['Narcissist'].id }
+      it "renders following link" do
+        assert_following_view 'Sunglasses', :add_set=>'Sunglasses+*self', :user=>'Narcissist'
+      end
+    end
+  
+    context 'when following content I edited' do
+      before { Card::Auth.current_id = Card['Narcissist'].id }
+      it "renders following link" do
+        assert_following_view 'Magnifier+lens', :add_set=>'Magnifier+lens+*self', :user=>'Narcissist'
+      end
+    end
+  end
+ 
+end

data/mod/05_email/spec/set/all/notify_spec.rb

@@ -0,0 +1,364 @@
+# -*- encoding : utf-8 -*-
+
+shared_examples_for 'notifications' do
+  describe '#list_of_changes' do
+    name = 'subedit notice'
+    content = 'new content'
+    
+    before do
+      @card = Card.create!(:name=>name, :content=>content)
+    end
+    subject { @card.format(:format=>format).render_list_of_changes }
+    
+    context 'for a new card' do
+      it { is_expected.to include "content: #{content}" }
+      it { is_expected.to include 'cardtype: Basic' }
+    end
+    context 'for a updated card' do
+      before { @card.update_attributes!(:name=>'bnn card', :type=>:pointer, :content=>'changed content') }
+      it { is_expected.to include 'new content: [[changed content]]' }
+      it { is_expected.to include 'new cardtype: Pointer' }
+      it { is_expected.to include 'new name: bnn card' }
+    end
+    context 'for a deleted card' do
+      before { @card.delete }
+      it { is_expected.to be_empty }
+    end
+    
+    context 'for a given action' do
+      subject do
+        action = @card.last_action
+        @card.update_attributes!(:name=>'bnn card', :type=>:pointer, :content=>'changed content')
+        @card.format(:format=>format).render_list_of_changes(:action=>action)
+      end
+      it { is_expected.to include "content: #{content}" }
+    end
+    context 'for a given action id' do
+      subject do
+        action_id = @card.last_action.id
+        @card.update_attributes!(:name=>'bnn card', :type=>:pointer, :content=>'changed content')
+        @card.format(:format=>format).render_list_of_changes(:action_id=>action_id)
+      end
+      it { is_expected.to include "content: #{content}" }
+    end
+  end
+  
+  describe 'subedit_notice' do
+    def list_of_changes_for card
+      card.db_content
+    end
+    name = 'subedit notice card'
+    content = 'new content'
+    before do
+      @card = Card.create!(:name=>name, :content=>content)
+    end
+    subject { @card.format(:format=>format).render_subedit_notice }
+    
+    context 'for a new card' do
+      it { is_expected.to include name }
+      it { is_expected.to include 'created' }
+      it { is_expected.to include list_of_changes_for @card }
+    end
+    
+    context 'for a updated card' do
+      changed_name = 'changed subedit notice'
+      changed_content = 'changed content'
+      before { @card.update_attributes!(:name=>changed_name, :content=>changed_content) }
+      it { is_expected.to include changed_name }
+      it { is_expected.to include 'updated' }
+      it { is_expected.to include list_of_changes_for @card }
+    end
+    
+    context 'for a deleted card' do
+      before { @card.delete } 
+      it { is_expected.to include name }
+      it { is_expected.to include 'deleted' }
+    end
+  end
+end
+
+
+describe Card::Set::All::Notify do
+  
+  describe 'content of notification email' do
+    context 'for new card with subcards' do
+      name = "another card with subcards"
+      content = "main content {{+s1}}  {{+s2}}"
+      sub1_content = 'new content of subcard 1'
+      sub2_content = 'new content of subcard 2'
+      before do
+        Card::Auth.as_bot do
+          @card = Card.create!(:name=>name, :content=>content,
+                               :subcards=>{ '+s1'=>{:content=>sub1_content},
+                                            '+s2'=>{:content=>sub2_content} })
+        end
+      end
+      subject { 
+        Card[:follower_notification_email].format.render_mail(
+          :context   => @card.refresh(true),
+          :to        => Card['Joe User'].email,
+          :follower  => Card['Joe User'].name, 
+          :followed_set  => "#{@card.name}+*self",
+          :follow_option => '*always'
+        ).text_part.body.raw_source
+      }
+       
+      it { is_expected.to include content }
+      it { is_expected.to include sub1_content }
+      it { is_expected.to include sub2_content }
+
+      context 'and missing permissions' do
+        context 'for subcard' do
+          before do
+            Card.create_or_update! "#{name}+s1+*self+*read",:type=>'Pointer',:content=>'[[Administrator]]'
+          end
+          it "excludes subcard content" do
+            is_expected.not_to include sub1_content
+            is_expected.to include sub2_content
+          end
+        end
+        context 'for main card' do
+          subject { 
+            Card[:follower_notification_email].format.render_mail(
+                :context   => @card.refresh(true),
+                :to        => Card['Joe User'].email,
+                :follower  => Card['Joe User'].name, 
+                :followed_set  => @card.name+"+s1+*self",
+                :follow_option => '*always'
+              ).text_part.body.raw_source
+          }
+          before do
+            Card.create_or_update! "#{name}+*self+*read",:type=>'Pointer',:content=>'[[Administrator]]'
+            Card.create_or_update! "#{name}+s1+*self+*read",:type=>'Pointer',:content=>'[[Anyone]]'
+          end
+          it 'includes subcard content' do
+            is_expected.to include sub1_content
+          end
+          it "excludes maincard content" do
+            is_expected.not_to include content
+            is_expected.not_to be_empty
+          end
+        end
+        context 'for all parts' do
+          before do
+            Card.create_or_update! "#{name}+s1+*self+*read",:type=>'Pointer',:content=>'[[Administrator]]'
+            Card.create_or_update! "#{name}+s2+*self+*read",:type=>'Pointer',:content=>'[[Administrator]]'
+            Card.create_or_update! "#{name}+*self+*read",:type=>'Pointer',:content=>'[[Administrator]]'
+          end
+          it { is_expected.not_to include content }
+          it { is_expected.not_to include sub1_content }
+          it { is_expected.not_to include sub2_content }
+          it "will not be send" do
+            expect(Card['Joe User'].account.changes_visible? @card.acts.last).to be_falsey
+          end
+        end
+      end
+    end
+  end
+  
+  
+  describe 'html format' do
+    include_examples 'notifications' do
+      let(:format) { 'email_html' }
+    end
+  end
+
+  describe 'text format' do
+    include_examples 'notifications' do
+      let(:format) { 'email_text' }
+    end
+
+    it 'creates well formatted text message' do
+      name = "another card with subcards"
+      content = "main content {{+s1}}  {{+s2}}"
+      sub1_content = 'new content of subcard 1'
+      sub2_content = 'new content of subcard 2'
+      Card::Auth.as_bot do
+        @card = Card.create!(:name=>name, :content=>content,
+                             :subcards=>{ '+s1'=>{:content=>sub1_content},
+                                          '+s2'=>{:content=>sub2_content} })
+      end
+      result =  Card[:follower_notification_email].format.render_mail(
+        :context   => @card,
+        :to        => Card['Joe User'].email,
+        :follower  => Card['Joe User'].name, 
+        :followed_set  => "#{@card.name}+*self",
+        :follow_option => '*always'
+      ).text_part.body.raw_source
+      expect(result).to eq(%{"another card with subcards" was just created by Joe User.
+
+   cardtype: Basic
+   content: main content {{+s1}}  {{+s2}}
+
+
+
+This update included the following changes:
+
+another card with subcards+s1 created
+   cardtype: Basic
+   content: new content of subcard 1
+
+
+another card with subcards+s2 created
+   cardtype: Basic
+   content: new content of subcard 2
+
+
+
+
+See the card: /another_card_with_subcards
+
+You received this email because you're following "another card with subcards".
+
+Use this link to unfollow /update/Joe_User+*follow?card%5Bsubcards%5D%5Banother+card+with+subcards%2B%2Aself%2BJoe+User%2B%2Afollow%5D=%2Anever
+})
+    end
+  end
+  
+
+  describe "#notify_followers" do
+    def expect_user user_name
+      expect(Card.fetch(user_name).account)
+    end
+
+    def be_notified
+      receive(:send_change_notice)
+    end
+    
+    def be_notified_of set_name, option_name='*always'
+      receive(:send_change_notice).with(kind_of(Card::Act), set_name, option_name)
+    end
+  
+    def update card_name, new_content='updated content'
+      Card[card_name].update_attributes! :content=>new_content
+    end
+    
+    
+
+    it "sends notifications of edits" do
+      expect_user("Big Brother").to be_notified_of "All Eyes On Me+*self"
+      update "All Eyes On Me"
+    end
+
+    it "does not send notification to author of change" do
+      Card::Auth.current_id = Card['Big Brother'].id
+      expect_user("Big Brother").not_to be_notified
+      update "Google glass"
+    end
+    
+    it "sends only one notification per user"  do
+      expect_user("Big Brother").to receive(:send_change_notice).exactly(1)
+      update "Google glass"
+    end
+
+    it "does not send notification of not-followed cards" do
+      expect_user("Big Brother").not_to be_notified
+      update "No One Sees Me"
+    end
+    
+    
+    
+    context "when following *type sets" do
+      before do
+        Card::Auth.current_id = Card['joe admin'].id
+      end
+      
+      it "sends notifications of new card" do
+        new_card = Card.new :name => "Microscope", :type => "Optic"
+        expect_user("Optic fan").to be_notified_of "Optic+*type", "*always"
+        new_card.save!
+      end
+
+      it "sends notification of update" do
+        expect_user("Optic fan").to be_notified_of "Optic+*type", '*always'
+        update "Sunglasses"
+      end
+    end
+  
+    context 'when following *right sets' do
+      it "sends notifications of new card" do
+        new_card = Card.new :name=>"Telescope+lens"
+        expect_user("Big Brother").to be_notified_of "lens+*right", '*always'
+        new_card.save!
+      end
+    
+      it "sends notifications of update" do
+        expect_user("Big Brother").to be_notified_of "lens+*right", '*always'
+        update "Magnifier+lens"
+      end
+    end
+
+    context 'when following "*created"' do
+      it 'sends notifications of update' do
+        expect_user('Narcissist').to be_notified_of '*all', '*created'
+        update 'Sunglasses'
+      end
+    end
+    
+    context 'when following "content I edited"' do
+      it 'sends notifications of update' do
+        expect_user('Narcissist').to be_notified_of '*all', '*edited'
+        update 'Magnifier+lens'
+      end
+    end
+
+    describe "notifications of fields" do
+      context "when following ascendant" do
+        it "doesn't sends notification of arbitrary subcards" do
+          expect_user('Sunglasses fan').not_to be_notified
+          Card.create :name=>'Sunglasses+about'
+        end
+        
+        context 'and follow fields rule contains subcards' do
+          it 'sends notification of new subcard' do
+            new_card = Card.new :name=>'Sunglasses+producer'
+            expect_user('Sunglasses fan').to be_notified_of 'Sunglasses+*self', '*always'
+            new_card.save!
+          end
+        
+          it 'sends notification of updated subcard' do
+            expect_user('Sunglasses fan').to be_notified_of 'Sunglasses+*self', '*always'
+            update 'Sunglasses+price'
+          end
+        end
+    
+        context "and follow fields rule contains *include" do
+          it "sends notification of new included card" do
+            new_card =  Card.new :name=>'Sunglasses+lens'
+            expect_user("Sunglasses fan").to be_notified_of "Sunglasses+*self"
+            new_card.save!
+          end
+        
+          it "sends notification of updated included card" do
+            expect_user("Sunglasses fan").to be_notified_of "Sunglasses+*self"
+            update 'Sunglasses+tint'
+          end
+        
+          it "doesn't send notification of not included card" do
+            new_card = Card.new :name=>'Sunglasses+frame'
+            expect_user("Sunglasses fan").not_to be_notified
+            new_card.save!
+          end      
+        end
+    
+        context "and follow fields rule doesn't contain *include" do
+          it "doesn't send notification of included card" do
+            expect_user('Big Brother').not_to be_notified
+            Card.create! :name=>'Google glass+price'
+          end 
+        end
+      end
+      context 'when following a set' do
+        it 'sends notification of included card' do
+          expect_user('Optic fan').to be_notified_of 'Optic+*type'
+          update 'Sunglasses+tint'
+        end
+        
+        it 'sends notification of subcard mentioned in follow fields rule' do
+          expect_user('Optic fan').to be_notified_of 'Optic+*type' 
+          update 'Sunglasses+price'
+        end
+      end
+    end
+  end
+end