card 0.0.1 → 1.15.pre

data/mod/04_settings/set/right/create.rb

@@ -0,0 +1,3 @@
+include Comment
+
+format :html do include Comment::HtmlFormat end

data/mod/04_settings/set/right/default.rb

@@ -0,0 +1,3 @@
+format :html do
+  include AddHelp::HtmlFormat
+end

data/mod/04_settings/set/right/delete.rb

@@ -0,0 +1,4 @@
+include Create
+format :html do include Create::HtmlFormat end
+
+

data/mod/04_settings/set/right/help.rb

@@ -0,0 +1,3 @@
+format :html do
+  include AddHelp::HtmlFormat
+end

data/mod/04_settings/set/right/read.rb

@@ -0,0 +1,2 @@
+include Create
+format :html do include Create::HtmlFormat end

data/mod/04_settings/set/right/script.rb

@@ -0,0 +1,10 @@
+include Machine
+
+store_machine_output :filetype => "js"
+
+
+view :javascript_include_tag do |args|
+  %{
+    <script src="#{card.machine_output_url}" type="text/javascript"></script>
+  }
+end

data/mod/04_settings/set/right/structure.rb

@@ -0,0 +1,4 @@
+
+format :html do
+  include AddHelp::HtmlFormat
+end

data/mod/04_settings/set/right/style.rb

@@ -0,0 +1,10 @@
+require 'sass'
+include Machine
+
+store_machine_output :filetype => "css"
+
+format do
+  def chunk_list  #turn off autodetection of uri's 
+    :inclusion_only
+  end
+end

data/mod/04_settings/set/right/update.rb

@@ -0,0 +1,2 @@
+include Create
+format :html do include Create::HtmlFormat end

data/mod/04_settings/set/self/accountable.rb

@@ -0,0 +1,3 @@
+require_dependency 'card/setting'
+extend Card::Setting
+setting_opts :group=>:other, :position=>2

data/mod/04_settings/set/self/add_help.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts  :group=>:communication, :position=>2, :rule_type_editable => true

data/mod/04_settings/set/self/autoname.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:other, :position=>1

data/mod/04_settings/set/self/captcha.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:other, :position=>3

data/mod/04_settings/set/self/comment.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :permission, :position=>5, :rule_type_editable=>false

data/mod/04_settings/set/self/create.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :permission, :position=>1, :rule_type_editable=>false

data/mod/04_settings/set/self/default.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :look_and_feel, :position=>1, :rule_type_editable => true

data/mod/04_settings/set/self/delete.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :permission, :position=>4, :rule_type_editable=>false

data/mod/04_settings/set/self/help.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:communication, :position=>1, :rule_type_editable => true

data/mod/04_settings/set/self/input.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:pointer, :position=>3, :restricted_to_type => :pointer, :rule_type_editable => false

data/mod/04_settings/set/self/layout.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:look_and_feel, :position=>3, :rule_type_editable => false

data/mod/04_settings/set/self/on_create.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:communication, :position=>4 , :rule_type_editable => false

data/mod/04_settings/set/self/on_delete.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:communication, :position=>5, :rule_type_editable => false

data/mod/04_settings/set/self/on_update.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:communication, :position=>4, :rule_type_editable => false

data/mod/04_settings/set/self/options.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:pointer, :position=>1, :restricted_to_type => :pointer, :rule_type_editable=>true

data/mod/04_settings/set/self/options_label.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:pointer, :position=>2, :restricted_to_type => :pointer, :rule_type_editable => false

data/mod/04_settings/set/self/read.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :permission, :position=>2, :rule_type_editable=>false

data/mod/04_settings/set/self/script.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :look_and_feel, :position=>5

data/mod/04_settings/set/self/structure.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :look_and_feel, :position=>2, :rule_type_editable => true

data/mod/04_settings/set/self/style.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:look_and_feel, :position=>4

data/mod/04_settings/set/self/table_of_contents.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :look_and_feel, :position=>6, :rule_type_editable=>false

data/mod/04_settings/set/self/thanks.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=>:communication, :position=>3, :rule_type_editable => false

data/mod/04_settings/set/self/update.rb

@@ -0,0 +1,2 @@
+extend Card::Setting
+setting_opts :group=> :permission, :position=>3, :rule_type_editable=>false

data/mod/04_settings/set/type/setting.rb

