card 1.91 → 1.92

data/tmpsets/set/mod002-core/all/stages.rb

@@ -0,0 +1,31 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Stages; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/stages.rb ~~
+attr_writer :director
+delegate :stage, to: :director
+
+def director
+  @director ||= Card::DirectorRegister.fetch self
+end
+
+def identify_action
+  @action =
+    case
+    when trash     then :delete
+    when new_card? then :create
+    else :update
+    end
+end
+
+def current_act= act
+  raise Card::Error, "not allowed to override current act" if Card.current_act
+  Card.current_act = act
+end
+
+def current_act
+  @current_act ||= Card.current_act
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/stages.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/states.rb

@@ -0,0 +1,31 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module States; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/states.rb ~~
+def new_card?
+  new_record? || # not yet in db (from ActiveRecord)
+    !!@from_trash    # in process of restoration from trash, not yet "re-created"
+end
+alias_method :new?, :new_card?
+
+def known?
+  real? || virtual?
+end
+
+def real?
+  !new_card?
+end
+
+def unknown?
+  !known?
+end
+
+def pristine?
+  # has not been edited directly by human users.  bleep blorp.
+  new_card? || !actions.joins(:act).where(
+    "card_acts.actor_id != ?", Card::WagnBotID
+  ).exists?
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/states.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/subcards.rb

@@ -0,0 +1,85 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Subcards; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/subcards.rb ~~
+def field tag, opts={}
+  Card.fetch cardname.field(tag), opts
+end
+
+def subcard card_name
+  subcards.card card_name
+end
+
+def subfield field_name
+  subcards.field field_name
+end
+
+# phase_method :add_subcard, before: :store do |name_or_card, args=nil|
+# TODO: handle differently in different stages
+def attach_subcard name_or_card, args={}
+  subcards.add name_or_card, args
+end
+alias_method :add_subcard, :attach_subcard
+
+def attach_subcard! name_or_card, args={}
+  subcard = subcards.add name_or_card, args
+  subcard.director.reset_stage
+  subcard
+end
+
+# phase_method :add_subfield, before: :approve do |name_or_card, args=nil|
+def attach_subfield name_or_card, args={}
+  subcards.add_field name_or_card, args
+end
+alias_method :add_subfield, :attach_subfield
+
+def attach_subfield! name_or_card, args={}
+  subcard = subcards.add_field name_or_card, args
+  subcard.director.reset_stage
+  subcard
+end
+
+def detach_subcard name_or_card
+  subcards.remove name_or_card
+end
+alias_method :remove_subcard, :detach_subcard
+
+def detach_subfield name_or_card
+  subcards.remove_field name_or_card
+end
+alias_method :remove_subfield, :detach_subfield
+
+def clear_subcards
+  subcards.clear
+end
+
+def deep_clear_subcards
+  subcards.deep_clear
+end
+
+def unfilled?
+  (content.empty? || content.strip.empty?) &&
+    (comment.blank? || comment.strip.blank?) &&
+    !subcards.present?
+end
+
+event :handle_subcard_errors do
+  subcards.each do |subcard|
+    subcard.errors.each do |field, err|
+      err = "#{field} #{err}" unless [:content, :abort].member? field
+      errors.add subcard.relative_name.s, err
+    end
+  end
+end
+
+event :reject_empty_subcards, :prepare_to_validate do
+  subcards.each_with_key do |subcard, key|
+    if subcard.new? && subcard.unfilled?
+      remove_subcard(key)
+      director.subdirectors.delete(subcard)
+    end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/subcards.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/templating.rb

