card-mod-mirror 0.1 → 0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 5e7b9160a101445c73c8c54a068117118904ff0a54347ef666b8f0a5dfdf9ce8
-  data.tar.gz: ed3a86a1ad65b17d860d8c08be205b60ac6d78406e3e7582d6694a89a4a498a6
+  metadata.gz: 3a03627c98bc1228609133d186a4c4e12b8b0d9353afb856f3a4169d640437dd
+  data.tar.gz: b037feb0fbecef3d2ec8088298edfacde1b6d9e5ec9b052dd613a882a33361b4
 SHA512:
-  metadata.gz: c8d1504824debb0bcb40a696390397c5fa3faa125742abaf6610b1a43af9602ea1f362f48ac95baebb29fbb8648ffffee2c713dfe722eb09571823f967c7ddb2
-  data.tar.gz: '0185f499ace9e7efa11bd1c9156b3355d06e01f4b7c12619b3f70f5b7fe8cc8f93a01f6217c2272a165bec9904cdcfc8239f71c949f19a58c49d4dedebc4caaa'
+  metadata.gz: b26a2ca35ace3fd3b34fc91342690b9d9020d96269c3224a535c592779836e03eb47f0c2d19c39caa5fb649fd134a62db2eab9e935487eb0bce7d2b9a7522ee2
+  data.tar.gz: 49722cac50ab8fef88ef5a1a74f720d5369fd17eea36f1a2b99d845aacfe9f4bc2ecaff7679fc4ca5c50efe554b94c3cfb027d9b67e408971c0ca993cfbccc7d

data/set/abstract/reflection.rb

@@ -0,0 +1,72 @@
+include_set Abstract::Pointer
+
+event :validate_mirrorable, :validate, on: :save, changed: :name do
+  return if right&.type_code == :cardtype
+
+  errors.add :name, t(:mirror_cardtype_right)
+end
+
+event :validate_mirror_items, :validate, on: :save do
+  item_cards.each do |item_card|
+    next if item_card.type_id == item_type_id
+
+    errors.add :content, t(:mirror_only_type_allowed,
+                           cardname: item_card.name,
+                           cardtype: item_type_name)
+  end
+end
+
+event :update_mirroring_card, :prepare_to_validate,
+      changed: :content, skip: :allowed do
+  remove_mirrored_items dropped_item_names
+  add_mirrored_items added_item_names
+end
+
+def remove_mirrored_items items
+  each_mirrored_subcard(items) { |sc| sc.drop_item name.left }
+end
+
+def add_mirrored_items items
+  each_mirrored_subcard(items) { |sc| sc.add_item name.left }
+end
+
+def each_mirrored_subcard items
+  items.each do |item|
+    sc = subcard mirrored_card(item)
+    sc.skip_event! :update_mirroring_card
+    yield sc
+  end
+end
+
+def mirrored_card item
+  Card.fetch [item, left.type_name], new: { type: mirroring_type }
+end
+
+def generate_content
+  listed_by.map { |item| item.to_name.left }.join "\n"
+end
+
+def listed_by
+  Card.search({ type: :mirrored_list,
+                right: trunk.type_name,
+                left: { type_id: item_type_id },
+                refer_to: name.trunk,
+                return: :name }, "all cards listed by #{name}")
+end
+
+def item_type
+  name.right
+end
+
+def item_type_name
+  name.right_name
+end
+
+def item_type_card
+  name.right
+end
+
+def item_type_id
+  right_id
+end
+

data/set/all/list_changes.rb

@@ -1,49 +1,15 @@
 # -*- encoding : utf-8 -*-
 
-def list_fields
-  Card.search({ left: name, type_id: MirroredListID }, "list fields")
+event :preserve_mirrors, :validate,
+      on: :update, changed: :type_id, when: :item_in_mirror? do
+  errors.add :type, "cannot change type of item in mirrors: #{items_in_mirrors.join ', '}"
 end
 
-def listed_by_fields
-  Card.search({ left: name, type_id: MirrorListID }, "listed by fields")
+def items_in_mirrors
+  @items_in_mirrors ||=
+    Card.search left: name, type_id: [MirrorListID, MirroredListID], return: :name
 end
 