@@ -0,0 +1,82 @@
+require_dependency 'json'
+  
+
+view :core do |args|
+
+  klasses = Card.set_patterns.reverse.map do |set_class|
+    wql = { :left  => { :type =>Card::SetID },
+            :right => card.id,
+            #:sort  => 'content',
+            
+            :sort  => ['content', 'name'],
+            :limit => 0
+          }
+    wql[:left][ (set_class.anchorless? ? :id : :right_id )] = set_class.pattern_id
+
+    rules = Card.search wql
+    [ set_class, rules ] unless rules.empty?
+  end.compact
+
+
+  
+  %{ 
+    #{ _render_rule_help args }
+    <table class="setting-rules">
+      <tr><th>Set</th><th>Rule</th></tr>
+      #{
+        klasses.map do |klass, rules|
+          %{ 
+            <tr class="klass-row anchorless-#{ klass.anchorless? }">
+              <td class="setting-klass">#{ klass.anchorless? ? card_link( klass.pattern ) : klass.pattern }</td>
+              <td class="rule-content-container">
+                <span class="closed-content content">#{ subformat(rules[0])._render_closed_content if klass.anchorless? }</span>
+              </td>
+            </tr>
+            #{
+              unless klass.anchorless?
+                previous_content = nil
+                rules.map do |rule|
+                  current_content = rule.db_content.strip
+                  duplicate = previous_content == current_content
+                  changeover = previous_content && !duplicate
+                  previous_content = current_content
+                  %{
+                    <tr class="#{ 'rule-changeover' if changeover }">
+                    <td class="rule-anchor">#{ card_link rule.cardname.trunk_name, :text=> rule.cardname.trunk_name.trunk_name }</td>
+                    
+                      #{
+                        if duplicate
+                          %{ <td></td> }
+                        else
+                          %{
+                            <td class="rule-content-container">
+                              <span class="closed-content content">#{ subformat(rule)._render_closed_content }</span>
+                            </td>
+                          }
+                        end
+                      }
+                    </tr>
+                  }
+
+                end * "\n"
+              end
+            
+            }
+          }
+        end * "\n"
+      
+      }
+    </table>
+  }
+
+end
+
+view :rule_help do |args|
+  %{<div class="instruction">#{process_content_object "{{+*right+*help}}"}</div>}
+end
+
+
+view :closed_content do |args|
+  render_rule_help
+end
+

data/mod/04_settings/spec/set/right/add_help_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::AddHelp do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/right/comment_spec.rb

@@ -0,0 +1,41 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Comment do
+
+  context "record appender" do
+    before do
+#      @r = Card.where(:type_id=>Card::RoleID).first
+      @rule = Card.new :name=>'A+*self+*comment', :type_id=>Card::PointerID, :content=>"[[Anyone Signed In]]"
+    end
+
+    it "should have appender immediately" do
+      expect(Card['a'].ok?(:comment)).not_to be_truthy
+      Card::Auth.as_bot do
+        @rule.save!
+      end
+      expect(Card['a'].ok?(:comment)).to be_truthy
+    end
+
+    it "should have appender immediately" do
+      Card::Auth.as_bot do 
+        expect(Card['a'].ok?(:comment)).not_to be_truthy 
+        @rule.save!
+        expect(Card['a'].ok?(:comment)).to be_truthy
+      end
+    end
+  end
+
+
+  context "comment addition" do
+    it "should combine content after save" do
+      Card::Auth.as_bot do
+        Card.create :name => 'basicname+*self+*comment', :content=>'[[Anyone Signed In]]'
+        @c = Card.fetch "basicname"
+        @c.comment = " and more\n  \nsome lines\n\n"
+        @c.save!
+      end
+      expect(Card["basicname"].content).to match(/\<p\>some lines\<\/p\>/)
+    end
+  end
+
+end

data/mod/04_settings/spec/set/right/create_spec.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Create do
+  it 'should render the perm editor' do
+    Card::Auth.as_bot do
+      card = Card.new :name=>'A+B+*self+*create'
+      assert_view_select card.format._render_editor, 'div[class=perm-editor]'
+    end
+  end
+end

data/mod/04_settings/spec/set/right/default_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Default do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/right/delete_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Delete do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/right/help_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Help do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/right/read_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Read do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/right/script_spec.rb

@@ -0,0 +1,24 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Script do
+  let(:js)                    { 'alert( "Hi" );'    }
+  let(:compressed_js)         { 'alert("Hi");'      }
+  let(:changed_js)            { 'alert( "Hello" );' }
+  let(:compressed_changed_js) { 'alert("Hello");'   }
+  let(:new_js)                { 'alert( "Hey" );'   }
+  let(:compressed_new_js)     { 'alert("Hey");'   }
+  
+  it_should_behave_like 'pointer machine', that_produces_js do
+    let(:machine_card)  { Card.gimme! "test my style+*script", :type => :pointer, :content => ''}
+    let(:machine_input_card) { Card.gimme! "test js",  :type => Card::JavaScriptID, :content => js  }
+    let(:another_machine_input_card) { Card.gimme! "more js",  :type => Card::JavaScriptID, :content => new_js  }
+    let(:expected_input_items) { nil }
+    let(:input_type) { :java_script }
+    let(:card_content) do
+       { in:           js,         out:     compressed_js, 
+         changed_in:   changed_js, changed_out: compressed_changed_js,
+         new_in:       new_js,     new_out:     compressed_new_js
+       }
+    end
+  end
+end

data/mod/04_settings/spec/set/right/structure_spec.rb

@@ -0,0 +1,17 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Structure do
+  it "closed_content is rendered as type + raw" do
+    template = Card.new(:name=>'A+*right+*structure', :content=>'[[link]] {{inclusion}}')
+    expect(template.format._render(:closed_content)).to eq(
+      '<a class="cardtype known-card" href="/Basic">Basic</a> : [[link]] {{inclusion}}'
+    )
+  end
+
+  it "closed_content is rendered as type + raw" do
+    template = Card.new(:name=>'A+*right+*structure', :type=>'Html', :content=>'[[link]] {{inclusion}}')
+    expect(template.format._render(:closed_content)).to eq(
+      '<a class="cardtype known-card" href="/HTML">HTML</a> : [[link]] {{inclusion}}'
+    )
+  end
+end

data/mod/04_settings/spec/set/right/style_spec.rb

@@ -0,0 +1,29 @@
+# -*- encoding : utf-8 -*-
+
+require File.expand_path('../../../../../03_machines/spec/lib/shared_machine_examples.rb', __FILE__)
+
+describe Card::Set::Right::Style do
+#  describe "#delet"
+#  it "should delete tempfile"
+  #let!(:skin_card)              { Card.gimme! "test skin", :type => :skin, :content => '[[test css]]'}
+  let(:css)                    { "#box { display: block }"  }
+  let(:compressed_css)         { "#box{display:block}\n"    }
+  let(:changed_css)            { "#box { display: inline }" }
+  let(:compressed_changed_css) { "#box{display:inline}\n"   }
+  let(:new_css)                { "#box{ display: none}\n"   }
+  let(:compressed_new_css)     { "#box{display:none}\n"   }  
+  
+  it_should_behave_like 'pointer machine', that_produces_css do
+    let(:machine_card)  { Card.gimme! "test my style+*style", :type => :pointer, :content => ''}
+    let(:machine_input_card) { Card.gimme! "test css",  :type => :css, :content => css  }
+    let(:another_machine_input_card) { Card.gimme! "more css",  :type => :css, :content => new_css  }
+    let(:expected_input_items) { nil } #[Card.fetch("test skin"), machine_input_card] }
+    let(:input_type) { :css }
+    let(:card_content) do
+       { in:           css,         out:     compressed_css, 
+         changed_in:   changed_css, changed_out: compressed_changed_css,
+         new_in:       new_css,     new_out:     compressed_new_css
+       }
+    end
+  end
+end

data/mod/04_settings/spec/set/right/update_spec.rb

@@ -0,0 +1,5 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Right::Update do
+  # (just aliases so far)
+end

data/mod/04_settings/spec/set/type/setting_spec.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Type::Setting do
+  context "core view" do
+    it 'should have a table' do
+      core = render_card :core, :name=>:help
+      assert_view_select core, 'table' 
+    end
+  end
+end

data/mod/05_email/format/email_html_format.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+
+class Card::EmailHtmlFormat < Card::HtmlFormat
+  @@aliases['email'] = 'email_html'
+  
+  def internal_url relative_path
+    card_url relative_path
+  end
+end

data/mod/05_email/format/email_text_format.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+
+class Card::EmailTextFormat < Card::TextFormat  
+  def internal_url relative_path
+    card_url relative_path
+  end
+  
+  def chunk_list
+    :references
+  end
+end