card 1.97.0.1 → 1.98.0

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

@@ -1,15 +1,14 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Permissions; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/permissions.rb ~~
-
-Card.error_codes.merge! permission_denied: [:denial, 403],
-                        captcha: [:errors, 449]
-
+class Card; module Set; class All
+# Set: All cards (Permissions)
+#
+module Permissions;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/permissions.rb"; end
 module ClassMethods
   def repair_all_permissions
-    Card.where(
-      "(read_rule_class is null or read_rule_id is null) and trash is false"
-    ).each do |broken_card|
+    Card.where("(read_rule_class is null or read_rule_id is null) and trash is false")
+        .each do |broken_card|
       broken_card.include_set_modules
       broken_card.repair_permissions!
     end
@@ -31,6 +30,7 @@ end
 # options.
 
 def ok? action
+  # binding.pry if action == :create
   @action_ok = true
   send "ok_to_#{action}"
   @action_ok
@@ -49,45 +49,62 @@ def ok! action, opts={}
 end
 
 def who_can action
-  # warn "who_can[#{name}] #{(prc=permission_rule_card(action)).inspect},
-  # #{prc.first.item_cards.map(&:id)}" if action == :update
   permission_rule_card(action).item_cards.map(&:id)
 end
 
-def permission_rule_id_and_class action
+def anyone_can? action
+  who_can(action).include? Card::AnyoneID
+end
+
+def direct_rule_card action
   direct_rule_id = rule_card_id action
   require_permission_rule! direct_rule_id, action
-  direct_rule = Card.fetch direct_rule_id, skip_modules: true
-  [applicable_permission_rule_id(direct_rule, action),
-   direct_rule.rule_class_name]
+  Card.fetch direct_rule_id, skip_modules: true
+end
+
+def permission_rule_id action
+  direct_rule = direct_rule_card action
+  applicable_permission_rule_id direct_rule, action
+end
+
+def permission_rule_id_and_class action
+  direct_rule = direct_rule_card action
+  [
+    applicable_permission_rule_id(direct_rule, action),
+    direct_rule.rule_class_name
+  ]
 end
 
 def applicable_permission_rule_id direct_rule, action
   if junction? && direct_rule.db_content =~ /^\[?\[?_left\]?\]?$/
-    lcard = left_or_new(skip_virtual: true, skip_modules: true)
-    if action == :create && lcard.real? && !lcard.action == :create
-      action = :update
-    end
-    lcard.permission_rule_id_and_class(action).first
+    left_permission_rule_id action
   else
     direct_rule.id
   end
 end
 
+def left_permission_rule_id action
+  lcard = left_or_new(skip_virtual: true, skip_modules: true)
+  if action == :create && lcard.real? && lcard.action != :create
+    action = :update
+  end
+  lcard.permission_rule_id action
+end
+
 def permission_rule_card action
-  Card.fetch permission_rule_id_and_class(action).first
+  Card.fetch permission_rule_id(action)
 end
 
 def require_permission_rule! rule_id, action
   return if rule_id
   # RULE missing.  should not be possible.
   # generalize this to handling of all required rules
-  errors.add :permission_denied, "No #{action} rule for #{name}"
+  errors.add :permission_denied, tr(:error_no_action_rule, action: action, name: name)
   raise Card::Error::PermissionDenied, self
 end
 
 def rule_class_name
-  trunk.type_id == Card::SetID ? cardname.trunk_name.tag : nil
+  trunk.type_id == Card::SetID ? name.trunk_name.tag : nil
 end
 
 def you_cant what
@@ -125,7 +142,7 @@ def ok_to_create
   permit :create
   return if !@action_ok || !junction?
 
-  [:left, :right].each do |side|
+  %i[left right].each do |side|
     # left is supercard; create permissions will get checked there.
     next if side == :left && @superleft
     part_card = send side, new: {}
@@ -139,7 +156,7 @@ end
 
 def ok_to_read
   return if Auth.always_ok?
