card 1.101.5 → 1.101.6

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

@@ -0,0 +1,78 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (ReferenceEvents)
+#
+# test for updating referer content
+module ReferenceEvents;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/reference_events.rb"; end
+event :prepare_referer_update, :validate, on: :update, changed: :name do
+  self.update_referers = ![nil, false, "false"].member?(update_referers)
+end
+
+# on rename, update names in cards that refer to self by name (as directed)
+event :update_referer_content, :finalize, on: :update, when: :update_referers do
+  referers.each do |card|
+    next if card.structure
+
+    card.skip_event! :validate_renaming, :check_permissions
+    card.content = card.replace_references name_before_act, name
+    attach_subcard card
+  end
+end
+
+# on rename, when NOT updating referer content, update references to ensure
+# that partial references are correctly tracked
+# 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,
+      changed: :name, on: :update, when: :not_update_referers do
+  referers.map(&:update_references_out)
+end
+
+# when name changes, update references to card
+event :refresh_references_in, :finalize, changed: :name, on: :save do
+  Reference.unmap_referees id if action == :update && !update_referers
+  Reference.map_referees key, id
+end
+
+# when content changes, update references to other cards
+event :refresh_references_out, :finalize, on: :save, changed: :content do
+  update_references_out
+end
+
+# clean up reference table when card is deleted
+event :clear_references, :finalize, on: :delete do
+  delete_references_out
+  Reference.unmap_referees id
+end
+
+# replace references in card content
+def replace_references old_name, new_name
+  cont = content_object
+  cont.find_chunks(:Reference).each do |chunk|
+    next unless replace_reference chunk, old_name, new_name
+  end
+  cont.to_s
+end
+
+protected
+
+def not_update_referers
+  !update_referers
+end
+
+private
+
+def replace_reference chunk, old_name, new_name
+  return unless (old = chunk.referee_name) && (new = old.swap old_name, new_name)
+
+  chunk.referee_name = chunk.replace_reference old_name, new_name
+  update_reference old.key, new.key
+end
+
+def update_reference old_key, new_key
+  Reference.where(referee_key: old_key).update_all referee_key: new_key
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/reference_events.rb ~~

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

@@ -24,8 +24,8 @@ module ClassMethods
   def real? mark
     quick_fetch(mark).present?
   end
-  alias exist? real?
-  alias exists? real?
+  alias_method :exist?, :real?
+  alias_method :exists?, :real?
 
   def known? mark
     fetch(mark).present?
@@ -78,8 +78,8 @@ 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?
+alias_method :new_card?, :new?
+alias_method :unreal?, :new?
 
 # has not been edited directly by human users.  bleep blorp.
 def pristine?

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

@@ -5,110 +5,10 @@ class Card; module Set; class All
 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 name.field(tag), opts
-end
-
-def subcard card_name
-  subcards.card card_name
-end
-
-def subfield field_name
-  subcards.field field_name
-end
-
-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
-
-# phase_method :attach_subcard, before: :store do |name_or_card, args=nil|
-# TODO: handle differently in different stages
-def add_subcard name_or_card, args={}
-  subcards.add name_or_card, args
-end
-alias_method :attach_subcard, :add_subcard
-
-def add_subcard! name_or_card, args={}
-  subcard = subcards.add name_or_card, args
-  subcard.director.reset_stage
-  subcard
-end
-alias_method :attach_subcard!, :add_subcard!
-
-# 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
-alias_method :add_subfield, :attach_subfield
-
-def attach_subfield! name_or_card, args={}
-  subcard = subcards.add_field name_or_card, args
-  subcard.director.reset_stage
-  subcard
-end
-
-def detach_subcard name_or_card
-  subcards.remove name_or_card
-end
-alias_method :remove_subcard, :detach_subcard
-
-def detach_subfield name_or_card
-  subcards.remove_field name_or_card
-end
-alias_method :remove_subfield, :detach_subfield
-
-def clear_subcards
-  subcards.clear
-end
-
-# ensures subfield is present
-# does NOT override subfield content if already present
-def ensure_subfield field_name, args={}
-  if subfield_present? field_name
-    subfield field_name
-  else
-    add_subfield field_name, args
-  end
-end
-
-def subfield_present? field_name
-  subfield(field_name)&.content&.present?
-end
-
-def deep_clear_subcards
-  subcards.deep_clear
-end
-
-def handle_subcard_errors
-  subcards.each do |subcard|
-    subcard.errors.each do |error|
-      subcard_error subcard, error
-    end
-    subcard.errors.clear
-  end
-end
-
-def subcard_error subcard, error
-  msg = error.message
-  msg = "#{error.attribute} #{msg}" unless %i[content abort].member? error.attribute
-  errors.add subcard.name.from(name), msg
-end
-
 event :reject_empty_subcards, :prepare_to_validate do
   subcards.each_with_key do |subcard, key|
     next unless subcard.new? && subcard.unfilled?
