card 1.99.6 → 1.100.0

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

@@ -1,31 +0,0 @@
-# -*- 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

@@ -1,31 +0,0 @@
-# -*- 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

@@ -1,85 +0,0 @@
-# -*- 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/tracked_attributes.rb

@@ -1,78 +0,0 @@
-# -*- 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

@@ -1,113 +0,0 @@
-# -*- 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

@@ -1,60 +0,0 @@
-# -*- 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;

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

@@ -1,91 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module UpdateReadRules; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/update_read_rules.rb ~~
-
-# FIXME: the following don't really belong here, but they have to come after
-# the reference stuff.  we need to organize a bit!
-
-event :update_ruled_cards, :finalize do
-  if is_rule?
-    # warn "updating ruled cards for #{name}"
-    self.class.clear_rule_cache
-    set = rule_set
-
-    if right_id == Card::ReadID && (name_changed? || trash_changed?)
-      update_read_ruled_cards set
-    end
-  end
-end
-
-def update_read_rules_not_overridden_by_narrower_rules cur_index,
-                                                       rule_class_index, set
-  set.item_cards(limit: 0).each_with_object(::Set.new) do |item_card, in_set|
-    in_set << item_card.key
-    next if cur_index < rule_class_index
-    item_card.update_read_rule
-  end
-end
-
-def update_read_rules_of_set_members set
-  return ::Set.new if trash || !(class_id = id_of_set_class(set))
-  rule_class_ids = set_patterns.map(&:pattern_id)
-  Auth.as_bot do
-    if (rule_class_index = rule_class_ids.index(class_id))
-      cur_index = rule_class_ids.index Card[read_rule_class].id
-      update_read_rules_not_overridden_by_narrower_rules cur_index,
-                                                         rule_class_index, set
-    else
-      warn "No current rule index #{class_id}, #{rule_class_ids.inspect}"
-      ::Set.new
-    end
-  end
-end
-
-def id_of_set_class set
-  set && (set_class = set.tag) && set_class.id
-end
-
-def update_read_ruled_cards set
-  self.class.clear_read_rule_cache
-  Card.cache.reset # maybe be more surgical, just Auth.user related
-  expire # probably shouldn't be necessary,
-  # but was sometimes getting cached version when card should be in the
-  # trash.  could be related to other bugs?
-
-  updated = update_read_rules_of_set_members set
-
-  # then find all cards with me as read_rule_id that were not just updated
-  # and regenerate their read_rules
-  return if new_card?
-  Card.search(read_rule_id: id) do |card|
-    card.update_read_rule unless updated.include?(card.key)
-  end
-end
-
-event :process_read_rule_update_queue, :finalize do
-  Array.wrap(@read_rule_update_queue).each(&:update_read_rule)
-  @read_rule_update_queue = []
-end
-
-event :expire_related, :finalize do
-  subcards.keys.each do |key|
-    Card.cache.soft.delete key
-  end
-  expire # FIXME: where do we put this. Here it deletes @stage
-  reset_patterns
-  if is_structure?
-    structuree_names.each do |name|
-      Card.expire name
-    end
-  end
-end
-
-event :expire_related_names, before: :expire_related, changed: :name do
-  # FIXME: look for opportunities to avoid instantiating the following
-  descendants.each(&:expire)
-  name_referers.each(&:expire)
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/update_read_rules.rb ~~
-end;end;end;end;