wagn 1.14.9 → 1.15.pre

data/mod/03_machines/spec/lib/shared_machine_input_examples.rb

@@ -1,64 +0,0 @@
-
-shared_examples_for 'machine input' do 
-  subject(:input) do
-    myinput = create_machine_input_card
-    myinput
-  end
-  let!(:machine) do
-    f = create_machine_card 
-    f << create_machine_input_card
-    f.putty
-    f
-  end
-  let!(:more_input) do
-    moreinput = create_another_machine_input_card
-    moreinput
-  end
-  
-  context 'when removed' do
-    it 'updates machine_input card of machine card' do
-      machine
-      Card::Auth.as_bot do
-        input.delete!
-      end
-      f = Card.gimme machine.name
-      expect(f.machine_input_card.item_cards).to eq([])
-    end
-    
-    it 'updates output of machine card' do
-      machine
-      Card::Auth.as_bot do
-        input.delete!
-      end
-      f = Card.gimme machine.cardname
-      path = f.machine_output_path
-      expect(File.read path).to eq('')
-    end
-  end
-  
-  it 'delivers machine input' do
-    expect(input.machine_input).to eq(card_content[:out])
-  end
-  
-  context 'when updated' do
-    it 'updates output of related machine card' do
-      input.putty :content => card_content[:changed_in]
-      updated_machine  = Card.gimme machine.cardname
-      path = updated_machine.machine_output_path
-      expect(File.read path).to eq(card_content[:changed_out])
-    end
-  end
-  
-  context 'when added' do
-    it 'updates output of related machine card' do
-      if machine.kind_of? Card::Set::Type::Pointer
-        machine << more_input
-        machine.putty
-        updated_machine  = Card.gimme machine.cardname
-        path = updated_machine.machine_output_path
-        expect(File.read path).to eq( ([card_content[:out]]*2).join("\n"))
-      end
-    end
-  end
-end
-

data/mod/03_machines/spec/set/right/machine_output_spec.rb

@@ -1,5 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Right::MachineOutput do
-  # tested in controller_spec.rb
-end

data/mod/03_machines/spec/set/self/style_functional_spec.rb

@@ -1,5 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Self::StyleFunctional do
-  # SPECSTUB
-end

data/mod/03_machines/spec/set/self/style_jquery_ui_smoothness_spec.rb

@@ -1,5 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Self::StyleJqueryUiSmoothness do
-  # SPECSTUB
-end

data/mod/03_machines/spec/set/self/style_standard_spec.rb

@@ -1,5 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Self::StyleStandard do
-  # SPECSTUB
-end

data/mod/03_machines/spec/set/type/coffeescript_spec.rb

@@ -1,26 +0,0 @@
-describe Card::Set::Type::CoffeeScript do
-  let(:coffee)                    { 'alert "Hi"  '    }
-  let(:compressed_coffee)         { '(function(){alert("Hi")}).call(this);'    }
-  let(:changed_coffee)            { 'alert "Hello"  ' }
-  let(:compressed_changed_coffee) { '(function(){alert("Hello")}).call(this);' }
-
-
-  it_should_behave_like 'content machine', that_produces_js do
-    let(:machine_card)  { Card.gimme! "test coffeescript", :type => Card::CoffeeScriptID, :content => coffee}
-    let(:card_content) do
-       { in:           coffee,         out:     compressed_coffee, 
-         changed_in:   changed_coffee, changed_out: compressed_changed_coffee }
-    end
-  end
-
-  it_behaves_like "machine input"  do
-    let(:create_machine_input_card) { Card.gimme! "test coffeescript", :type => :coffee_script, :content => coffee }
-    let(:create_another_machine_input_card) { Card.gimme! "more coffee", :type => :coffee_script, :content => coffee }
-    let(:create_machine_card)  { Card.gimme! "script with coffee+*script", :type => :pointer }
-    let(:card_content) do
-       { in:           coffee,         out:     compressed_coffee, 
-         changed_in:   changed_coffee, changed_out: compressed_changed_coffee }
-    end
-  end
-
-end

data/mod/03_machines/spec/set/type/css_spec.rb

