card 1.99.6 → 1.100.0

data/tmpsets/set/mod008-pointer/abstract/code_pointer.rb

@@ -0,0 +1,44 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (CodePointer)
+#
+module CodePointer;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/abstract/code_pointer.rb"; end
+include_set Abstract::Pointer
+
+abstract_basket :item_codenames
+
+# simplify api
+# Self::MyCodePointerSet.add_item :my_item_codename
+# instead of
+# Self::MyCodePointerSet.add_to_basket :item_codenames, :my_item_codename
+module ClassMethods
+  def add_item codename
+    valid_codename codename do
+      add_to_basket :item_codenames, codename
+    end
+  end
+
+  def unshift_item codename
+    valid_codename codename do
+      unshift_basket :item_codenames, codename
+    end
+  end
+
+  def valid_codename codename
+    if Card::Codename.exist? codename
+      yield
+    else
+      Rails.logger.info "unknown codename '#{codename}' added to code pointer"
+    end
+  end
+end
+
+def content
+  item_codenames.map do |codename|
+    Card.fetch_name codename
+  end.compact.to_pointer_content
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/abstract/code_pointer.rb ~~

data/tmpsets/set/mod008-pointer/abstract/id_pointer.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (IdPointer)
+#
+# store items as ids, not names
+module IdPointer;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/abstract/id_pointer.rb"; end
+
+def standardize_item cardish
+  if (id = Card.fetch_id cardish)
+    "~#{id}"
+  else
+    Rails.logger.info "no id for '#{cardish}' added to id pointer"
+    nil
+  end
+end
+
+def item_ids args={}
+  item_strings(args).map do |item|
+    item = standardize_item item unless item.match?(/^~/)
+    item.to_s.tr("~", "").to_i
+  end.compact
+end
+
+def item_names args={}
+  item_ids(args).map(&:cardname).compact
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/abstract/id_pointer.rb ~~

data/tmpsets/set/mod008-pointer/right/content_options.rb

@@ -0,0 +1,13 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+ContentOptions" cards
+#
+module ContentOptions;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/right/content_options.rb"; end
+def default_limit
+  wql_limit = fetch_query.limit if respond_to?(:fetch_query)
+  wql_limit || 50
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/right/content_options.rb ~~

data/tmpsets/set/mod008-pointer/self/input_options.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "InputOptions"
+#
+module InputOptions;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/input_options.rb"; end
+include_set Abstract::Pointer
+
+basket :options
+add_to_basket :options, "radio"
+add_to_basket :options, "checkbox"
+add_to_basket :options, "select"
+add_to_basket :options, "multiselect"
+add_to_basket :options, "list"
+add_to_basket :options, "filtered list"
+
+def content
+  options.to_pointer_content
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/input_options.rb ~~

data/tmpsets/set/mod008-pointer/self/script_editors.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "ScriptEditors"
+#
+module ScriptEditors;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_editors.rb"; end
+include_set Abstract::CodePointer
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_editors.rb ~~

data/tmpsets/set/mod008-pointer/self/script_libraries.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "ScriptLibraries"
+#
+module ScriptLibraries;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_libraries.rb"; end
+include_set Abstract::CodePointer
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_libraries.rb ~~

data/tmpsets/set/mod008-pointer/self/script_mods.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "ScriptMods"
+#
+module ScriptMods;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_mods.rb"; end
+include_set Abstract::CodePointer
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_mods.rb ~~

data/tmpsets/set/mod008-pointer/self/script_pointer_config.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "ScriptPointerConfig"
+#
+module ScriptPointerConfig;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_pointer_config.rb"; end
+include_set Abstract::CodeFile
+
+FILE_NAMES = %w[pointer_config pointer_list_editor]
+
+def source_files
+  coffee_files FILE_NAMES
+end
+
+Self::ScriptEditors.add_item :script_pointer_config
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/script_pointer_config.rb ~~

data/tmpsets/set/mod008-pointer/self/style_libraries.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "StyleLibraries"
+#
+module StyleLibraries;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/style_libraries.rb"; end
+include_set Abstract::CodePointer
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/style_libraries.rb ~~

data/tmpsets/set/mod008-pointer/self/style_mods.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "StyleMods"
+#
+module StyleMods;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/self/style_mods.rb"; end
+include_set Abstract::CodePointer
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/self/style_mods.rb ~~

data/tmpsets/set/mod008-pointer/type/link_list.rb

