card 1.97.0.1 → 1.98.0

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

@@ -0,0 +1,135 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Trash)
+#
+module Trash;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/trash.rb"; end
+Self::Admin.add_to_basket(
+  :tasks,
+  name: :empty_trash,
+  irreversible: true,
+  execute_policy: -> { Card.empty_trash },
+  stats: {
+    title: "trashed cards",
+    count: -> { Card.where(trash: true) },
+    link_text: "empty trash",
+    task: "empty_trash"
+  }
+)
+
+module ClassMethods
+  def empty_trash
+    Card.delete_trashed_files
+    Card.where(trash: true).delete_all
+    Card::Action.delete_cardless
+    Card::Change.delete_actionless
+    Card::Reference.unmap_if_referee_missing
+    Card::Reference.delete_if_referer_missing
+  end
+
+  # deletes any file not associated with a real card.
+  def delete_trashed_files
+    dir = Cardio.paths["files"].existent.first
+    # 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
+    end
+  end
+
+  def all_file_ids
+    dir = Card.paths["files"].existent.first
+    Dir.entries(dir)[2..-1].map(&:to_i)
+  end
+
+  def all_trashed_card_ids
+    trashed_card_sql = %( select id from cards where trash is true )
+    sql_results = Card.connection.select_all(trashed_card_sql)
+    sql_results.map(&:values).flatten.map(&:to_i)
+  end
+end
+
+def delete args={}
+  add_to_trash args do |delete_args|
+    update delete_args
+  end
+end
+
+def delete! args={}
+  add_to_trash args do |delete_args|
+    update! delete_args
+  end
+end
+
+def add_to_trash args
+  return if new_card?
+  yield args.merge trash: true
+end
+
+event :manage_trash, :prepare_to_store, on: :create do
+  pull_from_trash!
+  self.trash = false
+  true
+end
+
+def pull_from_trash!
+  return unless (trashed_card = Card.find_by_key_and_trash key, true)
+  # fwiw, now we _could_ get card using fetch look_in_trash: true (not tried).
+
+  self.id = trashed_card.id
+  # following is needed so that #id_in_database returns existing card id
+  # (and record is updated correctly)
+  db_attributes["id"] = trashed_card.db_attributes["id"]
+
+  @from_trash = true
+  @new_record = false
+end
+
+def db_attributes
+  send(:mutations_from_database).send :attributes
+end
+
+event :validate_delete, :validate, on: :delete do
+  unless codename.blank?
+    errors.add :delete, tr(: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 &&
+     undeletable_all_rules_tags.member?(right.codename.to_s)
+    errors.add :delete, tr(:error_indestructible, name: name)
+  end
+
+  errors.add :delete, tr(:error_user_edits, name: name) if account && has_edits?
+end
+
+event :validate_delete_children, after: :validate_delete, on: :delete do
+  return if errors.any?
+  children.each 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
+
+    delete_as_subcard child
+    # next if child.valid?
+    # child.errors.each do |field, message|
+    #   errors.add field, "can't delete #{child.name}: #{message}"
+    # end
+  end
+end
+
+def delete_as_subcard subcard
+  subcard.trash = true
+  add_subcard subcard
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/trash.rb ~~

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

@@ -1,10 +1,14 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Type; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/type.rb ~~
+class Card; module Set; class All
+# Set: All cards (Type)
+#
+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(trait: :default).type_id
+    @@default_type_id ||= Card[:all].fetch(trait: :default, skip_modules: true).type_id
   end
 end
 
@@ -21,18 +25,24 @@ def type_name
   type_card.try :name
 end
 
+alias_method :type, :type_name
+
 def type_name_or_default
   type_card.try(:name) || Card.quick_fetch(Card.default_type_id).name
 end
 
 def type_cardname
-  type_card.try :cardname
+  type_card.try :name
 end
 
 def type= type_name
   self.type_id = Card.fetch_id type_name
 end
 
+def type_known?
+  type_id.present?
+end
+
 def get_type_id_from_structure
   return unless name && (t = template)
   reset_patterns # still necessary even with new template handling?
@@ -41,20 +51,20 @@ end
 
 event :validate_type_change, :validate, on: :update, changed: :type_id do
   if (c = dup) && c.action == :create && !c.valid?
-    errors.add :type, "of #{name} can't be changed; errors creating new " \
-                      "#{type_id}: #{c.errors.full_messages * ', '}"
+    errors.add :type, tr(
+      :error_cant_change_errors,
+      name: name, type_id: type_id,
+      error_messages: c.errors.full_messages
+    )
   end
 end
 
-event :validate_type, :validate, changed: :type_id do
-  errors.add :type, "No such type" unless type_name
+event :validate_type, :validate, changed: :type_id, on: :save do
+  errors.add :type, tr(:error_no_such_type) unless type_name
 
   if (rt = structure) && rt.assigns_type? && type_id != rt.type_id
-    errors.add :type, "can't be changed because #{name} is hard templated " \
-                      "to #{rt.type_name}"
+    errors.add :type, tr(:error_hard_templated, name: name, type_name: rt.type_name)
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/type.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/type.rb ~~

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

@@ -0,0 +1,39 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (UpdateReadRules)
+#
+module UpdateReadRules;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/update_read_rules.rb"; end
+
+# FIXME: the following don't really belong here, but they have to come after
+# the reference stuff.  we need to organize a bit!
+
+event :update_rule_cache, :finalize, when: :is_rule? do
+  self.class.clear_rule_cache
+end
+
+def id_of_set_class set
+  set && (set_class = set.tag) && set_class.id
+end
+
+event :expire_related, :finalize do
+  subcards.keys.each do |key|
+    Card.cache.soft.delete key
+  end
+  expire # FIXME: where do we put this. Here it deletes @stage
+  reset_patterns
+  if is_structure?
+    structuree_names.each do |name|
+      Card.expire name
+    end
+  end
+end
+
+event :expire_related_names, before: :expire_related, changed: :name do
+  # FIXME: look for opportunities to avoid instantiating the following
+  descendants.each(&:expire)
+  name_referers.each(&:expire)
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/update_read_rules.rb ~~

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

@@ -0,0 +1,93 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Utils)
+#
+module Utils;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/utils.rb"; end
+module ClassMethods
+  def merge_list attribs, opts={}
+    unmerged = []
+    attribs.each do |row|
+      if merge row["name"], row, opts
+        Rails.logger.info "merged #{row['name']}"
+      else
+        unmerged.push row
+      end
+    end
+
+    if unmerged.empty?
+      Rails.logger.info "successfully merged all!"
+    else
+      unmerged_json = JSON.pretty_generate unmerged
+      report_unmerged_json unmerged_json, opts[:output_file]
+    end
+    unmerged
+  end
+
+  def report_unmerged_json unmerged_json, output_file
+    if output_file
+      ::File.open output_file, "w" do |f|
+        f.write unmerged_json
+      end
+    else
+      Rails.logger.info "failed to merge:\n\n#{unmerged_json}"
+    end
+  end
+
+  def merge name, attribs={}, opts={}
+    # puts "merging #{name}"
+    card = fetch name, new: {}
+    return unless mergeable? card, opts[:pristine]
+
+    resolve_file_attributes! attribs
+    card.safe_update! attribs
+  end
+
+  private
+
+  def resolve_file_attributes! attribs
+    %i[image file].each do |attach|
+      next unless attribs[attach] && attribs[attach].is_a?(String)
+
+      attribs[attach] = ::File.open(attribs[attach])
+    end
+  end
+
+  def mergeable? card, pristine_only
+    return true unless pristine_only
+
+    !card.pristine?
+  end
+end
+
+# separate name and other attributes
+def safe_update! attribs
+  separate_name_update! attribs.delete("name") unless new?
+  update! attribs if attribs.present?
+end
+
+def separate_name_update! new_name
+  return if new_name.to_s == name.to_s
+
+  update! name: new_name
+end
+
+# rubocop:disable Style/GlobalVars
+def measure desc
+  $times ||= {}
+  res = nil
+  t = Benchmark.measure do
+    res = yield
+  end
+  $times[desc] = $times.key?(desc) ? t + $times[desc] : t
+  puts "#{desc}: #{t}".red
+  res
+end
+# rubocop:enable Style/GlobalVars
+
+module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  delegate :measure, to: :card
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/utils.rb ~~