+
     remove_subcard(key)
     director.subdirectors.delete(subcard)
   end

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

@@ -36,15 +36,17 @@ module ClassMethods
     # TODO: handle cloud files
     return unless dir
 
-    trashed_card_ids = all_trashed_card_ids
-    file_ids = all_file_ids
-    file_ids.each do |file_id|
-      next unless trashed_card_ids.member?(file_id)
-      raise Card::Error, tr(:exception_almost_deleted) if Card.exists?(file_id)
-      ::FileUtils.rm_rf "#{dir}/#{file_id}", secure: true
+    (all_trashed_card_ids & all_file_ids).each do |file_id|
+      delete_files_with_id file_id
     end
   end
 
+  def delete_files_with_id file_id
+    raise Card::Error, t(:core_exception_almost_deleted) if Card.exists?(file_id)
+
+    ::FileUtils.rm_rf "#{dir}/#{file_id}", secure: true
+  end
+
   def all_file_ids
     dir = Card.paths["files"].existent.first
     Dir.entries(dir)[2..-1].map(&:to_i)
@@ -57,6 +59,10 @@ module ClassMethods
   end
 end
 
+# def trash?
+#   trash
+# end
+
 def delete args={}
   add_to_trash args do |delete_args|
     update delete_args
@@ -71,6 +77,7 @@ end
 
 def add_to_trash args
   return if new_card?
+
   yield args.merge trash: true
 end
 
@@ -83,6 +90,7 @@ end
 def pull_from_trash!
   return unless (id = Card::Lexicon.id key) # name is already known
   return unless (trashed_card = Card.where(id: id).take)&.trash
+
   # confirm name is actually in trash
 
   db_attributes["id"] = trashed_card.db_attributes["id"]
@@ -98,28 +106,26 @@ end
 
 event :validate_delete, :validate, on: :delete do
   unless codename.blank?
-    errors.add :delete, tr(:error_system_card, name: name, codename: codename)
+    errors.add :delete, t(:core_error_system_card, name: name, codename: codename)
   end
 
   undeletable_all_rules_tags =
     %w[default style layout create read update delete]
   # FIXME: HACK! should be configured in the rule
 
-  if junction? && left&.codename == :all &&
+  if compound? && left&.codename == :all &&
      undeletable_all_rules_tags.member?(right.codename.to_s)
-    errors.add :delete, tr(:error_indestructible, name: name)
+    errors.add :delete, t(:core_error_indestructible, name: name)
   end
 
-  errors.add :delete, tr(:error_user_edits, name: name) if account && has_edits?
+  errors.add :delete, t(:core_error_user_edits, name: name) if account && has_edits?
 end
 
 event :validate_delete_children, after: :validate_delete, on: :delete do
   return if errors.any?
-  each_child do |child|
-    next unless child
-    # prevents errors in cases where a child is deleted prior to this point
-    # and thus is not returned by the fetch in #children
 
+  each_child do |child|
+    child.include_set_modules
     delete_as_subcard child
     # next if child.valid?
     # child.errors.each do |field, message|

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

@@ -5,7 +5,6 @@ class Card; module Set; class All
 module Type;
 extend Card::Set
 def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/type.rb"; end
-
 module ClassMethods
   def default_type_id
     @@default_type_id ||= Card[:all].fetch(:default, skip_modules: true).type_id
@@ -14,6 +13,7 @@ end
 
 def type_card
   return if type_id.nil?
+
   Card.quick_fetch type_id.to_i
 end
 
@@ -36,7 +36,7 @@ def type_cardname
 end
 
 def type= type_name
-  self.type_id = Card.fetch_id type_name
+  self.type_id = type_name.card_id
 end
 
 def type_id= card_or_id
@@ -45,25 +45,25 @@ end
 
 def type_id_from_template
   return unless name && (t = template)