@@ -0,0 +1,78 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Templating; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/templating.rb ~~
+
+def is_template?
+  cardname.trait_name? :structure, :default
+end
+
+def is_structure?
+  cardname.trait_name? :structure
+end
+
+def template
+  # currently applicable templating card.
+  # note that a *default template is never returned for an existing card.
+  @template ||= begin
+    @virtual = false
+
+    if new_card?
+      new_card_template
+    else
+      structure_rule_card
+    end
+  end
+end
+
+def new_card_template
+  default = rule_card :default, skip_modules: true
+
+  dup_card = dup
+  dup_card.type_id = default ? default.type_id : Card.default_type_id
+
+  if (structure = dup_card.structure_rule_card)
+    @virtual = true if junction?
+    self.type_id = structure.type_id if assign_type_to?(structure)
+    structure
+  else
+    default
+  end
+end
+
+def assign_type_to? structure
+  return if type_id == structure.type_id
+  structure.assigns_type?
+end
+
+def assigns_type?
+  # needed because not all *structure templates govern the type of set members
+  # for example, X+*type+*structure governs all cards of type X,
+  # but the content rule does not (in fact cannot) have the type X.
+  return unless (set_pattern = Card.fetch cardname.trunk_name.tag_name,
+                                          skip_modules: true)
+  return unless (pattern_code = set_pattern.codename)
+  return unless (set_class = Set::Pattern.find pattern_code)
+  set_class.assigns_type
+end
+
+def structure
+  return unless template && template.is_structure?
+  template
+end
+
+def virtual?
+  return false unless new_card?
+  if @virtual.nil?
+    cardname.simple? ? (@virtual = false) : template
+  end
+  @virtual
+end
+
+def structure_rule_card
+  card = rule_card :structure, skip_modules: true
+  card && card.db_content.strip == "_self" ? nil : card
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/templating.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/tracked_attributes.rb

@@ -0,0 +1,78 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module TrackedAttributes; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/tracked_attributes.rb ~~
+def assign_attributes args={}
+  if args
+    args = args.stringify_keys
+    @set_specific = {}
+    Card.set_specific_attributes.each do |key|
+      @set_specific[key] = args.delete(key) if args[key]
+    end
+
+    new_type_id = extract_type_id! args unless args.delete("skip_type_lookup")
+    subcard_args = extract_subcard_args! args
+    args["type_id"] = new_type_id if new_type_id
+    reset_patterns
+  end
+  params = ActionController::Parameters.new(args)
+  params.permit!
+  super params
+  return unless args && subcard_args.present?
+  # name= must come before process subcards
+  subcards.add subcard_args
+end
+
+def assign_set_specific_attributes
+  return unless @set_specific.present?
+  @set_specific.each_pair do |name, value|
+    send "#{name}=", value
+  end
+end
+
+protected
+
+def extract_subcard_args! args
+  subcards = args.delete("subcards") || {}
+  if (subfields = args.delete("subfields"))
+    subfields.each_pair do |key, value|
+      subcards[cardname.field(key)] = value
+    end
+  end
+  args.keys.each do |key|
+    subcards[key] = args.delete(key) if key =~ /^\+/
+  end
+  subcards
+end
+
+def extract_type_id! args={}
+  type_id =
+    case
+    when args["type_id"]
+      id = args.delete("type_id").to_i
+      # type_id can come in as 0,'' or nil
+      id == 0 ? nil : id
+    when args["type_code"]
+      Card.fetch_id args.delete("type_code").to_sym
+    when args["type"]
+      Card.fetch_id args.delete("type")
+    else
+      return nil
+    end
+
+  unless type_id
+    errors.add :type, "#{args[:type] || args[:type_code]} is not a known type."
+  end
+  type_id
+end
+
+event :set_content, :store, on: :save do
+  self.db_content = content || "" # necessary?
+  self.db_content = Card::Content.clean!(db_content) if clean_html?
+  @selected_action_id = @selected_content = nil
+  clear_drafts
+  reset_patterns_if_rule true
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/tracked_attributes.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/trash.rb