-  @read_rule_id ||= permission_rule_id_and_class(:read).first
+  @read_rule_id ||= permission_rule_id(:read)
   return if Auth.as_card.read_rules.member? @read_rule_id
   deny_because you_cant "read this"
 end
@@ -163,12 +180,15 @@ def ok_to_comment
   deny_because "No comments allowed on structured content" if structure
 end
 
-event :clear_read_rule, :store, on: :delete do
-  self.read_rule_id = self.read_rule_class = nil
-end
+# don't know why we introduced this
+# but we have to preserve read rules to make
+# delete acts visible in recent changes -pk
+# event :clear_read_rule, :store, on: :delete do
+#   self.read_rule_id = self.read_rule_class = nil
+# end
 
 event :set_read_rule, :store,
-      on: :save, changed: [:type_id, :name] do
+      on: :save, changed: %i[type_id name] do
   read_rule_id, read_rule_class = permission_rule_id_and_class(:read)
   self.read_rule_id = read_rule_id
   self.read_rule_class = read_rule_class
@@ -213,8 +233,7 @@ event :update_read_rule do
     self.read_rule_class = rclass
     Card.where(id: id).update_all read_rule_id: rcard_id,
                                   read_rule_class: rclass
-    expire_hard
-
+    expire :hard
     update_field_read_rules
   end
 end
@@ -224,54 +243,23 @@ def add_to_read_rule_update_queue updates
 end
 
 event :check_permissions, :validate do
-  task =
-    if @action != :delete && comment # will be obviated by new comment handling
-      :comment
-    else
-      @action
-    end
   track_permission_errors do
-    ok? task
+    ok? action_for_permission_check
   end
 end
 
+def action_for_permission_check
+  commenting? ? :comment : @action
+end
+
 def track_permission_errors
   @permission_errors = []
   result = yield
-
-  @permission_errors.each do |message|
-    errors.add :permission_denied, message
-  end
+  @permission_errors.each { |msg| errors.add :permission_denied, msg }
   @permission_errors = nil
-
   result
 end
 
-def recaptcha_on?
-  have_recaptcha_keys? &&
-    Env[:controller]   &&
-    !Auth.signed_in?   &&
-    !Auth.needs_setup? &&
-    !Auth.always_ok?   &&
-    Card.toggle(rule(:captcha))
-end
-
-def have_recaptcha_keys?
-  @@have_recaptcha_keys =
-    if defined?(@@have_recaptcha_keys)
-      @@have_recaptcha_keys
-    else
-      !!(Card.config.recaptcha_public_key && Card.config.recaptcha_private_key)
-    end
-end
-
-event :recaptcha, :validate do
-  if !@supercard && !Env[:recaptcha_used] && recaptcha_on?
-    Env[:recaptcha_used] = true
-    Env[:controller].verify_recaptcha model: self, attribute: :captcha
-  end
-end
-
 module Accounts
   # This is a short-term hack that is used in account-related cards to allow a
   # permissions pattern where permissions are restricted to the owner of the
@@ -280,40 +268,14 @@ module Accounts
   # (without creating separate rules for each account holder) but is not yet.
 
   def permit action, verb=nil
-    if action == :comment then @action_ok = false
-    elsif action == :create  then @superleft ? true : super(action, verb)
-      # restricts account creation to subcard handling on permitted card
-      # (unless explicitly permitted)
-    elsif own_account? then true
-    else
-      super action, verb
-    end
-  end
-end
-
-module Follow
-  def ok_to_update
-    permit :update
-  end
-
-  def ok_to_create
-    permit :create
-  end
-
-  def ok_to_delete
-    permit :delete
-  end
-
-  def permit action, verb=nil
-    if [:create, :delete, :update].include?(action) && Auth.signed_in? &&
-       (user = rule_user) && Auth.current_id == user.id
-      return true
-    else
-      super action, verb
+    case action
+    when :comment then @action_ok = false
+    when :create  then @superleft ? true : super(action, verb)
+    # restricts account creation to subcard handling on permitted card
+    # (unless explicitly permitted)
+    else own_account? ? true : super(action, verb)
     end
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/permissions.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/permissions.rb ~~