-def linker_lists
-  Card.search({ type_id: MirroredListID, link_to: name },
-              "lists that link to #{name}")
-end
-
-def codename_list_exist?
-  Card::Codename.exist?(:mirrored_list) && Card::Codename.exist?(:mirror_list)
-end
-
-event :trunk_cardtype_of_a_list_relation_changed, :finalize,
-      changed: :type, on: :update, when: :codename_list_exist? do
-  type_key_was = Card.quick_fetch(type_id_before_act)&.key
-
-  list_fields.each do |card|
-    card.update_listed_by_cache_for card.item_keys, type_key: type_key_was
-    card.update_listed_by_cache_for card.item_keys
-  end
-  listed_by_fields.each &:update_cached_list
-end
-
-event :trunk_name_of_a_list_relation_changed, :finalize,
-      changed: :name, on: :update,
-      when: :codename_list_exist? do
-  list_fields.each do |card|
-    card.update_listed_by_cache_for card.item_keys
-  end
-  listed_by_fields.each &:update_cached_list
-end
-
-event :cardtype_of_list_item_changed, :validate,
-      changed: :type, on: :save,
-      when: :codename_list_exist? do
-  linker_lists.each do |card|
-    next unless card.item_type_id != type_id
-    errors.add(:type,
-               "can't be changed because #{name} " \
-               "is referenced by list card #{card.name}")
-  end
+def item_in_mirror?
+  items_in_mirrors.present?
 end

data/set/type/mirror_list.rb

@@ -1,93 +1,5 @@
-include_set Abstract::Pointer
+include_set Abstract::Reflection
 
-event :validate_listed_by_name, :validate, on: :save, changing: :name do
-  if !compound? || !right || right.type_id != Card::CardtypeID
-    errors.add :name, t(:mirror_cardtype_right)
-  end
-end
-
-event :validate_listed_by_content, :validate,
-      on: :save, changing: :content do
-  item_cards(content: content).each do |item_card|
-    next unless item_card.type_id != right.id
-    errors.add(
-      :content,
-      "#{item_card.name} has wrong cardtype; " \
-      "only cards of type #{name.right} are allowed"
-    )
-  end
-end
-
-event :update_content_in_list_cards, :prepare_to_validate,
-      on: :save, changing: :content do
-  return unless db_content.present?
-  new_items = item_keys(content: db_content)
-  old_items = item_keys(content: old_content)
-  remove_items(old_items - new_items)
-  add_items(new_items - old_items)
-end
-
-def old_content
-  db_content_before_act.present? ? db_content_before_act : content_cache.read(key)
-end
-
-def remove_items items
-  items.each do |item|
-    next unless (lc = list_card item)
-    lc.drop_item name.left
-    subcards.add lc
-  end
-end
-
-def add_items items
-  items.each do |item|
-    if (lc = list_card(item))
-      lc.add_item name.left
-      subcards.add lc
-    else
-      subcards.add(name: [item, left.type_name].cardname,
-                   type: "list",
-                   content: "[[#{name.left}]]")
-    end
-  end
-end
-
-def content_cache
-  Card::Cache[Card::Set::Type::MirrorList]
-end
-
-def content
-  content_cache.fetch(key) do
-    generate_content
-  end
-end
-
-def generate_content
-  listed_by.map do |item|
-    "[[%s]]" % item.to_name.left
-  end.join "\n"
-end
-
-def listed_by
-  Card.search(
-    { type_id: Card::MirroredListID, right: trunk.type_name,
-      left: { type: name.tag }, refer_to: name.trunk, return: :name },
-    "all cards listed by #{name}"
-  )
-end
-
-def update_cached_list
-  if trunk
-    Card::Cache[Card::Set::Type::MirrorList].write key, generate_content
-  else
-    Card::Cache[Card::Set::Type::MirrorList].delete key
-  end
-end
-
-def list_card item
-  Card.fetch item, left.type_name
-end
-
-def unfilled?
-  false
+def mirroring_type
+  :mirrored_list
 end

