card 1.97.0.1 → 1.98.0

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

@@ -1,7 +1,11 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Rules; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/rules.rb ~~
+class Card; module Set; class All
+# Set: All cards (Rules)
+#
 # frozen_string_literal: true
+module Rules;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/rules.rb"; end
 
 RULE_SQL = %(
   SELECT
@@ -70,14 +74,15 @@ def is_standard_rule?
     l.type_id == Card::SetID
 end
 
+# TODO: abstract so account doesn't have to have User type.
 def is_preference?
-  cardname.parts.length > 2 &&
+  name.parts.length > 2 &&
     (r = right(skip_modules: true)) &&
     r.type_id == Card::SettingID &&
     (set = self[0..-3, skip_modules: true]) &&
     set.type_id == Card::SetID &&
     (user = self[-2, skip_modules: true]) &&
-    (user.type_id == Card::UserID || user.codename == "all")
+    (user.type_id == Card::UserID || user.codename == :all)
 end
 
 def rule setting_code, options={}
@@ -106,9 +111,7 @@ def rule_card_id setting_code, options={}
 end
 
 def preference_card_id_lookups setting_code, options={}
-  user_id = options[:user_id] ||
-            (options[:user] && options[:user].id) ||
-            Auth.current_id
+  user_id = options[:user_id] || options[:user]&.id || Auth.current_id
   return unless user_id
   ["#{setting_code}+#{AllID}", "#{setting_code}+#{user_id}"]
 end
@@ -124,7 +127,7 @@ def related_sets with_self=false
     sets << ["#{name}+*type", Card::Set::Type.label(name)]
   end
   sets << ["#{name}+*self", Card::Set::Self.label(name)] if with_self
-  if known? && cardname.simple?
+  if known? && name.simple?
     sets << ["#{name}+*right", Card::Set::Right.label(name)]
   end
   sets
@@ -149,22 +152,16 @@ module ClassMethods
     end
   end
 
-  def path_setting name # shouldn't this be in location helper?
-    name ||= "/"
-    return name if name =~ /^(http|mailto)/
-    "#{Card.config.relative_url_root}#{name}"
-  end
-
   def toggle val
     val.to_s.strip == "1"
   end
 
   def rule_cache_key row
-    return false unless (setting_code = Codename[row["setting_id"].to_i])
+    return false unless (setting_code = Card::Codename[row["setting_id"].to_i])
 
     anchor_id = row["anchor_id"]
     set_class_id = anchor_id.nil? ? row["set_id"] : row["set_tag_id"]
-    return false unless (set_class_code = Codename[set_class_id.to_i])
+    return false unless (set_class_code = Card::Codename[set_class_id.to_i])
 
     [anchor_id, set_class_code, setting_code].compact.map(&:to_s) * "+"
   end
@@ -198,10 +195,10 @@ module ClassMethods
   def all_user_ids_with_rule_for set_card, setting_code
     key =
       if (l = set_card.left) && (r = set_card.right)
-        set_class_code = Codename[r.id]
+        set_class_code = Card::Codename[r.id]
         "#{l.id}+#{set_class_code}+#{setting_code}"
       else
-        set_class_code = Codename[set_card.id]
+        set_class_code = Card::Codename[set_card.id]
         "#{set_class_code}+#{setting_code}"
       end
     user_ids = user_ids_cache[key] || []
@@ -218,8 +215,7 @@ module ClassMethods
         left: {
           left: { type_id: SetID }, right: user_name
         },
-        return: :name
-      }, "preference cards for user: #{user_name}"
+        return: :name }, "preference cards for user: #{user_name}"
     )
   end
 
@@ -305,7 +301,5 @@ module ClassMethods
     Card.cache.write "READRULES", nil
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/rules.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/rules.rb ~~

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

@@ -0,0 +1,26 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Stages)
+#
+module Stages;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/stages.rb"; end
+attr_writer :director
+delegate :act_manager, to: :director
+
+def director
+  @director ||= Card::ActManager.fetch self
+end
+
+def identify_action
+  @action =
+    if trash && trash_changed?
+      :delete
+    elsif new_card?
+      :create
+    else
+      :update
+    end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/stages.rb ~~

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

