card 1.101.7 → 1.102.0

data/tmpsets/set/mod026-follow/right/follow_fields.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+FollowFields" cards
+#
+module FollowFields;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/right/follow_fields.rb"; end
+event :follow_fields_changed, :integrate do
+  Card.follow_caches_expired
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/right/follow_fields.rb ~~

data/tmpsets/set/mod026-follow/right/followers.rb

@@ -0,0 +1,32 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+Followers" cards
+#
+# -*- encoding : utf-8 -*-
+
+module Followers;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/right/followers.rb"; end
+# X+*followers provides a list of all users following X.
+
+include_set Abstract::Pointer
+
+module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :core, cache: :never do
+    super()
+  end
+end
+
+def content
+  left ? item_names.to_pointer_content : ""
+end
+
+def item_names _args={}
+  left ? left.follow_set_card.prototype.follower_names : []
+end
+
+def virtual?
+  new?
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/right/followers.rb ~~

data/tmpsets/set/mod026-follow/right/following.rb

@@ -0,0 +1,59 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+Following" cards
+#
+module Following;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/right/following.rb"; end
+def virtual?
+  new?
+end
+
+module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :core do
+    if card.left && Auth.signed_in?
+      render_rule_editor
+    else
+      nest Card.fetch(card.name.left, :followers), view: :titled, items: { view: :link }
+    end
+  end
+
+  view :status do
+    if (rcard = current_follow_rule_card)
+      rcard.item_cards.map do |item|
+        %(<div class="alert alert-success" role="alert">
+          <strong>#{rcard.rule_set.follow_label}</strong>: #{item.title}
+         </div>)
+      end.join
+    else
+      "No following preference"
+    end
+  end
+
+  view :one_line_content do
+    ""
+  end
+
+  view :rule_editor, cache: :never do
+    rule_context = Card.fetch preference_name, new: { type_id: PointerID }
+    wrap_with :div, class: "edit-rule" do
+      follow_context = current_follow_rule_card || rule_context
+      subformat(follow_context).rule_form :open, rule_context, :modal
+    end
+  end
+
+  def preference_name
+    set_name = card.left.follow_set_card.name
+    Card::Name[set_name, Auth.current.name, :follow]
+  end
+
+  def edit_rule_success
+    { view: "status", id: card.name.url_key }
+  end
+
+  def current_follow_rule_card
+    card.left.preference :follow
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/right/following.rb ~~

data/tmpsets/set/mod026-follow/self/always.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Always"
+#
+module Always;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/always.rb"; end
+include_set Abstract::FollowOption
+
+follow_opts position: 2
+
+follow_test { |_follower_id, _accounted_ids| true }
+
+def title
+  "Following"
+end
+
+def label
+  "follow"
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/always.rb ~~

data/tmpsets/set/mod026-follow/self/created.rb

@@ -0,0 +1,28 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Created"
+#
+module Created;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/created.rb"; end
+include_set Abstract::FollowOption
+
+restrictive_follow_opts position: 1
+
+follower_candidate_ids do |card|
+  [card.creator_id]
+end
+
+def title
+  "Following content you created"
+end
+
+def label
+  "follow if I created"
+end
+
+def description set_card
+  "#{set_card.follow_label} I created"
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/created.rb ~~

data/tmpsets/set/mod026-follow/self/edited.rb

@@ -0,0 +1,29 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Edited"
+#
+module Edited;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/edited.rb"; end
+include_set Abstract::FollowOption
+
+restrictive_follow_opts position: 2
+
+follower_candidate_ids do |card|
+  # FIXME? - could optimize by not using cards table...
+  card.id ? Card.search(editor_of: card.id, return: :id) : []
+end
+
+def title
+  "Following content you edited"
+end
+
+def label
+  "follow if I edited"
+end
+
+def description set_card
+  "#{set_card.follow_label} I edited"
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/edited.rb ~~

data/tmpsets/set/mod026-follow/self/follow.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Follow"
+#
+module Follow;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow.rb"; end
+setting_opts group: :other, position: 7, rule_type_editable: false, preference: true
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow.rb ~~

data/tmpsets/set/mod026-follow/self/follow_defaults.rb