@@ -1,33 +0,0 @@
-
-describe Card::Set::Type::Css do
-  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" }
-    
-  it "should highlight code" do
-    Card::Auth.as_bot do
-      css_card = Card.create! :name=>'tmp css', :type_code=>'css', :content=>"p { border: 1px solid black; }"
-      assert_view_select css_card.format.render_core, 'div[class=CodeRay]'
-    end
-  end
-  
-
-  it_behaves_like "machine input"  do
-    let(:create_machine_input_card) { Card.gimme! "test css", :type => :css, :content => css }
-    let(:create_another_machine_input_card) { Card.gimme! "more test css", :type => :css, :content => css }
-    let(:create_machine_card)  { Card.gimme! "style with css+*style", :type => :pointer }
-    let(:card_content) do
-       { in:       css,         out:     compressed_css, 
-         changed_in:   changed_css, changed_out: compressed_changed_css }
-    end
-  end
-
-  it_behaves_like 'content machine', that_produces_css do
-    let(:machine_card) {  Card.gimme! "test css", :type => :css, :content => css }
-    let(:card_content) do
-       { in:       css,         out:     compressed_css, 
-         changed_in:   changed_css, changed_out: compressed_changed_css }
-    end
-  end
-end

data/mod/03_machines/spec/set/type/javascript_spec.rb

@@ -1,26 +0,0 @@
-describe Card::Set::Type::JavaScript do
-  let(:js)                    { 'alert( "Hi" );'    }
-  let(:compressed_js)         { 'alert("Hi");'      }
-  let(:changed_js)            { 'alert( "Hello" );' }
-  let(:compressed_changed_js) { 'alert("Hello");'   }
-
-
-  it_should_behave_like 'content machine', that_produces_js do
-    let(:machine_card)  { Card.gimme! "test javascript", :type => :java_script, :content => js}
-    let(:card_content) do
-       { in:       js,         out:     compressed_js, 
-         changed_in:   changed_js, changed_out: compressed_changed_js }
-    end
-  end
-
-  it_behaves_like "machine input"  do
-    let(:create_machine_input_card) { Card.gimme! "test javascript", :type => :java_script, :content => js }
-    let(:create_another_machine_input_card) { Card.gimme! "more javascript", :type => :java_script, :content => js }
-    let(:create_machine_card)  { Card.gimme! "script with js+*script", :type => :pointer }
-    let(:card_content) do
-       { in:       js,         out:     compressed_js, 
-         changed_in:   changed_js, changed_out: compressed_changed_js }
-    end
-  end
-
-end

data/mod/03_machines/spec/set/type/scss_spec.rb

@@ -1,56 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Type::Scss do
-  let(:scss) { 
-    %{
-      $link_color: #abcdef;
-      a { color: $link_color; }  
-    }
-  }
-  let(:compressed_css) {  "a{color:#abcdef}\n" }
-  let(:changed_scss) { 
-    %{
-      $link_color: #fedcba; 
-      a { color: $link_color; }
-    }
-  }
-  let(:compressed_changed_css) {  "a{color:#fedcba}\n" }
-  before do
-    @scss_card = Card[:style_functional]
-  end
-  
-  
-  it 'should highlight code in html' do
-    assert_view_select @scss_card.format(:html).render_core, 'div[class=CodeRay]'
-  end
-  
-  it 'should not highlight code in css' do
-    expect(@scss_card.format(:css).render_core).not_to match(/CodeRay/)
-  end
-  
-  it_should_behave_like "machine input"  do
-    let(:create_machine_input_card) { Card.gimme! "test scss", :type => :scss, :content => scss }
-    let(:create_another_machine_input_card) { Card.gimme! "more scss", :type => :scss, :content => scss }
-    let(:create_machine_card)  { Card.gimme! "style with scss+*style", :type => :pointer }
-    let(:card_content) do
-       { in:       scss,         out:     compressed_css, 
-         changed_in:   changed_scss, changed_out: compressed_changed_css }
-    end
-  end
-
-  it "should process links and inclusions but not urls" do
-    Card::Auth.as_bot do
-      scss = ".TYPE-X.no-citations {\n  color: #BA5B5B;\n}\n"
-      card = Card.create! :name=>'minimal css', :type=>'scss', :content=>scss
-      card.format(:css).render_core.should == scss
-    end
-  end
-
-  it_should_behave_like 'content machine', that_produces_css do
-    let(:machine_card) {  Card.gimme! "test scss", :type => :scss, :content => scss }
-    let(:card_content) do
-       { in:       scss,         out:     compressed_css, 
-         changed_in:   changed_scss, changed_out: compressed_changed_css }
-    end
-  end
-end