@@ -0,0 +1,91 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (States)
+#
+# All cards have one (and only one) of these three states: real, virtual, and unknown.
+#
+# - *real* cards are stored in the database (but not in the trash) and have a unique id.
+# - *virtual* cards are not real, but they act real based on rules. For example,
+#   Home+*editors does a search for all the users who have edited the "Home" card.
+#   There are many other similar cards that search for things like references, children,
+#   etc. But we don't store all these cards in the database; we generate them dynamically
+module States;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/states.rb"; end
+#   based on the names.
+# - *unknown* cards are everything else.
+#
+# These states are frequently grouped as follows:
+#
+# - *known* cards are either _real_ or _virtual_
+# - *new* (or *unreal*) cards are either _unknown_ or _virtual_
+
+module ClassMethods
+  def real? mark
+    quick_fetch(mark).present?
+  end
+  alias exist? real?
+  alias exists? real?
+
+  def known? mark
+    fetch(mark).present?
+  end
+end
+
+# @return [Symbol] :real, :virtual, or :unknown
+def state anti_fishing=true
+  case
+  when !known?                     then :unknown
+  when anti_fishing && !ok?(:read) then :unknown
+  when real?                       then :real
+  when virtual?                    then :virtual
+  else :wtf
+  end
+end
+
+# @return [True/False]
+def real?
+  !unreal?
+end
+
+# Virtual cards are structured, compound cards that are not stored in the database. You
+# can create virtual cards with structure rules.
+#
+# Some cards with hard-coded content will also override the #virtual? method. This
+# is established practice, but it is NOT advisable to override any of the other
+# state methods.
+#
+# @return [True/False]
+def virtual?
+  if @virtual.nil?
+    @virtual = real? || name.simple? ? false : structure.present?
+  end
+  @virtual
+end
+
+# @return [True/False]
+def unknown?
+  !known?
+end
+
+# @return [True/False]
+def known?
+  real? || virtual?
+end
+
+# @return [True/False]
+def new?
+  new_record? ||       # not yet in db (from ActiveRecord)
+    !@from_trash.nil?  # in process of restoration from trash
+end
+alias new_card? new?
+alias unreal? new?
+
+# has not been edited directly by human users.  bleep blorp.
+def pristine?
+  new_card? || !actions.joins(:act).where(
+    "card_acts.actor_id != ?", Card::WagnBotID
+  ).exists?
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/states.rb ~~

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

@@ -1,8 +1,12 @@
 # -*- 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 ~~
+class Card; module Set; class All
+# Set: All cards (Subcards)
+#
+module Subcards;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/subcards.rb"; end
 def field tag, opts={}
-  Card.fetch cardname.field(tag), opts
+  Card.fetch name.field(tag), opts
 end
 
 def subcard card_name
@@ -13,7 +17,28 @@ def subfield field_name
   subcards.field field_name
 end
 
-# phase_method :add_subcard, before: :store do |name_or_card, args=nil|
+def field? tag
+  field(tag) || subfield(tag)
+end
+
+def subcards
+  @subcards ||= Card::Subcards.new self
+end
+
+def subcards?
+  subcards.present?
+end
+
+def expire_subcards
+  subcards.clear
+end
+
+def save_as_subcard!
+  self.only_storage_phase = true
+  save! validate: false
+end
+
+# phase_method :attach_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
@@ -26,7 +51,7 @@ def attach_subcard! name_or_card, args={}
   subcard
 end
 
-# phase_method :add_subfield, before: :approve do |name_or_card, args=nil|
+# phase_method :attach_subfield, before: :approve do |name_or_card, args=nil|
 def attach_subfield name_or_card, args={}
   subcards.add_field name_or_card, args
 end
@@ -52,34 +77,34 @@ def clear_subcards
   subcards.clear
 end
 
-def deep_clear_subcards
-  subcards.deep_clear
+def subfield_present? field_name
+  (field_card = subfield(field_name)) && field_card.content.present?
 end
 
-def unfilled?
-  (content.empty? || content.strip.empty?) &&
-    (comment.blank? || comment.strip.blank?) &&
-    !subcards.present?
+def deep_clear_subcards
+  subcards.deep_clear
 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
+      subcard_error subcard, field, err
     end
