card 1.16.1 → 1.16.2

data/tmpsets/set/mod007-05_standard/type/session.rb

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Session; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/session.rb ~~~~~~~~~~~
+include Pointer
+
+def history?
+  false
+end
+
+def followable?
+  false
+end
+
+event :store_in_session, :before=>:approve, :on=>:save, :changed=>:content do
+  Env.session[key] = db_content
+  self.db_content = ''
+end
+
+event :delete_in_session, :after=>:approve, :on=>:delete do
+  Env.session[key] = nil
+  abort :success
+end
+
+def content
+  Env.session[key]
+end
+
+format do
+  include Pointer::Format
+end
+
+format :html do
+  include Pointer::HtmlFormat
+
+  def default_core_args args
+    args[:item] = :name
+  end
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/session.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/type/set.rb

@@ -0,0 +1,354 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Set; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/set.rb ~~~~~~~~~~~
+
+format :html do
+
+  view :core do |args|
+    _render args[:rule_view], args
+  end
+  def default_core_args args
+    args[:rule_view] ||= :common_rules
+    args[:optional_set_label]   ||= :show
+    args[:optional_rule_navbar] ||= :show
+    args[:optional_set_navbar]  ||= :hide
+  end
+
+  def with_label_and_navbars args
+    wrap do
+      [
+        _optional_render(:set_label,   args, :show),
+        _optional_render(:rule_navbar, args, :hide),
+        _optional_render(:set_navbar,  args, :hide),
+        yield
+      ]
+    end
+  end
+
+  view :all_rules do |args|
+    with_label_and_navbars args.merge(:selected_view =>:all_rules) do
+      rules_table (card.visible_setting_codenames.sort & card.visible_setting_codenames), args
+    end
+  end
+
+  view :grouped_rules do |args|
+    with_label_and_navbars args.merge(:selected_view =>:grouped_rules) do
+      content_tag(:div, :class=>'panel-group', :id=>'accordion', :role=>'tablist','aria-multiselectable'=>'true') do
+         Card::Setting.groups.keys.map do |group_key|
+           _optional_render(group_key, args, :show)
+         end * "\n"
+      end
+    end
+  end
+
+  view :recent_rules do |args|
+    with_label_and_navbars args.merge(:selected_view =>:recent_rules) do
+      recent_settings = Card[:recent_settings].item_cards.map(&:codename)
+      rules_table (recent_settings.map(&:to_sym) & card.visible_setting_codenames), args
+    end
+  end
+
+  view :common_rules do |args|
+    with_label_and_navbars args.merge(:selected_view =>:common_rules) do
+      rules_table (card.visible_setting_codenames & [:create, :read, :update, :delete, :structure, :default, :style]), args
+    end
+  end
+
+  view :field_related_rules do |args|
+    with_label_and_navbars args.merge(:selected_view =>:field_related_rules) do
+      field_settings = [:default, :help, :structure]
+      field_settings +=  [:input, :options, :options_label] if card.type_id == PointerID
+      rules_table (card.visible_setting_codenames & field_settings), args
+    end
+  end
+
+  view :set_label do |args|
+    content_tag :h3, card.label, :class=>'set-label'
+  end
+
+  Card::Setting.groups.keys.each do |group_key|
+    view group_key.to_sym do |args|
+      settings = card.visible_settings group_key
+      if settings.present?
+        group_name =  Card::Setting.group_names[group_key] || group.to_s
+        heading_id = "heading-#{group_key}"
+        collapse_id = "collapse-#{card.cardname.safe_key}-#{group_key}"
+        output [
+          (content_tag :div, :class=>'panel panel-default' do
+            content_tag :div, :class=>'panel-heading', :role=>'tab', :id=>heading_id do
+              content_tag :h4, :class=>'panel-title' do
+                content_tag :a, group_name, 'data-toggle'=>'collapse', 'data-parent'=>'#accordion', :href=>"##{collapse_id}", 'aria-expanded'=>'false', 'aria-controls'=>collapse_id
+              end
+            end
+          end),
+          (content_tag :div, :id=>collapse_id, :class=>'panel-collapse collapse', :role=>'tabpanel', 'aria-labelledby'=>heading_id do
+            rules_table settings.map(&:codename), args
+          end)
+        ]
+      end
+    end
+  end
+
+  def rules_table settings, args={}
+    wrap_with :table, :class=>'set-rules table' do
+      [
+        (content_tag(:tr, :class=>"rule-group") do
+          wrap_each_with :th, %w(Trait Content Set), :class=>'rule-heading'
+        end),
+        (settings.map do |setting|
+          if show_view? setting, args
+            rule_card = card.fetch(:trait=>setting, :new=>{})
+            nest(rule_card, :view=>:closed_rule).html_safe
+          end
+        end * "\n")
+      ]
+    end
+  end
+
+  view :editor do |args|
+    'Cannot currently edit Sets' #ENGLISH
+  end
+
+  view :template_link do |args|
+    args.delete :style
+    wrap args do
+      link = view_link args[:inc_syntax], :template_editor, :class=>'slotter' #, 'slot-include'=>include_syntax
+      "{{#{link}}}"
+    end
+  end
+
+  view :template_closer do |args|
+    view_link '', :template_link, :class=>'slotter glyphicon glyphicon-remove template-editor-close'
+  end
+
+  view :template_editor do |args|
+    wrap args do
+      %{
+        <div class="template-editor-left">{{</div>
+        <div class="template-editor-main">
+          #{ render_template_editor_frame args }
+        </div>
+        <div class="template-editor-right">}}</div>
+      }
+    end
+  end
+
+  view :template_editor_frame do |args|
+    frame :no_slot=>true, :title=>card.label, :menu_hack=>:template_closer do
+      _render_core args.merge(:hide=>'set_label')
+    end
+  end
+
+  view :closed_content do |args|
+    ''
+  end
+
+
+  view :set_navbar do |args|
+    id = "rule-navbar-#{card.cardname.safe_key}-#{args[:home_view]}"
+    related_sets =  card.related_sets(true)
+    return '' if related_sets.size <= 1
+    navbar id, :toggle=>'Rules<span class="caret"></span>', :toggle_align=>:left,
+               :class=>'slotter toolbar', :navbar_type=>'inverse', :collapsed_content=>close_link(:class=>'pull-right visible-xs') do
+      [
+        content_tag(:span, 'Set:', :class=>"navbar-text hidden-xs"),
+        (wrap_with :ul, :class=>'nav navbar-nav nav-pills' do
+          related_sets.map do |name, label|
+            link = card_link name, :text=>label, :remote=>true,
+              :path_opts => {
+                :view => @slot_view,
+                :slot => {:subheader=>showname(name), :subframe=>true, :hide=>'header set_label rule_navbar', :show=>'subheader set_navbar'}
+              }
+            li_pill link, name == card.name
+          end
+        end),
+      ]
+    end
+  end
+
+  def li_pill content, active
+    "<li role='presentation' #{"class='active'" if active}>#{content}</li>"
+  end
+
+  view :rule_navbar do |args|
+    id = "rule-navbar-#{card.cardname.safe_key}-#{args[:home_view]}"
+    args.merge!(:path_opts=>{:slot=>{:show=>:rule_navbar}})
+    navbar id, :toggle=>'Rules<span class="caret"></span>', :toggle_align=>:left,
+               :class=>'slotter toolbar', :navbar_type=>'inverse', :collapsed_content=>close_link(:class=>'pull-right visible-xs') do
+      [
+        content_tag(:span, 'Rules:', :class=>"navbar-text hidden-xs"),
+        (wrap_with :ul, :class=>'nav navbar-nav nav-pills' do
+          [
+            (view_link_pill( 'field', :field_related_rules, args) if card.junction?),
+            view_link_pill( 'common', :common_rules, args),
+            view_link_pill( 'by group', :grouped_rules, args),
+            view_link_pill( 'by name', :all_rules, args),
+           (view_link_pill( 'recent', :recent_rules, args) if recently_edited_settings?),
+          ]
+        end),
+      ]
+    end
+  end
+
+  def view_link_pill name, view, args
+    selected_view = args[:selected_view] || @slot_view || args[:home_view]
+    opts = {:class=>'slotter', :role=>'pill', :path_opts=>args[:path_opts]}
+    li_pill view_link(name, view, opts), selected_view == view
+  end
+end
+
+
+include Card::Set::Type::SearchType
+
+def followed_by? user_id = nil
+  all_members_followed_by? user_id
+end
+
+
+def default_follow_set_card
+  self
+end
+
+def inheritable?
+  return true if junction_only?
+  cardname.trunk_name.junction? and cardname.tag_name.key == Card::SelfSet.pattern.key
+end
+
+def subclass_for_set
+  set_class_key = tag.codename
+  Card.set_patterns.find do |sub|
+    cardname.tag_name.key == sub.pattern.key
+  end
+end
+
+def junction_only?()
+  if @junction_only.nil?
+    @junction_only = subclass_for_set.junction_only
+  else
+    @junction_only
+  end
+end
+
+def reset_set_patterns
+  Card.members( key ).each do |mem|
+    Card.expire mem
+  end
+end
+
+def label
+  if klass = subclass_for_set
+    klass.label cardname.left
+  else
+    ''
+  end
+end
+
+def follow_label
+  if klass = subclass_for_set
+    klass.follow_label cardname.left
+  else
+    ''
+  end
+end
+
+def follow_rule_name user=nil
+  if user
+    if user.kind_of? String
+      "#{name}+#{user}+#{Card[:follow].name}"
+    else
+      "#{name}+#{user.name}+#{Card[:follow].name}"
+    end
+  else
+    "#{name}+#{Card[:all].name}+#{Card[:follow].name}"
+  end
+end
+
+# def to_following_item_name args
+#   left_part = follow_rule_name( args[:user] )
+#   option = args[:option] || if (rule_card = Card.fetch(left_part))
+#        rule_card.content
+#      else
+#        Card[:nothing].name
+#      end
+#
+#   "#{left_part}+#{option}"
+# end
+
+def all_user_ids_with_rule_for setting_code
+  Card.all_user_ids_with_rule_for self, setting_code
+end
+
+
+def setting_codenames_by_group
+  result = {}
+  Card::Setting.groups.each do |group, settings|
+    visible_settings = settings.reject { |s| !s or !s.applies_to_cardtype(prototype.type_id) }
+    unless visible_settings.empty?
+      result[group] = visible_settings.map { |s| s.codename }
+    end
+  end
+  result
+end
+
+def visible_setting_codenames
+  @visible_settings ||=
+    Card::Setting.groups.values.flatten.compact.reject do |setting|
+      !setting.applies_to_cardtype(prototype.type_id)
+    end.map(&:codename)
+end
+
+def visible_settings group
+  Card::Setting.groups[group].reject do |setting|
+    !setting or !setting.applies_to_cardtype(prototype.type_id)
+  end
+end
+
+def all_members_followed?
+  all_members_followed_by? Auth.current_id
+end
+
+def all_members_followed_by? user_id = nil
+  if !prototype.followed_by? user_id
+    return false
+  elsif set_followed_by? user_id
+    return true
+  else
+    broader_sets.each do |b_s|
+      if (set_card  = Card.fetch(b_s)) && set_card.set_followed_by?(user_id)
+       return true
+      end
+    end
+  end
+  return false
+end
+
+def set_followed?
+  set_followed_by? Auth.current_id
+end
+
+def set_followed_by? user_id = nil
+  return  ( user_id && (user = Card.find(user_id)) && Card.fetch(follow_rule_name(user.name)) ) ||
+          Card.fetch(follow_rule_name)
+end
+
+def broader_sets
+  prototype.set_names[1..-1]
+end
+
+
+def prototype
+  opts = subclass_for_set.prototype_args self.cardname.trunk_name
+  Card.fetch opts[:name], :new=>opts
+end
+
+def related_sets with_self = false
+  if subclass_for_set.anchorless?
+    prototype.related_sets with_self
+  else
+    left(:new=>{}).related_sets with_self
+  end
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/set.rb ~~~~~~~~~~~
+end;end;end;end;