+
   reset_patterns # still necessary even with new template handling?
   self.type_id = t.type_id
 end
 
 event :validate_type_change, :validate, on: :update, changed: :type_id do
-  if (c = dup) && c.action == :create && !c.valid?
-    errors.add :type, tr(
-      :error_cant_change_errors,
-      name: name, type_id: type_id,
-      error_messages: c.errors.full_messages
-    )
-  end
+  return unless (c = dup) && c.action == :create && !c.valid?
+
+  errors.add :type, t(:core_error_cant_change_errors,
+                      name: name,
+                      type_id: type_id,
+                      error_messages: c.errors.full_messages)
 end
 
 event :validate_type, :validate, changed: :type_id, on: :save do
-  errors.add :type, tr(:error_no_such_type) unless type_name
+  errors.add :type, t(:core_error_no_such_type) unless type_name
 
   if (rt = structure) && rt.assigns_type? && type_id != rt.type_id
-    errors.add :type, tr(:error_hard_templated, name: name, type_name: rt.type_name)
+    errors.add :type, t(:core_error_hard_templated, name: name, type_name: rt.type_name)
   end
 end
 end;end;end;end;

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

@@ -48,7 +48,7 @@ module ClassMethods
 
   def resolve_file_attributes! attribs
     %i[image file].each do |attach|
-      next unless attribs[attach] && attribs[attach].is_a?(String)
+      next unless attribs[attach].is_a?(String)
 
       attribs[attach] = ::File.open(attribs[attach])
     end
@@ -94,7 +94,10 @@ def mod_root modname
   end
 end
 
+delegate :t, to: Cardio
+
 module Format; module_parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  delegate :t, to: Cardio
   delegate :measure, to: :card
 end
 end;end;end;end;

data/tmpsets/set/mod002-core/right/autoname.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+Autoname" cards
+#
+module Autoname;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/right/autoname.rb"; end
+def history?
+  false
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/right/autoname.rb ~~

data/tmpsets/set/{mod003-settings → mod002-core}/self/autoname.rb

@@ -4,9 +4,9 @@ class Card; module Set; class Self
 #
 module Autoname;
 extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/settings/set/self/autoname.rb"; end
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/self/autoname.rb"; end
 setting_opts group: :templating, position: 4,
              help_text: "Autogenerate name for new cards by incrementing this value. "\
                         "[[http://decko.org/autonaming|more]]"
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/settings/set/self/autoname.rb ~~
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/self/autoname.rb ~~

data/tmpsets/set/{mod001-admin → mod002-core}/self/trash.rb

@@ -4,7 +4,7 @@ class Card; module Set; class Self
 #
 module Trash;
 extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/trash.rb"; end
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/self/trash.rb"; end
 module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
   view :core do
     rows = trashed_cards.map { |tc| trash_table_row(tc) }
@@ -31,6 +31,7 @@ module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFo
   def restored
     return unless (res_id = Env.params[:restore]) &&
                   (res_card = Card[res_id.to_i])
+
     alert :success, true do
       wrap_with(:h5, "restored") + subformat(res_card).render_bar
     end
@@ -42,7 +43,7 @@ module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFo
       button_link("empty trash",
                   btn_type: :default,
                   path: { mark: :admin, action: :update, task: :empty_trash,
-                          success: { id: "~#{card.id}" } },
+                          success: { mark: "~#{card.id}" } },
                   "data-confirm" => "Are you sure you want to delete "\
                                     "all cards in the trash?")
     )
@@ -65,8 +66,8 @@ module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFo
                                action: :update,
                                restore: trashed_card.id,
                                action_ids: [before_delete],
-                               success: { id: "~#{card.id}" } }
+                               success: { mark: "~#{card.id}" } }
   end
 end
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/trash.rb ~~
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/self/trash.rb ~~

data/tmpsets/set/mod002-core/self/version.rb

@@ -3,11 +3,9 @@ class Card; module Set; class Self
 # Set: The card "Version"
 #
 # -*- encoding : utf-8 -*-
-
 module Version;
 extend Card::Set
 def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/self/version.rb"; end
-# require "card/version"
 
 def ok_to_read
   true
@@ -16,7 +14,5 @@ end
 def content
   Card::Version.release
 end
-
-# view :core, :raw
 end;end;end;end;
 # ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/self/version.rb ~~