card 1.99.6 → 1.100.0

data/tmpsets/set/mod017-follow/type/cardtype.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "Cardtype" cards
+#
+module Cardtype;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/type/cardtype.rb"; end
+def follow_label
+  follow_set_card.follow_label
+end
+
+def followed_by? user_id=nil
+  follow_set_card.all_members_followed_by? user_id
+end
+
+def follow_set_card
+  Card.fetch name, :type
+end
+
+def list_direct_followers?
+  true
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def related_by_type_items
+    super.unshift ["#{card.name} cards", [card, :type, :by_name], mark: :absolute]
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/type/cardtype.rb ~~

data/tmpsets/set/mod017-follow/type/set.rb

@@ -0,0 +1,62 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "Set" cards
+#
+module Set;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/type/set.rb"; end
+event :cache_expired_for_new_set, :store, on: :create do
+  Card.follow_caches_expired
+end
+
+def list_direct_followers?
+  true
+end
+
+def follow_label
+  if (klass = subclass_for_set)
+    klass.short_label name.left_name
+  else
+    ""
+  end
+end
+
+def follow_rule_name user=nil
+  Card::Name[[name, user, :follow].compact]
+end
+
+def followed_by? user_id=nil
+  all_members_followed_by? user_id
+end
+
+def follow_set_card
+  self
+end
+
+def all_members_followed?
+  all_members_followed_by? Auth.current_id
+end
+
+def all_members_followed_by? user_id=nil
+  return false unless prototype.followed_by?(user_id)
+
+  directly_followed_by?(user_id) || broader_set_followed_by?(user_id)
+end
+
+def broader_set_followed_by? user_id
+  broader_sets.find do |set_name|
+    Card.fetch(set_name)&.directly_followed_by? user_id
+  end
+end
+
+def directly_followed?
+  directly_followed_by? Auth.current_id
+end
+
+def directly_followed_by? user_id=nil
+  return true if user_id && follow_rule?(user_id)
+
+  follow_rule?
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/type/set.rb ~~

data/tmpsets/set/mod017-follow/type/user.rb

@@ -0,0 +1,16 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "User" cards
+#
+module User;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/type/user.rb"; end
+def follow follow_name, option="*always"
+  return unless (follow_rule = Card.fetch(follow_name)&.follow_rule_card(name, new: {}))
+
+  follow_rule.drop_item "*never"
+  follow_rule.add_item option
+  follow_rule.save!
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/type/user.rb ~~

data/tmpsets/set/mod017-follow/type_plus_right/user/follow.rb

@@ -0,0 +1,86 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class TypePlusRight; module User;
+# Set: All "+Follow" cards on "User" cards
+#
+module Follow;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/type_plus_right/user/follow.rb"; end
+FOLLOW_TABS = { "Follow" => "follow_tab", "Ignore" => "ignore_tab" }.freeze
+
+# a virtual pointer to the sets that a user is following.
+# (data is stored in preferences: `[Set]+[User]+:follow`)
+
+include_set Abstract::Pointer
+def virtual?
+  new?
+end
+
+# overrides pointer default
+def item_names _args={}
+  if (user = left)
+    Card::Rule.preference_names user.name, "follow"
+  else
+    []
+  end
+end
+
+def suggestions
+  Card[:follow_suggestions]&.item_names || []
+end
+
+def current_user?
+  Auth.signed_in? && Auth.current_id == left.id
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :one_line_content do
+    ""
+  end
+
+  view :edit do
+    render :open
+  end
+
+  # renders follow tab and ignore tab
+  view :core do
+    tabs FOLLOW_TABS, "follow_tab", load: :lazy do
+      render_follow_tab
+    end
+  end
+
+  view :follow_tab, cache: :never do
+    haml :follow_editor, items_method: :following_rules_and_options
+  end
+
+  view :ignore_tab, cache: :never do
+    haml :follow_editor, items_method: :ignoring_rules_and_options
+  end
+
+  def show_button?
+    card.current_user? || Auth.always_ok?
+  end
+
+  def pointer_items args
+    voo.items[:view] ||= :link
+    super(args)
+  end
+
+  # TODO: research and generalize
+  # this does not look specific to following!
+  view :errors, perms: :none do
+    return unless card.errors.any?
+
+    if card.errors.find { |attrib, _msg| attrib == :permission_denied }
+      Env.save_interrupted_action(request.env["REQUEST_URI"])
+      voo.title = "Problems with #{card.name}"
+      class_up "d0-card-frame", "card card-warning card-inverse"
+      frame do
+        "Please #{link_to_card :signin, 'sign in'}" # " #{to_task}"
+      end
+    else
+      super()
+    end
+  end
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/type_plus_right/user/follow.rb ~~