@@ -0,0 +1,98 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "FollowDefaults"
+#
+# DEPRECATED
+#
+# The card "*follow defaults"
+#
+# Despite its name, this card does not influence defaults for *follow rules.
+# What it does is provide a mechanism (with interface) for updating all users so that
+# they follow the items that are its content.
+#
+module FollowDefaults;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow_defaults.rb"; end
+# PLAN:
+# - actual defaults should be handled as much as possible with something like
+#   the *defaults rule
+# - on the *admin page, we can have a link so sharks can update all the pristine cards
+#   to use whatever the actual defaults representation is (see previous point)
+# - if you truly want to override existing follow rules, that may be monkey territory?
+# - we will delete "*follow defaults" after the above are completed
+
+event :update_follow_rules, :finalize, on: :save, when: :update_all_users do
+  Auth.as_bot do
+    Card.search(type: "user").each do |user|
+      follow_defaults.each do |set_card, option|
+        follow_rule = Card.fetch(set_card.follow_rule_name(user.name), new: {})
+        next unless follow_rule
+
+        follow_rule.drop_item "*never"
+        follow_rule.drop_item "*always"
+        follow_rule.add_item option
+        follow_rule.save!
+      end
+    end
+  end
+  Card.follow_caches_expired
+end
+
+def follow_defaults
+  item_names.map do |item|
+    if (set_card = Card.fetch item.to_name.left)&.type_code == :set
+      [set_card, follow_option(item)]
+    end
+  end.compact
+end
+
+def follow_option item
+  option_card =
+    Card.fetch(item.to_name.right) || Card[item.to_name.right.to_sym]
+  option_card.follow_option? ? option_card.name : "*always"
+end
+
+module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :edit, perms: :update, unknown: true do
+    frame_and_form :update, hidden: { card: { update_all_users: false } } do
+      [
+        _render_content_formgroups,
+        _render_confirm_update_all,
+        _render_edit_buttons
+      ]
+    end
+  end
+
+  view :edit_buttons do
+    button_formgroup do
+      [submit_and_update_button, simple_submit_button, cancel_to_edit_button]
+    end
+  end
+
+  def submit_and_update_button
+    submit_button text: "Submit and update all users",
+                  disable_with: "Updating", class: "follow-updater"
+  end
+
+  def simple_submit_button
+    button_tag "Submit", class: "follow"
+  end
+
+  def cancel_to_edit_button
+    cancel_button href: path(view: :edit, id: card.id)
+  end
+
+  view :confirm_update_all do
+    wrap do
+      alert "info" do
+        %(
+          <h1>Are you sure you want to change the default follow rules?</h1>
+          <p>You may choose to update all existing users.
+             This may take a while. </p>
+        )
+      end
+    end
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow_defaults.rb ~~

data/tmpsets/set/mod026-follow/self/follow_fields.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "FollowFields"
+#
+module FollowFields;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow_fields.rb"; end
+setting_opts group: :other, position: 5, rule_type_editable: false
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/follow_fields.rb ~~

data/tmpsets/set/mod026-follow/self/never.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Never"
+#
+module Never;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/self/never.rb"; end
+include_set Abstract::FollowOption
+
+follow_opts position: 3
+
+follow_test { |_follower_id, _accounted_ids| false }
+
+def title
+  "Ignoring"
+end
+
+def label
+  "ignore"
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/self/never.rb ~~

data/tmpsets/set/mod026-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/ezl5238/dev/decko/gem/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; module_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/ezl5238/dev/decko/gem/mod/follow/set/type/cardtype.rb ~~

data/tmpsets/set/mod026-follow/type/notification_template.rb

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type
+# Set: All "NotificationTemplate" cards
+#
+module NotificationTemplate;
+extend Card::Set
+def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/follow/set/type/notification_template.rb"; end
+card_reader :contextual_class
+card_reader :disappear
+card_reader :message
+
+def deliver context
+  success.flash alert_message(context)
+end
+
+def alert_message context
+  mcard = message.present? ? message_card : self
+  format(:html).alert_message context, mcard
+end
+
+module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def alert_message context, message_card
+    mformat = subformat message_card
+    alert card.alert_class, true, card.disappear? do
+      mformat.contextual_content context, view: alert_view(mformat)
+    end
+  end
+
+  def alert_view format
+    format.respond_to?(:notify) ? format.notify : :core
+  end
+end
+
+def disappear?
+  disappear.present? ? disappear_card.checked? : true
+end
+
+def alert_class
+  contextual_class.present? ? contextual_class_card.item_name : :success
+end
+end;end;end;end;
+# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/follow/set/type/notification_template.rb ~~

data/tmpsets/set/mod026-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/ezl5238/dev/decko/gem/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/ezl5238/dev/decko/gem/mod/follow/set/type/set.rb ~~