data/tmpsets/set/mod007-05_standard/type/signup.rb

@@ -0,0 +1,150 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; module Type; module Signup; extend Card::Set # ~~~~~~~~~~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/signup.rb ~~~~~~~~~~~
+
+format :html do
+  
+  def default_new_args args
+    super args
+    args.merge!(
+      :optional_help => :show, #, :optional_menu=>:never
+      :buttons => button_tag( 'Submit', :disable_with=>'Submitting', :situation=>'primary' ),
+      :account => card.fetch( :trait=>:account, :new=>{} ),
+      :title   => 'Sign up',
+      :hidden  => {
+        :success => (card.rule(:thanks) || '_self'),
+        'card[type_id]' => card.type_id
+      }
+    )
+    
+    if Auth.signed_in? and args[:account].confirm_ok?
+      args[:title] = 'Invite'
+      args[:buttons] = button_tag 'Send Invitation', :situation=>'primary'
+      args[:hidden][:success] = '_self'
+    end
+  end
+  
+  view :new do |args|
+    #FIXME - make more use of standard new view?
+    
+    frame_and_form :create, args, 'main-success'=>"REDIRECT" do
+      [
+        _render_name_formgroup( :help=>'usually first and last name' ),
+        _optional_render( :account_formgroups, args),
+        ( card.structure ? edit_slot : ''),
+        _optional_render( :button_formgroup, args )
+      ]
+    end
+  end
+
+
+  view :account_formgroups do |args|
+    sub_args = { :structure => true }
+    sub_args[:no_password] = true if Auth.signed_in?
+    Auth.as_bot { subformat( args[:account] )._render :content_formgroup, sub_args }  #YUCK!!!!
+  end
+
+
+  view :core do |args|
+    headings, links = [], []
+    if !card.new_card? #necessary?
+      by_anon = card.creator_id == AnonymousID
+      headings << %(<strong>#{ card.name }</strong> #{ 'was' if !by_anon } signed up on #{ format_date card.created_at })
+      if account = card.account
+        token_action = 'Send'
+        if account.token.present?
+          headings << "A verification email has been sent #{ "to #{account.email}" if account.email_card.ok? :read }"
+          token_action = 'Resend'
+        end
+        if account.confirm_ok?
+          links << link_to( "#{token_action} verification email", card_path("update/~#{card.id}?approve_with_token=true"  ) )
+          links << link_to( "Approve without verification", card_path("update/~#{card.id}?approve_without_token=true") )
+        end
+        if card.ok? :delete
+          links << link_to( "Deny and delete", card_path("delete/~#{card.id}") )
+        end
+        headings << links * '' if links.any?
+      else
+        headings << "ERROR: signup card missing account"
+      end
+    end
+    %{<div class="invite-links">
+        #{ headings.map { |h| "<div>#{h}</div>"} * "\n" }
+      </div>
+      #{ process_content render_raw }    
+    }
+  end
+end
+
+event :activate_by_token, :before=>:approve, :on=>:update, :when=>proc{ |c| c.has_token? } do
+  result = account ? account.authenticate_by_token( @env_token ) : "no account associated with #{name}"
+  case result
+  when Integer
+    abort :failure, 'no field manipulation mid-activation' if subcards.present? 
+    # necessary because the rest of the action is performed as Wagn Bot
+    activate_account
+    Auth.signin id
+    Auth.as_bot
+    Env.params[:success] = ''
+  when :token_expired
+    resend_activation_token
+    abort :success
+  else
+    abort :failure, "signup activation error: #{result}" # bad token or account
+  end
+end
+
+def has_token?
+  @env_token = Env.params[:token]
+end
+
+event :activate_account do
+  subcards['+*account'] = {'+*status'=>'active'}
+  self.type_id = Card.default_accounted_type_id
+  account.send_welcome_email
+end
+
+event :approve_with_token, :on=>:update, :before=>:approve, :when=>proc {|c| Env.params[:approve_with_token] } do
+  abort :failure, 'illegal approval' unless account.confirm_ok?
+  account.reset_token
+  account.send_account_verification_email
+end
+
+event :approve_without_token, :on=>:update, :before=>:approve, :when=>proc {|c| Env.params[:approve_without_token] } do
+  abort :failure, 'illegal approval' unless account.confirm_ok?
+  activate_account
+end
+
+event :resend_activation_token do
+  account.reset_token
+  account.send_account_verification_email
+  Env.params[:success] = {
+    :id => '_self',
+    :view => 'message',
+    :message => "Sorry, this token has expired. Please check your email for a new password reset link."
+  }
+end
+
+def signed_in_as_me_without_password?
+  Auth.signed_in? && Auth.current_id==id && account.password.blank?
+end
+
+event :redirect_to_edit_password, :on=>:update, :after=>:store, :when=>proc {|c| c.signed_in_as_me_without_password? } do
+  Env.params[:success] = account.edit_password_success_args  
+end
+
+event :preprocess_account_subcards, :before=>:process_subcards, :on=>:create do
+  #FIXME: use codenames!
+  email, password = subcards.delete('+*account+*email'), subcards.delete('+*account+*password')
+  subcards['+*account'] ||={}
+  subcards['+*account']['+*email']   = email if email
+  subcards['+*account']['+*password' ]=password if password
+end
+
+event :act_as_current_for_extend_phase, :before=>:extend, :on=>:create do
+  Auth.current_id = self.id
+end
+
+
+
+# ~~~~~~~~~~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/05_standard/set/type/signup.rb ~~~~~~~~~~~
+end;end;end;end;