+    subcard.errors.clear
   end
 end
 
+def subcard_error subcard, field, err
+  err = "#{field} #{err}" unless %i[content abort].member? field
+  errors.add subcard.name.from(name), err
+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
+    next unless subcard.new? && subcard.unfilled?
+    remove_subcard(key)
+    director.subdirectors.delete(subcard)
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/subcards.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/subcards.rb ~~

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

@@ -0,0 +1,59 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Tabs)
+#
+module Tabs;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/tabs.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :tabs do
+    construct_tabs "tabs"
+  end
+
+  def construct_tabs tab_type
+    tabs = { active: {}, paths: {} }
+    voo.items[:view] ||= :content
+    card.each_item_name_with_options(_render_raw) do |name, options|
+      construct_tab tabs, name, options
+    end
+    lazy_loading_tabs tabs[:paths], tabs[:active][:name],
+                      tabs[:active][:content], type: tab_type
+  end
+
+  def construct_tab tabs, name, explicit_options
+    tab_options = item_view_options explicit_options
+    tabs[:paths][name] = {
+      title: nest(name, view: :title, title: tab_options[:title]),
+      path: nest_path(name, tab_options).html_safe
+    }
+    return unless tabs[:active].empty?
+    tabs[:active] = { name: name, content: nest(name, tab_options) }
+  end
+
+  # def tab_title title, name
+  #   return name unless title
+  #   name.to_name.title title, @context_names
+  # end
+
+  view :pills do
+    construct_tabs "pills"
+  end
+
+  view :tabs_static do
+    construct_static_tabs "tabs"
+  end
+
+  view :pills_static do
+    construct_static_tabs "pills"
+  end
+
+  def construct_static_tabs tab_type
+    tabs = {}
+    card.item_cards.each do |item|
+      tabs[item.name] = nest item, item_view_options(args)
+    end
+    static_tabs tabs, tab_type
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/tabs.rb ~~

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

@@ -1,13 +1,21 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Templating; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/templating.rb ~~
+class Card; module Set; class All
+# Set: All cards (Templating)
+#
+module Templating;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/templating.rb"; end
 
 def is_template?
-  cardname.trait_name? :structure, :default
+  return @is_template unless @is_template.nil?
+
+  @is_template = name.trait_name? :structure, :default
 end
 
 def is_structure?
-  cardname.trait_name? :structure
+  return @is_structure unless @is_structure.nil?
+
+  @is_structure = name.trait_name? :structure
 end
 
 def template
@@ -24,11 +32,15 @@ def template
   end
 end
 
+def default_type_id default_card=nil
+  default_card ? default_card.type_id : Card.default_type_id
+end
+
 def new_card_template
   default = rule_card :default, skip_modules: true
 
   dup_card = dup
-  dup_card.type_id = default ? default.type_id : Card.default_type_id
+  dup_card.type_id = default_type_id default
 
   if (structure = dup_card.structure_rule_card)
     @virtual = true if junction?
@@ -48,10 +60,9 @@ def assigns_type?
   # needed because not all *structure templates govern the type of set members
   # for example, X+*type+*structure governs all cards of type X,
   # but the content rule does not (in fact cannot) have the type X.
-  return unless (set_pattern = Card.fetch cardname.trunk_name.tag_name,
-                                          skip_modules: true)
-  return unless (pattern_code = set_pattern.codename)
-  return unless (set_class = Set::Pattern.find pattern_code)
+  pattern_code = Card.quick_fetch(name.trunk_name.tag_name)&.codename
+  return unless pattern_code && (set_class = Set::Pattern.find pattern_code)
+
   set_class.assigns_type
 end
 
@@ -60,19 +71,10 @@ def structure
   template
 end
 
-def virtual?
-  return false unless new_card?
-  if @virtual.nil?
-    cardname.simple? ? (@virtual = false) : template
-  end
-  @virtual
-end
-
 def structure_rule_card
-  card = rule_card :structure, skip_modules: true
-  card && card.db_content.strip == "_self" ? nil : card
-end
+  return unless (card = rule_card :structure, skip_modules: true)
 
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/templating.rb ~~
+  card.db_content&.strip == "_self" ? nil : card
+end
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/templating.rb ~~