card 1.99.4 → 1.99.5

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

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Haml; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/haml.rb ~~
+format do
+  def render_haml locals={}, template=nil, a_binding=nil, &block
+    template ||= yield
+    a_binding ||= binding
+    ::Haml::Engine.new(template).render(a_binding, locals)
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/haml.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Initialize; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/initialize.rb ~~
+JUNK_INIT_ARGS = %w(missing skip_virtual id).freeze
+
+module ClassMethods
+  def new args={}, _options={}
+    args = (args || {}).stringify_keys
+    JUNK_INIT_ARGS.each { |a| args.delete(a) }
+    %w(type type_code).each { |k| args.delete(k) if args[k].blank? }
+    args.delete("content") if args["attach"] # should not be handled here!
+    super args
+  end
+end
+
+def initialize args={}
+  args["name"] = args["name"].to_s
+  args["db_content"] = args.delete("content") if args["content"]
+  @supercard = args.delete "supercard" # must come before name =
+  skip_modules = args.delete "skip_modules"
+  skip_type_lookup = args["skip_type_lookup"]
+
+  super args # ActiveRecord #initialize
+  self.type_id = get_type_id_from_structure if !type_id && !skip_type_lookup
+  include_set_modules unless skip_modules
+  self
+end
+
+def include_set_modules
+  unless @set_mods_loaded
+    set_modules.each do |m|
+      singleton_class.send :include, m
+    end
+    assign_set_specific_attributes
+    @set_mods_loaded = true
+  end
+  self
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/initialize.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module LocationHistory; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/location_history.rb ~~
+event :discard_deleted_locations, in: :finalize, on: :delete do
+  Env.discard_locations_for self
+  success.target = :previous if success.target == self
+end
+
+event :save_current_location, before: :show_page, on: :read do
+  Env.save_location self
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/location_history.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,282 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Name; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name.rb ~~
+require "uuid"
+
+module ClassMethods
+  def uniquify_name name, rename=:new
+    return name unless Card.exists?(name)
+    uniq_name = "#{name} 1"
+    uniq_name.next! while Card.exists?(uniq_name)
+    if rename == :old
+      # name conflict resolved; original name can be used
+      Card[name].update_attributes! name: uniq_name,
+                                    update_referers: true
+      name
+    else
+      uniq_name
+    end
+  end
+end
+
+def name= newname
+  cardname = newname.to_name
+  if @supercard
+    @supercard.subcards.rename key, cardname.key
+    @contextual_name = cardname.to_s
+    relparts = cardname.parts
+    if relparts.size == 2 &&
+       (relparts.first.blank? || relparts.first.to_name.key == @supercard.key)
+      @superleft = @supercard
+    end
+    cardname = cardname.to_absolute_name @supercard.name
+  end
+
+  newkey = cardname.key
+  self.key = newkey if key != newkey
+  update_subcard_names cardname
+  write_attribute :name, cardname.s
+end
+
+def key= newkey
+  was_in_cache = Card.cache.soft.delete key
+  write_attribute :key, newkey
+  # keep the soft cache up-to-date
+  Card.write_to_soft_cache self if was_in_cache
+  # reset the old name - should be handled in tracked_attributes!!
+  reset_patterns_if_rule
+  reset_patterns
+  newkey
+end
+
+def update_subcard_names cardname
+  return unless @subcards
+  subcards.each do |subcard|
+    # if subcard has a relative name like +C
+    # and self is a subcard as well that changed from +B to A+B then
+    # +C should change to A+B+C. #replace_part doesn't work in this case
+    # because the old name +B is not a part of +C
+    name_to_replace =
+      if subcard.cardname.junction? &&
+         subcard.cardname.parts.first.empty? &&
+         cardname.parts.first.present?
+        # replace the empty part
+        "".to_name
+      else
+        name
+      end
+    subcard.name = subcard.cardname.replace_part name_to_replace, cardname.s
+  end
+end
+
+def cardname
+  name.to_name
+end
+
+def autoname name
+  if Card.exists? name
+    autoname name.next
+  else
+    name
+  end
+end
+
+# FIXME: use delegations and include all cardname functions
+def simple?
+  cardname.simple?
+end
+
+def junction?
+  cardname.junction?
+end
+
+def contextual_name
+  @contextual_name || name
+end
+
+def relative_name context_name=nil
+  context_name ||= @supercard.cardname if @supercard
+  cardname.relative_name context_name
+end
+
+def absolute_name context_name=nil
+  context_name ||= @supercard.cardname if @supercard
+  cardname.absolute_name context_name
+end
+
+def left *args
+  case
+  when simple?    then nil
+  when @superleft then @superleft
+  when name_changed? && name.to_name.trunk_name.key == name_was.to_name.key
+    nil # prevent recursion when, eg, renaming A+B to A+B+C
+  else
+    Card.fetch cardname.left, *args
+  end
+end
+
+def right *args
+  Card.fetch(cardname.right, *args) unless simple?
+end
+
+def [] *args
+  case args[0]
+  when Fixnum, Range
+    fetch_name = Array.wrap(cardname.parts[args[0]]).compact.join "+"
+    Card.fetch(fetch_name, args[1] || {}) unless simple?
+  else
+    super
+  end
+end
+
+def trunk *args
+  simple? ? self : left(*args)
+end
+
+def tag *args
+  simple? ? self : Card.fetch(cardname.right, *args)
+end
+
+def left_or_new args={}
+  left(args) || Card.new(args.merge(name: cardname.left))
+end
+
+def fields
+  field_names.map { |name| Card[name] }
+end
+
+def field_names parent_name=nil
+  child_names parent_name, :left
+end
+
+def children
+  child_names.map { |name| Card[name] }
+end
+
+def child_names parent_name=nil, side=nil
+  # eg, A+B is a child of A and B
+  parent_name ||= name
+  side ||= parent_name.to_name.simple? ? :part : :left
+  Card.search({ side => parent_name, return: :name },
+              "(#{side}) children of #{parent_name}")
+end
+
+# ids of children and children's children
+def descendant_ids parent_id=nil
+  return [] if new_card?
+  parent_id ||= id
+  Auth.as_bot do
+    child_ids = Card.search part: parent_id, return: :id
+    child_descendant_ids = child_ids.map { |cid| descendant_ids cid }
+    (child_ids + child_descendant_ids).flatten.uniq
+  end
+end
+
+# children and children's children
+# NOTE - set modules are not loaded
+# -- should only be used for name manipulations
+def descendants
+  @descendants ||= descendant_ids.map { |id| Card.quick_fetch id }
+end
+
+def repair_key
+  Auth.as_bot do
+    correct_key = cardname.key
+    current_key = key
+    return self if current_key == correct_key
+
+    if (key_blocker = Card.find_by_key_and_trash(correct_key, true))
+      key_blocker.cardname = key_blocker.cardname + "*trash#{rand(4)}"
+      key_blocker.save
+    end
+
+    saved =   (self.key      = correct_key) && save!
+    saved ||= (self.cardname = current_key) && save!
+
+    if saved
+      descendants.each(&:repair_key)
+    else
+      Rails.logger.debug "FAILED TO REPAIR BROKEN KEY: #{key}"
+      self.name = "BROKEN KEY: #{name}"
+    end
+    self
+  end
+rescue
+  Rails.logger.info "BROKE ATTEMPTING TO REPAIR BROKEN KEY: #{key}"
+  self
+end
+
+event :set_autoname, :prepare_to_validate, on: :create do
+  if name.blank? && (autoname_card = rule_card(:autoname))
+    self.name = autoname autoname_card.content
+    # FIXME: should give placeholder in approve phase
+    # and finalize/commit change in store phase
+    autoname_card.refresh.update_column :db_content, name
+  end
+end
+
+event :set_name, :store, changed: :name do
+  Card.expire name
+  Card.expire name_was
+end
+
+event :set_left_and_right, :store,
+      changed: :name, on: :save do
+  if cardname.junction?
+    [:left, :right].each do |side|
+      sidename = cardname.send "#{side}_name"
+      sidecard = Card[sidename]
+
+      # eg, renaming A to A+B
+      old_name_in_way = (sidecard && sidecard.id == id)
+      suspend_name(sidename) if old_name_in_way
+      side_id_or_card =
+        if !sidecard || old_name_in_way
+          add_subcard(sidename.s)
+        else
+          sidecard.id
+        end
+      send "#{side}_id=", side_id_or_card
+    end
+  else
+    self.left_id = self.right_id = nil
+  end
+end
+
+event :rename, after: :set_name, on: :update do
+  if (existing_card = Card.find_by_key_and_trash(cardname.key, true)) &&
+     existing_card != self
+    existing_card.name = existing_card.name + "*trash"
+    existing_card.rename_without_callbacks
+    existing_card.save!
+  end
+end
+
+def suspend_name name
+  # move the current card out of the way, in case the new name will require
+  # re-creating a card with the current name, ie.  A -> A+B
+  Card.expire name
+  tmp_name = "tmp:" + UUID.new.generate
+  Card.where(id: id).update_all(name: tmp_name, key: tmp_name)
+end
+
+event :cascade_name_changes, :finalize, on: :update, changed: :name do
+  des = descendants
+  @descendants = nil # reset
+
+  des.each do |de|
+    # here we specifically want NOT to invoke recursive cascades on these
+    # cards, have to go this low level to avoid callbacks.
+    Rails.logger.info "cascading name: #{de.name}"
+    Card.expire de.name # old name
+    newname = de.cardname.replace_part name_was, name
+    Card.where(id: de.id).update_all name: newname.to_s, key: newname.key
+    de.update_referers = update_referers
+    de.refresh_references_in
+    Card.expire newname
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,65 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module NameValidations; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name_validations.rb ~~
+event :permit_codename, :validate,
+      on: :update, changed: :codename do
+  errors.add :codename, "only admins can set codename" unless Auth.always_ok?
+  validate_uniqueness_of_codename
+end
+
+event :validate_uniqueness_of_codename do
+  return unless codename.present? && errors.empty? &&
+                Card.find_by_codename(codename).present?
+  errors.add :codename, "codename #{codename} already in use"
+end
+
+event :validate_name, :validate,
+      on: :save, changed: :name do
+  validate_legality_of_name
+  return if errors.any?
+  validate_uniqueness_of_name
+end
+
+event :validate_uniqueness_of_name do
+  # validate uniqueness of name
+  condition_sql = "cards.key = ? and trash=?"
+  condition_params = [cardname.key, false]
+  unless new_record?
+    condition_sql << " AND cards.id <> ?"
+    condition_params << id
+  end
+  if (c = Card.find_by(condition_sql, *condition_params))
+    errors.add :name, "must be unique; '#{c.name}' already exists."
+  end
+end
+
+event :validate_legality_of_name do
+  if name.length > 255
+    errors.add :name, "is too long (255 character maximum)"
+  elsif cardname.blank?
+    errors.add :name, "can't be blank"
+  elsif cardname.parts.include? ""
+    errors.add :name, "is incomplete"
+  else
+    unless cardname.valid?
+      errors.add :name, "may not contain any of the following characters: " \
+                        "#{Card::Name.banned_array * ' '}"
+    end
+    # this is to protect against using a plus card as a tag
+    return unless cardname.junction? && simple? && id &&
+                  Auth.as_bot { Card.count_by_wql right_id: id } > 0
+    errors.add :name, "#{name} in use as a tag"
+  end
+end
+
+event :validate_key, after: :validate_name, on: :save do
+  if key.empty?
+    errors.add :key, "cannot be blank" if errors.empty?
+  elsif key != cardname.key
+    errors.add :key, "wrong key '#{key}' for name #{name}"
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name_validations.rb ~~
+end;end;end;end;

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

@@ -1,10 +1,6 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Pattern)
-#
-module Pattern;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/pattern.rb"; end
+class Card; module Set; class All; module Pattern; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/pattern.rb ~~
 
 def patterns
   @patterns ||= set_patterns.map { |sub| sub.new self }.compact
@@ -23,12 +19,17 @@ def reset_patterns
   true
 end
 
-def reset_patterns_if_rule _saving=false
-  return unless real? && is_rule? && (set = left)
+def reset_patterns_if_rule saving=false
+  if !new_card? && is_rule?
+    set = left
+    set.reset_patterns
+    set.include_set_modules
 
-  set.reset_patterns
-  set.include_set_modules
-  set
+    # FIXME: should be in right/read.rb
+    if saving && right.id == Card::ReadID
+      add_to_read_rule_update_queue set.item_cards(limit: 0)
+    end
+  end
 end
 
 def safe_set_keys
@@ -60,5 +61,7 @@ end
 def rule_set_keys
   @rule_set_keys ||= patterns.map(&:rule_set_key).compact
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/pattern.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/pattern.rb ~~