@@ -0,0 +1,113 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Trash; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/trash.rb ~~
+Self::Admin.add_to_basket(
+  :tasks,
+  name: :empty_trash,
+  execute_policy: -> { Card.empty_trash },
+  stats: {
+    title: "trashed cards",
+    count: -> { Card.where(trash: true) },
+    link_text: "delete all",
+    task: "empty_trash"
+  }
+)
+
+module ClassMethods
+  def empty_trash
+    Card.delete_trashed_files
+    Card.where(trash: true).delete_all
+    Card::Action.delete_cardless
+    Card::Reference.unmap_if_referee_missing
+    Card::Reference.delete_if_referer_missing
+  end
+
+  # deletes any file not associated with a real card.
+  def delete_trashed_files
+    dir = Cardio.paths["files"].existent.first
+    # TODO: handle cloud files
+    return unless dir
+
+    trashed_card_ids = all_trashed_card_ids
+    file_ids = all_file_ids
+    file_ids.each do |file_id|
+      next unless trashed_card_ids.member?(file_id)
+      if Card.exists?(file_id) # double check!
+        raise Card::Error, "Narrowly averted deleting current file"
+      end
+      FileUtils.rm_rf "#{dir}/#{file_id}", secure: true
+    end
+  end
+
+  def all_file_ids
+    dir = Card.paths["files"].existent.first
+    Dir.entries(dir)[2..-1].map(&:to_i)
+  end
+
+  def all_trashed_card_ids
+    trashed_card_sql = %( select id from cards where trash is true )
+    sql_results = Card.connection.select_all(trashed_card_sql)
+    sql_results.map(&:values).flatten.map(&:to_i)
+  end
+end
+
+def delete
+  update_attributes trash: true unless new_card?
+end
+
+def delete!
+  update_attributes! trash: true unless new_card?
+end
+
+event :pull_from_trash, :prepare_to_store, on: :create do
+  if (trashed_card = Card.find_by_key_and_trash(key, true))
+    # a. (Rails way) tried Card.where(key: 'wagn_bot').select(:id), but it
+    # wouldn't work.  This #select generally breaks on cards. I think our
+    # initialization process screws with something
+    # b. (Wagn way) we could get card directly from fetch if we add
+    # :include_trashed (eg).
+    #    likely low ROI, but would be nice to have interface to retrieve cards
+    #    from trash...m
+    self.id = trashed_card.id
+    # update instead of create
+    @from_trash = true
+    @new_record = false
+  end
+  self.trash = false
+  true
+end
+
+event :validate_delete, :validate, on: :delete do
+  unless codename.blank?
+    errors.add :delete, "#{name} is is a system card. (#{codename})"
+  end
+
+  undeletable_all_rules_tags =
+    %w(default style layout create read update delete)
+  # FIXME: HACK! should be configured in the rule
+
+  if junction? && (l = left) && l.codename == "all" &&
+     undeletable_all_rules_tags.member?(right.codename)
+    errors.add :delete, "#{name} is an indestructible rule"
+  end
+
+  if account && has_edits?
+    errors.add :delete, "Edits have been made with #{name}'s user account.\n" \
+                        "Deleting this card would mess up our history."
+  end
+end
+
+event :validate_delete_children, :prepare_to_validate, on: :delete do
+  children.each do |child|
+    child.trash = true
+    add_subcard child
+    # next if child.valid?
+    # child.errors.each do |field, message|
+    #   errors.add field, "can't delete #{child.name}: #{message}"
+    # end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/trash.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/type.rb

@@ -0,0 +1,60 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Type; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/type.rb ~~
+
+module ClassMethods
+  def default_type_id
+    @@default_type_id ||= Card[:all].fetch(trait: :default).type_id
+  end
+end
+
+def type_card
+  return if type_id.nil?
+  Card.quick_fetch type_id.to_i
+end
+
+def type_code
+  Card::Codename[type_id.to_i]
+end
+
+def type_name
+  type_card.try :name
+end
+
+def type_name_or_default
+  type_card.try(:name) || Card.quick_fetch(Card.default_type_id).name
+end
+
+def type_cardname
+  type_card.try :cardname
+end
+
+def type= type_name
+  self.type_id = Card.fetch_id type_name
+end
+
+def get_type_id_from_structure
+  return unless name && (t = template)
+  reset_patterns # still necessary even with new template handling?
+  t.type_id
+end
+
+event :validate_type_change, :validate, on: :update, changed: :type_id do
+  if (c = dup) && c.action == :create && !c.valid?
+    errors.add :type, "of #{name} can't be changed; errors creating new " \
+                      "#{type_id}: #{c.errors.full_messages * ', '}"
+  end
+end
+
+event :validate_type, :validate, changed: :type_id do
+  errors.add :type, "No such type" unless type_name
+
+  if (rt = structure) && rt.assigns_type? && type_id != rt.type_id
+    errors.add :type, "can't be changed because #{name} is hard templated " \
+                      "to #{rt.type_name}"
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/type.rb ~~
+end;end;end;end;