card 1.99.4 → 1.99.5

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

@@ -1,12 +0,0 @@
-# -*- 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

@@ -1,35 +0,0 @@
-# -*- 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
-  return "" unless left
-
-  item_names.map { |item| "[[#{item}]]" }.join "\n"
-end
-
-def item_names _args={}
-  return [] unless left
-  left.follow_set_card.prototype.follower_names
-end
-
-def virtual?
-  !real?
-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

@@ -1,59 +0,0 @@
-# -*- 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?
-  !real?
-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 :closed_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

@@ -1,22 +0,0 @@
-# -*- 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

@@ -1,28 +0,0 @@
-# -*- 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/follow.rb

@@ -1,11 +0,0 @@
-# -*- 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

@@ -1,97 +0,0 @@
-# -*- 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_formgroup,
-        _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

@@ -1,22 +0,0 @@
-# -*- 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 ~~

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

@@ -1,24 +0,0 @@
-# -*- 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
-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

@@ -1,62 +0,0 @@
-# -*- 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

@@ -1,16 +0,0 @@
-# -*- 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

@@ -1,89 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class TypePlusRight; module User;
-# Set: All "+Follow" cards on "User" cards
-#
-# a virtual pointer to the sets that a user is following.
-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
-# (data is stored in preferences: `[Set]+[User]+:follow`)
-
-include_set Abstract::Pointer
-def virtual?
-  !real?
-end
-
-# def content
-#   item_names.map { |name| "[[#{name}]]" }
-# end
-
-# overrides pointer default
-def item_names _args={}
-  if (user = left)
-    Card.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 :closed_content do
-    ""
-  end
-
-  view :edit do
-    render :open
-  end
-
-  # renders follow tab and ignore tab
-  view :core do
-    lazy_loading_tabs({ "follow_tab" => "Follow", "ignore_tab" => "Ignore" },
-                      "follow_tab") 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 ~~