data/tmpsets/set/mod003-core/all/phases.rb

@@ -0,0 +1,25 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Phases)
+#
+module Phases;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/phases.rb"; end
+def prepare_for_phases
+  reset_patterns
+  include_set_modules
+end
+
+def only_storage_phase?
+  only_storage_phase || !director.main?
+end
+
+delegate :validation_phase, to: :director
+delegate :storage_phase, to: :director
+delegate :integration_phase, to: :director
+
+# def clean_up
+#   Card::ActManager.clear
+# end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/phases.rb ~~

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

@@ -1,9 +1,13 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module References; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/references.rb ~~
+class Card; module Set; class All
+# Set: All cards (References)
+#
 # frozen_string_literal: true
 
 # Cards can refer to other cards in their content, eg via links and nests.
+module References;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/references.rb"; end
 # The card that refers is the "referer", the card that is referred to is
 # the "referee". The reference itself has its own class (Card::Reference),
 # which handles id-based reference tracking.
@@ -12,24 +16,30 @@ PARTIAL_REF_CODE = "P".freeze
 
 # cards that refer to self
 def referers
-  references_in.map(&:referer_id).map(&Card.method(:fetch)).compact
+  referer_cards_from_references references_in
 end
 
 # cards that include self
-def includers
-  refs = references_in.where(ref_type: "I")
-  refs.map(&:referer_id).map(&Card.method(:fetch)).compact
+def nesters
+  referer_cards_from_references references_in.where(ref_type: "I")
+end
+
+def referer_cards_from_references references
+  references.map(&:referer_id).uniq.map(&Card.method(:fetch)).compact
 end
 
 # cards that self refers to
 def referees
-  references_out.map { |ref| Card.fetch ref.referee_key, new: {} }
+  referees_from_references references_out
 end
 
 # cards that self includes
-def includees
-  refs = references_out.where(ref_type: "I")
-  refs.map { |ref| Card.fetch ref.referee_key, new: {} }
+def nestees
+  referees_from_references references_out.where(ref_type: "I")
+end
+
+def referees_from_references references
+  references.map(&:referee_key).uniq.map { |key| Card.fetch key, new: {} }
 end
 
 # cards that refer to self by name
@@ -41,15 +51,15 @@ end
 # cards that refer to self or any descendant
 def family_referers
   @family_referers ||= ([self] + descendants).map(&:referers).flatten.uniq
-  # FIXME: could be much more efficient!
+  # TODO: make this more efficient using partial references!
 end
 
 # replace references in card content
 def replace_reference_syntax old_name, new_name
-  obj_content = Card::Content.new raw_content, self
+  obj_content = Card::Content.new content, self
   obj_content.find_chunks(Card::Content::Chunk::Reference).select do |chunk|
     next unless (old_ref_name = chunk.referee_name)
-    next unless (new_ref_name = old_ref_name.replace_part old_name, new_name)
+    next unless (new_ref_name = old_ref_name.swap old_name, new_name)
     chunk.referee_name = chunk.replace_reference old_name, new_name
     refs = Card::Reference.where referee_key: old_ref_name.key
     refs.update_all referee_key: new_ref_name.key
@@ -78,7 +88,7 @@ end
 # delete references from this card
 def delete_references_out
   raise "id required to delete references" if id.nil?
-  Card::Reference.delete_all referer_id: id
+  Card::Reference.where(referer_id: id).delete_all
 end
 
 # interpretation phase helps to prevent duplicate references
@@ -88,7 +98,8 @@ end
 # }
 def interpret_reference ref_hash, referee_name, ref_type
   return unless referee_name # eg commented nest has no referee_name
