card 1.99.4 → 1.99.5

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/{mod003-core → mod002-core}/all/subcards.rb

@@ -1,12 +1,8 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Subcards)
-#
-module Subcards;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/subcards.rb"; end
+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 name.field(tag), opts
+  Card.fetch cardname.field(tag), opts
 end
 
 def subcard card_name
@@ -17,28 +13,7 @@ def subfield field_name
   subcards.field field_name
 end
 
-def field? tag
-  field(tag) || subfield(tag)
-end
-
-def subcards
-  @subcards ||= Card::Subcards.new self
-end
-
-def subcards?
-  subcards.present?
-end
-
-def expire_subcards
-  subcards.clear
-end
-
-def save_as_subcard!
-  self.only_storage_phase = true
-  save! validate: false
-end
-
-# phase_method :attach_subcard, before: :store do |name_or_card, args=nil|
+# 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
@@ -51,7 +26,7 @@ def attach_subcard! name_or_card, args={}
   subcard
 end
 
-# phase_method :attach_subfield, before: :approve do |name_or_card, args=nil|
+# 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
@@ -77,34 +52,34 @@ def clear_subcards
   subcards.clear
 end
 
-def subfield_present? field_name
-  (field_card = subfield(field_name)) && field_card.content.present?
-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|
-      subcard_error subcard, field, err
+      err = "#{field} #{err}" unless [:content, :abort].member? field
+      errors.add subcard.relative_name.s, err
     end
-    subcard.errors.clear
   end
 end
 
-def subcard_error subcard, field, err
-  err = "#{field} #{err}" unless %i[content abort].member? field
-  errors.add subcard.name.from(name), err
-end
-
 event :reject_empty_subcards, :prepare_to_validate do
   subcards.each_with_key do |subcard, key|
-    next unless subcard.new? && subcard.unfilled?
-    remove_subcard(key)
-    director.subdirectors.delete(subcard)
+    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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/subcards.rb ~~

data/tmpsets/set/{mod003-core → mod002-core}/all/templating.rb

@@ -1,21 +1,13 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Templating)
-#
-module Templating;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/templating.rb"; end
+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?
-  return @is_template unless @is_template.nil?
-
-  @is_template = name.trait_name? :structure, :default
+  cardname.trait_name? :structure, :default
 end
 
 def is_structure?
-  return @is_structure unless @is_structure.nil?
-
-  @is_structure = name.trait_name? :structure
+  cardname.trait_name? :structure
 end
 
 def template
@@ -32,15 +24,11 @@ def template
   end
 end
 
-def default_type_id default_card=nil
-  default_card ? default_card.type_id : Card.default_type_id
-end
-
 def new_card_template
   default = rule_card :default, skip_modules: true
 
   dup_card = dup
-  dup_card.type_id = default_type_id default
+  dup_card.type_id = default ? default.type_id : Card.default_type_id
 
   if (structure = dup_card.structure_rule_card)
     @virtual = true if junction?
@@ -60,9 +48,10 @@ 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.
-  pattern_code = Card.quick_fetch(name.trunk_name.tag_name)&.codename
-  return unless pattern_code && (set_class = Set::Pattern.find pattern_code)
-
+  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
 
@@ -71,10 +60,19 @@ def structure
   template
 end
 
-def structure_rule_card
-  return unless (card = rule_card :structure, skip_modules: true)
+def virtual?
+  return false unless new_card?
+  if @virtual.nil?
+    cardname.simple? ? (@virtual = false) : template
+  end
+  @virtual
+end
 
-  card.db_content&.strip == "_self" ? nil : card
+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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/templating.rb ~~

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/{mod003-core → mod002-core}/all/type.rb

@@ -1,14 +1,10 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Type)
-#
-module Type;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/type.rb"; end
+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, skip_modules: true).type_id
+    @@default_type_id ||= Card[:all].fetch(trait: :default).type_id
   end
 end
 
@@ -25,24 +21,18 @@ def type_name
   type_card.try :name
 end
 
-alias_method :type, :type_name
-
 def type_name_or_default
   type_card.try(:name) || Card.quick_fetch(Card.default_type_id).name
 end
 
 def type_cardname
-  type_card.try :name
+  type_card.try :cardname
 end
 
 def type= type_name
   self.type_id = Card.fetch_id type_name
 end
 
-def type_known?
-  type_id.present?
-end
-
 def get_type_id_from_structure
   return unless name && (t = template)
   reset_patterns # still necessary even with new template handling?
@@ -51,20 +41,20 @@ end
 
 event :validate_type_change, :validate, on: :update, changed: :type_id do
   if (c = dup) && c.action == :create && !c.valid?
-    errors.add :type, tr(
-      :error_cant_change_errors,
-      name: name, type_id: type_id,
-      error_messages: c.errors.full_messages
-    )
+    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, on: :save do
-  errors.add :type, tr(:error_no_such_type) unless type_name
+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, tr(:error_hard_templated, name: name, type_name: rt.type_name)
+    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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/type.rb ~~