data/tmpsets/set/mod017-follow/type_plus_right/user/follow/follow_editor_helper.rb

@@ -0,0 +1,130 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class TypePlusRight; module User;; module Follow;
+# Set: All "+FollowEditorHelper" cards on "User+Follow" cards (FollowEditorHelper)
+#
+# all the following methods are used to construct the Follow and Ignore tabs
+
+module FollowEditorHelper;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/type_plus_right/user/follow/follow_editor_helper.rb"; end
+# TODO: these object representations are complex enough for their own class
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  # constructs hash of rules/options for "Follow" tab
+  def following_rules_and_options &block
+    rule_opt_array = following_rule_options_hash.map do |key, val|
+      [(Card.fetch key, new: {}), val]
+    end
+    rules_and_options_by_set_pattern Hash[rule_opt_array], &block
+  end
+
+  # constructs hash of rules/options for "Ignore" tab
+  def ignoring_rules_and_options &block
+    rule_opts_hash = ignore_rules.each_with_object({}) do |rule, hash|
+      hash[rule] = [:never.cardname]
+    end
+    rules_and_options_by_set_pattern rule_opts_hash, &block
+  end
+
+  private
+
+  # all rules with ignore
+  def ignore_rules
+    never = :never.cardname.key
+    card.item_cards.select do |follow_rule|
+      follow_rule.item_names.select { |n| n.key == never }.any?
+    end
+  end
+
+  # @param rule_opts_hash [Hash] { rule1_card => rule1_follow_options }
+  # for each rule/option variant, yields with rule_card and option params
+  def rules_and_options_by_set_pattern rule_opts_hash
+    pattern_hash = a_set_pattern_hash rule_opts_hash
+    empty = true
+    Card.set_patterns.reverse.map do |pattern|
+      pattern_hash[pattern].each do |rule_card, options|
+        options.each do |option|
+          yield rule_card, option
+          empty = false
+        end
+      end
+    end
+    yield nil if empty
+  end
+
+  def a_set_pattern_hash rule_opts_hash
+    pattern_hash = Hash.new { |h, k| h[k] = [] }
+    rule_opts_hash.each do |rule_card, options|
+      pattern_hash[rule_card.rule_set.subclass_for_set] << [rule_card, options]
+    end
+    pattern_hash
+  end
+
+  # @return Hash # { rule1 => rule1_follow_options }
+  def following_rule_options_hash
+    merge_option_hashes current_following_rule_options_hash,
+                        suggested_following_rule_options_hash
+  end
+
+  # adds suggested follow options to existing rules where applicable
+  def merge_option_hashes current, suggested
+    current.each do |key, current_opt|
+      if (suggested_opt = suggested.delete(key))
+        current[key] = (current_opt + suggested_opt).uniq
+      end
+    end
+    current.merge suggested
+  end
+
+  # @return Hash # { existing_rule1 => rule1_follow_options } (excluding never)
+  # (*never is excluded because this list is for the Follow tab, and *never is
+  # handled under the Ignore tab)
+  def current_following_rule_options_hash
+    never = :never.cardname
+    card.item_cards.each_with_object({}) do |follow_rule, hash|
+      hash[follow_rule.key] = follow_rule.item_names.reject { |item| item == never }
+    end
+  end
+
+  # @return Hash # { suggested_rule1 => rule1_follow_options }
+  def suggested_following_rule_options_hash
+    return {} unless card.current_user?
+
+    card.suggestions.each_with_object({}) do |sug, hash|
+      set_card, opt = a_set_and_option_suggestion(sug) || a_set_only_suggestion(sug)
+      hash[set_card.follow_rule_name(card.trunk).key] = [opt]
+    end
+  end
+
+  # @param sug [String] follow suggestion
+  # @return [Array] set_card and option
+  # suggestion value contains both set and follow option
+  def a_set_and_option_suggestion sug
+    return unless (set_card = valid_set_card(sug.to_name.left))
+
+    [set_card, suggested_follow_option(sug.to_name.right)]
+  end
+
+  def suggested_follow_option name
+    # FIXME: option should be unambiguously name or codename
+    # (if codename use colon or Symbol)
+    option_card = Card.fetch(name) || Card[name.to_sym]
+    option_card&.follow_option? ? option_card.name : :always.cardname
+  end
+
+  # @param sug [String] follow suggestion
+  # @return [Array] set_card and option
+  # suggestion value contains only set (implies *always)
+  def a_set_only_suggestion sug
+    return unless (set_card = valid_set_card(sug))
+
+    yield set_card, :always.cardname
+  end
+
+  def valid_set_card name
+    card = Card.fetch(name)
+    card&.type_code == :set ? card : false
+  end
+end
+end;end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/type_plus_right/user/follow/follow_editor_helper.rb ~~