data/mod/03_machines/spec/set/type/skin_spec.rb

@@ -1,70 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-describe Card::Set::Type::Skin do
-  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 skin machine", :type => :skin, :content => ''}
-    let(:machine_input_card) { Card.gimme! "test skin supplier",  :type => :css, :content => css  }
-    let(:another_machine_input_card) { Card.gimme! "more css",  :type => :css, :content => new_css  }
-    let(:expected_input_items) { nil }
-    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
-  
-  it_behaves_like "machine input"  do
-    let(:create_machine_input_card) { Card.gimme! "test skin input", :type => :css, :content => css }
-    let(:create_another_machine_input_card) { Card.gimme! "more skin input", :type => :css, :content => css }
-    let(:create_machine_card)  { Card.gimme! "style with skin machine+*style", :type => :pointer }
-    let(:card_content) do
-       { in:           css,         out:     compressed_css, 
-         changed_in:   changed_css, changed_out: compressed_changed_css
-       }
-    end
-  end
-  
-  context 'when item added' do
-    it 'updates output of related machine card' do
-        #item = Card.gimme! "skin item", :type => :css, :content => css 
-        skin = Card.gimme! "test skin supplier", :type => :skin, :content => ''
-        machine = Card.gimme! "style with skin machine+*style", :type => :pointer, :content=>'[[test skin supplier]]'
-        item = Card.gimme! "skin item", :type => :css, :content => css 
-        skin << item
-        skin.putty
-        updated_machine  = Card.gimme machine.cardname
-        path = updated_machine.machine_output_path
-        expect(File.read path).to eq( compressed_css )
-    end
-  end
-  
-  context 'when item changed' do
-    it 'updates output of related machine card' do
-      skin = Card.gimme! "test skin supplier", :type => :skin, :content => ''
-      machine = Card.gimme! "style with skin machine+*style", :type => :pointer, :content=>'[[test skin supplier]]'
-      item = Card.gimme! "skin item", :type => :css, :content => css 
-      skin << item
-      skin.putty
-      Card::Auth.as_bot do
-        item.update_attributes :content=>changed_css
-        { :get => machine.machine_output_url }
-        item.update_attributes :content=>new_css
-      end
-      updated_machine  = Card.gimme machine.cardname
-      path = updated_machine.machine_output_path
-      expect(File.read path).to eq( compressed_new_css )
-      expect(updated_machine.machine_input_card.content).to include("[[skin item]]")
-      expect(Card.search(:link_to => "skin item")).to include(updated_machine.machine_input_card)
-    end
-  end
-  
-  
-end

data/mod/04_settings/lib/card/setting.rb

@@ -1,57 +0,0 @@
-# -*- encoding : utf-8 -*-
-
-# Used to extend setting modules like Card::Set::Self::Create in the settings mod
-
-class Card
-  module Setting
-    # Let M = Card::Setting           (module)
-    #     E = Card::Set::Self::Create (module extended with M)
-    #     O = Card["*create"]         (object)
-    attr_accessor :codename                                                # accessible in E
-    mattr_accessor :groups, :group_names                                   # accessible in E and M 
-    def self.extended(host_class)     
-       host_class.mattr_accessor :restricted_to_type, :rule_type_editable  # accessible in E and O
-    end
-    
-    @@groups = { :permission =>[], :look_and_feel=>[], :communication => [], :pointer=>[], :other =>[] }
-    @@group_names = {
-      :permission    => "Permission",
-      :look_and_feel => "Look and Feel",
-      :communication => "Communication",
-      :pointer       => "Pointer",
-      :other         => "Other"  
-    }
-
-    def to_type_id type
-      type.is_a?(Fixnum) ? type : Card::Codename[type]
-    end
-    
-    # usage:
-    # setting_opts :group              => :permission | :look_and_feel | ...
-    #              :position           => <Fixnum> (starting at 1, default: add to end)
-    #              :rule_type_editable => true | false (default: false)
-    #              :restricted_to_type => <cardtype> | [ <cardtype>, ...] 
-    def setting_opts opts
-      group = opts[:group] || :other
-      @@groups[group] ||= []
-      if opts[:position]
-        if @@groups[group][opts[:position]-1]
-          @@groups[group].insert(opts[:position]-1, self)
-        else
-          @@groups[group][opts[:position]-1] = self
-        end
-      else
-        @@group_namesoups[group] << self
-      end
-  
-      @codename = opts[:codename] || self.name.match(/::(\w+)$/)[1].underscore.to_sym
-      self.rule_type_editable = opts[:rule_type_editable]
-      self.restricted_to_type = opts[:restricted_to_type] ? ::Set.new([opts[:restricted_to_type]].flatten.map{ |cardtype| to_type_id(cardtype) }) : false
-    end
-    
-    def applies_to_cardtype type_id
-      !self.restricted_to_type or self.restricted_to_type.include? type_id
-    end
-  end
-end
-

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