-  referee_key = (referee_name = referee_name.to_name).key
+  referee_name = referee_name.to_name
+  referee_key = referee_name.key
   return if referee_key == key # don't create self reference
 
   referee_id = Card.fetch_id(referee_name)
@@ -123,10 +134,10 @@ def reference_values_array ref_hash
   values
 end
 
-# invokes the given block for each reference in raw_content with
+# invokes the given block for each reference in content with
 # the reference name and reference type
 def each_reference_out
-  content_obj = Card::Content.new raw_content, self
+  content_obj = Card::Content.new content, self
   content_obj.find_chunks(Card::Content::Chunk::Reference).each do |chunk|
     yield(chunk.referee_name, chunk.reference_code)
   end
@@ -141,7 +152,7 @@ event :prepare_referer_update, :validate, on: :update, changed: :name do
 end
 
 # when name changes, update references to card
-event :refresh_references_in, :finalize, on: :save, changed: :name do
+event :refresh_references_in, :finalize, on: :save, after: :name_change_finalized do
   Card::Reference.unmap_referees id if @action == :update && !update_referers
   Card::Reference.map_referees key, id
 end
@@ -159,16 +170,12 @@ end
 
 # on rename, update names in cards that refer to self by name (as directed)
 event :update_referer_content, :finalize,
-      on: :update, changed: :name,
-      when: proc { |card| card.update_referers } do
-  # FIXME: break into correct stages
-  Auth.as_bot do
-    family_referers.each do |card|
-      next if card == self || card.structure
-      card = card.refresh
-      card.db_content = card.replace_reference_syntax name_was, name
-      card.save!
-    end
+      on: :update, after: :name_change_finalized, when: :update_referers do
+  referers.each do |card|
+    next if card.structure
+    card.skip = %i[validate_renaming check_permissions!]
+    attach_subcard card.name,
+                   content: card.replace_reference_syntax(name_before_last_save, name)
   end
 end
 
@@ -177,11 +184,13 @@ end
 # eg.  A links to X+Y.  if X+Y is renamed and we're not updating the link in A,
 # then we need to be sure that A has a partial reference
 event :update_referer_references_out, :finalize,
-      on: :update, changed: :name,
-      when: proc { |c| !c.update_referers } do
-  family_referers.map(&:update_references_out)
+      on: :update, after: :name_change_finalized,
+      when: :not_update_referers do
+  referers.map(&:update_references_out)
 end
 
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/references.rb ~~
+def not_update_referers
+  !update_referers
+end
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/references.rb ~~

data/tmpsets/set/mod003-core/all/rename.rb

@@ -0,0 +1,47 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Rename)
+#
+module Rename;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/rename.rb"; end
+event :rename_in_trash, after: :set_name, on: :update do
+  existing_card = Card.find_by_key_and_trash name.key, true
+  return if !existing_card || existing_card == self
+  existing_card.name = existing_card.name + "*trash"
+  existing_card.rename_in_trash_without_callbacks
+  existing_card.save!
+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 :validate_renaming, :validate, on: :update, changed: :name, skip: :allowed do
+  errors.add :content, tr(:cannot_change_content) if db_content_is_changing?
+  errors.add :type, tr(:cannot_change_type) if type_id_is_changing?
+end
+
+event :cascade_name_changes, :finalize, on: :update, changed: :name,
+                                        before: :name_change_finalized do
+  @descendants = nil # reset
+
+  children.each do |child|
+    Rails.logger.info "cascading name: #{child.name}"
+    newname = child.name.swap name_before_last_save, name
+    # not sure if this is still needed since we attach the children as subcards
+    # (it used to be resolved right here without adding subcards)
+    Card.expire child.name
+
+    # superleft has to be the first argument. Otherwise the call of `name=` in
+    # `assign_attributes` can cause problems because `left` doesn't find the new left.
+    attach_subcard child.name, superleft: self, name: newname,
+                               update_referers: update_referers
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/rename.rb ~~