data/set/type/mirrored_list.rb

@@ -1,110 +1,5 @@
-include_set Abstract::Pointer
+include_set Abstract::Reflection
 
-event :validate_list_name, :validate, on: :save, changed: :name do
-  errors.add :name, t(:mirror_cardtype_right) unless right&.type_id == Card::CardtypeID
-end
-
-event :validate_list_item_type_change, :validate,
-      on: :save, changed: :name do
-  item_cards.each do |item_card|
-    next unless item_card.type_name.key != item_type_name.key
-    errors.add :name, t(:mirror_conflict_item_type)
-  end
-end
-
-event :validate_list_content, :validate,
-      on: :save, changed: :content do
-  item_cards.each do |item_card|
-    next unless item_card.type_name.key != item_type_name.key
-    errors.add :content, t(
-      :mirror_only_type_allowed,
-      cardname: item_card.name,
-      cardtype: name.right
-    )
-  end
-end
-
-event :create_listed_by_cards, :prepare_to_validate,
-      on: :save, changed: :content do
-  item_names.each do |item_name|
-    listed_by_name = "#{item_name}+#{left.type_name}"
-    next if director.main_director.card.key == listed_by_name.to_name.key
-    if !Card[listed_by_name]
-      add_subcard listed_by_name, type_id: Card::MirrorListID
-    else
-      Card[listed_by_name].update_references_out
-    end
-  end
-end
-
-event :update_related_listed_by_card_on_create, :finalize, on: :create do
-  update_listed_by_cache_for item_keys
-end
-
-event :update_related_listed_by_card_on_content_update, :finalize,
-      on: :update, changed: :content do
-  new_items = item_keys
-  changed_items =
-    if db_content_before_act
-      old_items = item_keys(content: db_content_before_act)
-      old_items + new_items - (old_items & new_items)
-    else
-      new_items
-    end
-  update_listed_by_cache_for changed_items
-end
-
-event :update_related_listed_by_card_on_name_and_type_changes, :finalize,
-      on: :update, changed: %i[name type_id] do
-  update_all_items
-end
-
-event :update_related_listed_by_card_on_delete, :finalize,
-      on: :delete, when: :compound? do
-  update_listed_by_cache_for item_keys, type_key: @left_type_key
-end
-
-event :cache_type_key, :store, on: :delete, when: :compound? do
-  @left_type_key = left.type_card.key
-end
-
-def update_all_items
-  current_items = item_keys
-  if db_content_before_act
-    old_items = item_keys(content: db_content_before_act)
-    update_listed_by_cache_for old_items
-  end
-  update_listed_by_cache_for current_items
-end
-
-def update_listed_by_cache_for item_keys, args={}
-  type_key = args[:type_key] || left&.type_card&.key
-  return unless type_key
-
-  item_keys.each do |item_key|
-    key = "#{item_key}+#{type_key}"
-    next unless Card::Cache[Card::Set::Type::MirrorList].exist? key
-    if (card = Card.fetch(key)) && card.left
-      card.update_cached_list
-      card.update_references_out
-    else
-      Card::Cache[Card::Set::Type::MirrorList].delete key
-    end
-  end
-end
-
-def item_type
-  name.right
-end
-
-def item_type_name
-  name.right_name
-end
-
-def item_type_card
-  name.right
-end
-
-def item_type_id
-  right.id
+def mirroring_type
+  :mirror_list
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: card-mod-mirror
 version: !ruby/object:Gem::Version
-  version: '0.1'
+  version: '0.2'
 platform: ruby
 authors:
 - Philipp Kühl
@@ -9,7 +9,7 @@ authors:
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-26 00:00:00.000000000 Z
+date: 2021-12-23 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: card
@@ -33,6 +33,7 @@ extensions: []
 extra_rdoc_files: []
 files:
 - README.md
+- set/abstract/reflection.rb
 - set/all/list_changes.rb
 - set/type/mirror_list.rb
 - set/type/mirrored_list.rb
@@ -56,7 +57,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.2.28
+rubygems_version: 3.2.15
 signing_key:
 specification_version: 4
 summary: mirror