@@ -1,11 +0,0 @@
-format :html do
-  view :core do |args|
-    with_inclusion_mode :template do
-      super args
-    end
-  end
-  
-  view :closed_content do |args|
-    "#{_render_type} : #{_render_raw}"
-  end
-end

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

@@ -1,91 +0,0 @@
-format :html do
-  view :editor do |args|
-    set_name = card.cardname.trunk_name
-    set_card = Card.fetch(set_name)
-    not_set = set_card && set_card.type_id != SetID
-
-    group_options = Auth.as_bot { Card.search(:type_id=>RoleID, :sort=>'name') }
-
-    inheritable = not_set ? false : set_card.inheritable?
-    inheriting = inheritable && card.content=='_left'
-
-    item_names = inheriting ? [] : card.item_names
-
-    %{     
-      #{ form.hidden_field :content, :class=>'card-content' }
-      <div class="perm-editor">
-    
-        #{ if inheritable; %{
-          <div class="perm-inheritance perm-section">
-            #{ check_box_tag 'inherit', 'inherit', inheriting }
-            <label>
-              #{ core_inherit_content args.merge(:target=>'wagn_role') }
-              #{ content_tag( :a, :title=>"use left's #{card.cardname.tag} rule") { '?' } }
-            </label>
-          </div>
-        } end }
-    
-        <div class="perm-group perm-vals perm-section">
-          <h5>Groups</h5>
-          #{
-            group_options.map do |option|
-              checked = !!item_names.delete(option.name)
-              %{
-                <div class="group-option">
-                  #{ check_box_tag( "#{option.key}-perm-checkbox", option.name, checked, :class=>'perm-checkbox-button'  ) }
-                  <label>#{ card_link option.name, :target=>'wagn_role' }</label>
-                </div>
-              }
-            end * "\n"
-          }
-        </div>
-      
-        <div class="perm-indiv perm-vals perm-section">
-          <h5>Individuals</h5>
-          #{ _render_list :item_list=>item_names, :extra_css_class=>'perm-indiv-ul' }
-        </div>
-                
-      </div>
-    }
-  end
-
-
-  view :pointer_core, :view=>:core, :mod=>Type::Pointer::HtmlFormat
-
-  view :core do |args|
-    card.content=='_left' ? core_inherit_content(args) : render( :pointer_core, args )
-  end  
-
-  view :closed_content do |args|
-    args[:item] ||= :link
-    render_core args
-  end
-
-
-  private
-
-  def core_inherit_content args={}
-    sc = args[:set_context]
-    text = if sc && sc.tag_name.key == Card[:self].key
-      begin
-        task = card.tag.codename
-        ancestor = Card[sc.trunk_name.trunk_name]
-        links = ancestor.who_can( task.to_sym ).map do |card_id|
-          card_link Card[card_id].name, :target=>args[:target]
-        end*", "
-        "Inherit ( #{links} )"
-      rescue
-        'Inherit'
-      end
-    else
-      'Inherit from left card'
-    end
-    %{<span class="inherit-perm">#{text}</span>}
-  end
-end
-
-
-def standardize_items
-  # noop to override default behavior, which wouldn't let '_left' through and would therefore break
-end
-