@@ -0,0 +1,49 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "LinkList" cards
+#
+module LinkList;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/type/link_list.rb"; end
+include_set Abstract::Pointer
+
+def raw_item_strings content
+  reference_chunks(content).map(&:referee_name)
+end
+
+def item_titles default_to_name=true
+  reference_chunks.map do |chunk|
+    chunk.options[:title] || (default_to_name ? chunk.referee_name : nil)
+  end
+end
+
+module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  def chunk_list
+    :references
+  end
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def input_type
+    :link_list
+  end
+
+  view :link_list_input, cache: :never do
+    link_list_input
+  end
+
+  def items_for_input items=nil
+    items ||= card.item_names context: :raw
+    items.empty? ? [["", ""]] : items.zip(card.item_titles(false))
+  end
+
+  def link_list_input args={}
+    items = items_for_input args[:item_list]
+    extra_class = "pointer-link-list-ul"
+    ul_classes = classy "pointer-list-editor", extra_class
+    haml :link_list_input, items: items, ul_classes: ul_classes,
+                           options_card: options_card_name
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/type/link_list.rb ~~

data/tmpsets/set/mod008-pointer/type/list.rb

@@ -0,0 +1,25 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "List" cards
+#
+module List;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/type/list.rb"; end
+include_set Abstract::Pointer
+
+def each_reference_out
+  item_names.each do |name|
+    yield(name, Card::Content::Chunk::Link::CODE)
+  end
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :view_list do
+    %i[info_bar bar box closed titled labeled].map do |view|
+      voo.items[:view] = view
+      wrap_with :p, [content_tag(:h3, "#{view} items"), render_content]
+    end
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/type/list.rb ~~

data/tmpsets/set/mod008-pointer/type/mirror_list.rb

@@ -0,0 +1,102 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "MirrorList" cards
+#
+module MirrorList;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/type/mirror_list.rb"; end
+include_set Abstract::Pointer
+
+event :validate_listed_by_name, :validate, on: :save, changing: :name do
+  if !junction? || !right || right.type_id != Card::CardtypeID
+    errors.add :name, tr(: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: "#{Card[item].name}+#{left.type_name}",
+                   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
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/type/mirror_list.rb ~~

data/tmpsets/set/{mod016-standard/type/list.rb → mod008-pointer/type/mirrored_list.rb}

@@ -1,31 +1,33 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Type; module List; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/list.rb ~~
-include_set Pointer
+class Card; module Set; class Type
+# Set: All "MirroredList" cards
+#
+module MirroredList;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/pointer/set/type/mirrored_list.rb"; end
+include_set Abstract::Pointer
 
 event :validate_list_name, :validate, on: :save, changed: :name do
-  if !junction? || !right || right.type_id != CardtypeID
-    errors.add :name, "must have a cardtype name as right part"
-  end
+  errors.add :name, tr(: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_cardname.key != item_type_name.key
-    errors.add :name,
-               "name conflicts with list items' type; " \
-               "delete content first"
+    next unless item_card.type_name.key != item_type_name.key
+    errors.add :name, tr(: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_cardname.key != item_type_name.key
-    errors.add :content,
-               "#{item_card.name} has wrong cardtype; " \
-               "only cards of type #{cardname.right} are allowed"
+    next unless item_card.type_name.key != item_type_name.key
+    errors.add :content, tr(
+      :only_type_allowed,
+      cardname: item_card.name,
+      cardtype: name.right
+    )
   end
 end
 
@@ -35,7 +37,7 @@ event :create_listed_by_cards, :prepare_to_validate,
     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: ListedByID
+      add_subcard listed_by_name, type_id: Card::MirrorListID
     else
       Card[listed_by_name].update_references_out
     end
@@ -51,8 +53,8 @@ event :update_related_listed_by_card_on_content_update, :finalize,
       on: :update, changed: :content do
   new_items = item_keys
   changed_items =
-    if db_content_was
-      old_items = item_keys(content: db_content_was)
+    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
@@ -61,7 +63,7 @@ event :update_related_listed_by_card_on_content_update, :finalize,
 end
 
 event :update_related_listed_by_card_on_name_and_type_changes, :finalize,
-      on: :update, changed: [:name, :type_id] do
+      on: :update, changed: %i[name type_id] do
   update_all_items
 end
 
@@ -77,44 +79,43 @@ end
 
 def update_all_items
   current_items = item_keys
-  if db_content_was
-    old_items = item_keys(content: db_content_was)
+  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
+  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::ListedBy].exist? key
-    if (card = Card.fetch(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::ListedBy].delete key
+      Card::Cache[Card::Set::Type::MirrorList].delete key
     end
   end
 end
 
 def item_type
-  cardname.right
+  name.right
 end
 
 def item_type_name
-  cardname.right_name
+  name.right_name
 end
 
 def item_type_card
-  cardname.right
+  name.right
 end
 
 def item_type_id
   right.id
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/list.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/pointer/set/type/mirrored_list.rb ~~