card 1.99.6 → 1.100.0

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

@@ -0,0 +1,127 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Right
+# Set: All "+Follow" cards
+#
+# The Right::Follow set configures follow preferences (`[Set]+[User]+:follow`)
+# While the user follow dashboard ([User]+:follow`) is also in this Set, its
+module Follow;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/right/follow.rb"; end
+# customizations are handled in TypePlusRight::User::Follow
+
+event :cache_expired_for_new_preference, :integrate, when: :is_preference? do
+  Card.follow_caches_expired
+end
+
+def option_cards
+  Card::FollowOption.cards.compact
+end
+
+def options_rule_card
+  Card.new(
+    name: "follow_options_card",
+    type_code: :pointer,
+    content: option_cards.map { |oc| "[[#{oc.name}]]" }.join("\n")
+  )
+end
+
+def add_follow_item? condition
+  new_card? || !include_item?(condition)
+end
+
+def ok_to_update
+  permit :update
+end
+
+def ok_to_create
+  permit :create
+end
+
+def ok_to_delete
+  permit :delete
+end
+
+def permit action, verb=nil
+  if %i[create delete update].include?(action) && allowed_to_change_follow_status?
+    true
+  else
+    super action, verb
+  end
+end
+
+def allowed_to_change_follow_status?
+  Auth.signed_in? &&
+    ((user = rule_user) && Auth.current_id == user.id) || Auth.always_ok?
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  # shows a follow item link for each of the current follow options
+  view :follow_status, cache: :never do
+    wrap { haml :follow_status }
+  end
+
+  # interface to view/alter a specific rule option
+  view :follow_item, cache: :never do
+    follow_item Env.params[:condition]
+  end
+
+  def follow_item condition, button=true
+    condition ||= "*always"
+    wrap do
+      card_form action: :update, success: { view: :follow_item } do
+        [
+          follow_item_hidden_tags(condition),
+          (follow_item_button(condition) if button),
+          follow_item_link(condition)
+        ].compact
+      end
+    end
+  end
+
+  def rule_form_args
+    super.merge "data-update-foreign-slot": ".card-slot.follow_section-view"
+  end
+
+  private
+
+  def follow_item_hidden_tags condition
+    condkey = card.add_follow_item?(condition) ? :add_item : :drop_item
+    hidden_tags condition: condition, condkey => condition
+  end
+
+  def follow_item_button condition
+    action = card.add_follow_item?(condition) ? :add : :delete
+    button_tag type: :submit, "aria-label": "Left Align",
+               class: "btn-sm btn-item #{follow_item_button_class action}" do
+      follow_item_icon action
+    end
+  end
+
+  def follow_item_button_class action
+    action == :add ? "btn-item-add" : "btn-item-delete btn-primary"
+  end
+
+  def follow_item_icon action
+    icon_tag(action == :add ? :add : :check)
+  end
+
+  def follow_item_link condition
+    link_to_card follow_item_link_target, follow_item_link_text(condition)
+  end
+
+  def follow_item_link_target
+    set = card.rule_set
+    setname = set.name
+    set.tag.codename == :self ? setname.left : setname.field("by name")
+  end
+
+  def follow_item_link_text condition
+    if (option_card = Card.fetch condition)
+      option_card.description card.rule_set
+    else
+      card.rule_set.follow_label
+    end
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/right/follow.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/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/ethan/dev/decko/gem/card/mod/follow/set/right/follow_fields.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/mod/follow/set/right/followers.rb"; end
+# X+*followers provides a list of all users following X.
+
+include_set Abstract::Pointer
+
+module HtmlFormat; 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/ethan/dev/decko/gem/card/mod/follow/set/right/followers.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/mod/follow/set/right/following.rb"; end
+def virtual?
+  new?
+end
+
+module HtmlFormat; 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.rule_card :follow, user: Auth.current
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/follow/set/right/following.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/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/ethan/dev/decko/gem/card/mod/follow/set/self/always.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/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/ethan/dev/decko/gem/card/mod/follow/set/self/created.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/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/ethan/dev/decko/gem/card/mod/follow/set/self/edited.rb ~~

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

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

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

@@ -0,0 +1,97 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "FollowDefaults"
+#
+# DEPRECATED
+#
+# Despite its name (*follow defaults)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.
+#
+# PLAN:
+module FollowDefaults;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/follow/set/self/follow_defaults.rb"; end
+# - 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; 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: { success: "_self",
+                                      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/ethan/dev/decko/gem/card/mod/follow/set/self/follow_defaults.rb ~~

data/tmpsets/set/mod017-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/ethan/dev/decko/gem/card/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/ethan/dev/decko/gem/card/mod/follow/set/self/never.rb ~~