data/tmpsets/set/mod004-virtual/abstract/virtual_cache.rb

@@ -0,0 +1,52 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (VirtualCache)
+#
+# -*- encoding : utf-8 -*-
+module VirtualCache;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/virtual/set/abstract/virtual_cache.rb"; end
+
+def virtual?
+  true
+end
+
+def history?
+  false
+end
+
+def followable?
+  false
+end
+
+def db_content
+  Card::Virtual.fetch_content(self)
+end
+
+# called to refresh the virtual content
+# the default way is to use the card's template content
+def generate_virtual_content
+  template&.db_content
+end
+
+event :save_virtual_content, :prepare_to_store, on: :save, changed: :content do
+  Card::Virtual.create_or_update(self, attributes["db_content"])
+  abort :success
+end
+
+event :delete_virtual_content, :prepare_to_store, on: :delete do
+  Card::Virtual.find_by_card(self)&.delete
+  abort :success
+end
+
+def delete
+  # delete although it's new
+  update trash: true
+end
+
+def delete!
+  # delete although it's new
+  update! trash: true
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/virtual/set/abstract/virtual_cache.rb ~~

data/tmpsets/set/mod005-history/all/history.rb

@@ -0,0 +1,85 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (History)
+#
+# track history (acts, actions, changes) on this card
+module History;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/history/set/all/history.rb"; end
+def history?
+  true
+end
+
+# all cards whose acts are considered part of this card's history
+def history_card_ids
+  includee_ids << id
+end
+
+# ~~FIXME~~: optimize (no need to instantiate all actions and changes!)
+# Nothing is instantiated here. ActiveRecord is much smarter than you think.
+# Methods like #empty? and #size make sql queries if their receivers are not already
+# loaded -pk
+def first_change?
+  # = update or delete
+  @current_action.action_type != :create && action_count == 2 &&
+    create_action.card_changes.empty?
+end
+
+def first_create?
+  @current_action.action_type == :create && action_count == 1
+end
+
+def action_count
+  Card::Action.where(card_id: @current_action.card_id).count
+end
+
+# card has account that is responsible for prior acts
+def has_edits?
+  Card::Act.where(actor_id: id).where("card_id IS NOT NULL").present?
+end
+
+def changed_fields
+  Card::Change::TRACKED_FIELDS & (changed_attribute_names_to_save | saved_changes.keys)
+end
+
+def includee_ids
+  @includee_ids ||=
+    Card::Reference.select(:referee_id).where(
+      ref_type: "I", referer_id: id
+    ).pluck("referee_id").compact.uniq
+end
+
+def diff_args
+  { diff_format: :text }
+end
+
+# Delete all changes and old actions and make the last action the create action
+# (that way the changes for that action will be created with the first update)
+def make_last_action_the_initial_action
+  delete_all_changes
+  old_actions.delete_all
+  last_action.update! action_type: :create
+end
+
+def clear_history
+  delete_all_changes
+  delete_old_actions
+end
+
+def delete_old_actions
+  old_actions.delete_all
+end
+
+def delete_all_changes
+  Card::Change.where(card_action_id: all_action_ids).delete_all
+end
+
+def save_content_draft content
+  super
+  acts.create do |act|
+    act.ar_actions.build(draft: true, card_id: id, action_type: :update)
+       .card_changes.build(field: :db_content, value: content)
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/history/set/all/history.rb ~~