data/tmpsets/set/{mod014-developer → mod018-developer}/all/event_viz.rb

@@ -1,8 +1,7 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module EventViz; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
-require_dependency 'active_support/callbacks_ext'
-
+class Card; module Set; class All
+# Set: All cards (EventViz)
+#
 # the events method is a developer's tool for visualizing the event order
 # for a given card.
 # For example, from a console you might run
@@ -10,15 +9,19 @@ require_dependency 'active_support/callbacks_ext'
 #   puts mycard.events :update
 #
 # to see the order of events that will be executed on mycard.
+module EventViz;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/all/event_viz.rb"; end
 # The indention and arrows (^v) indicate event dependencies.
 #
 # Note: as of yet, the functionality is a bit rough.  It does not display events
 # that are called directly from within other events,
-# and certain event requirements (like the presence of a 'current_act') may
+# and certain event requirements (like the presence of an 'act') may
 # prevent events from showing up in the tree.
 def events action
   @action = action
-  events = Card::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
+  events =
+    ActManager::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
   @action = nil
   puts_events events
 end
@@ -53,7 +56,5 @@ def events_tree filt
 
   hash
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/all/event_viz.rb ~~

data/tmpsets/set/{mod014-developer → mod018-developer}/all/view_viz.rb

@@ -1,7 +1,11 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module ViewViz; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
-format :html do
+class Card; module Set; class All
+# Set: All cards (ViewViz)
+#
+module ViewViz;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/all/view_viz.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
   view :views_by_format do
     format_views =
       self.class.ancestors.each_with_object({}) do |format_class, hash|
@@ -24,7 +28,5 @@ format :html do
     list_group views
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/all/view_viz.rb ~~

data/tmpsets/set/{mod014-developer → mod018-developer}/right/debug.rb

@@ -1,28 +1,31 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Debug; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
+class Card; module Set; class Right
+# Set: All "+Debug" cards
+#
+module Debug;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/right/debug.rb"; end
 def virtual?
-  true
+  new?
 end
 
-format :html do
-  view :core do |_args|
-    subject = card.left
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :core do
+    core_section_config(card.left).map do |item|
+      section(*item)
+    end
+  end
 
-    output [
-      ["Sets",
-       static_tabs("set modules" => set_modules_accordion(subject),
+  def core_section_config subject
+    [["Sets", tabs("set modules" => set_modules_accordion(subject),
                    "all modules" => singleton_modules_list(subject),
-                   "patterns" => set_patterns_breadcrumb(subject))],
-      ["Views",
-       static_tabs("by format" => subformat(subject)._render_views_by_format,
-                   "by name" => subformat(subject)._render_views_by_name)],
-      ["Events",
-       static_tabs(create: "<pre>#{subject.events(:create)}</pre>",
-                   update: "<pre>#{subject.events(:update)}</pre>",
-                   delete: "<pre>#{subject.events(:delete)}</pre>")],
-      ["Cache/DB Comparison", cache_comparison_table(subject)]
-    ].map { |item| section(*item) }
+                   "patterns"    => set_patterns_breadcrumb(subject))],
+     ["Views", tabs("by format" => subformat(subject)._render_views_by_format,
+                    "by name" => subformat(subject)._render_views_by_name)],
+     ["Events", tabs(create: "<pre>#{subject.events(:create)}</pre>",
+                     update: "<pre>#{subject.events(:update)}</pre>",
+                     delete: "<pre>#{subject.events(:delete)}</pre>")],
+     ["Cache/DB Comparison", cache_comparison_table(subject)]]
   end
 
   # rubocop:disable AccessorMethodName
@@ -36,8 +39,8 @@ format :html do
   end
 
   def set_patterns_breadcrumb subject
-    links = subject.patterns.reverse.map { |pattern| card_link pattern.to_s }
-    breadcrumb(links)
+    links = subject.patterns.reverse.map { |pattern| link_to_card pattern.to_s }
+    breadcrumb links
   end
   # rubocop:enable AccessorMethodName
 
@@ -52,7 +55,7 @@ format :html do
     db_card    = Card.find_by_key(subject.key)
     return unless cache_card && db_card
     table(
-      [:name, :updated_at, :updater_id, :content, :inspect].map do |field|
+      %i[name updated_at updater_id content inspect].map do |field|
         [field.to_s,
          h(cache_card.send(field)),
          h(db_card.send(field))]
@@ -90,7 +93,5 @@ format :html do
     methods
   end
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/right/debug.rb ~~