card 1.91 → 1.92

data/tmpsets/set/mod012-settings/self/follow_fields.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module FollowFields; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/follow_fields.rb ~~
+extend Card::Setting
+setting_opts group: :other, position: 5, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/follow_fields.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/help.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Help; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/help.rb ~~
+extend Card::Setting
+setting_opts group: :editing_cue, position: 1, rule_type_editable: true
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/help.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/input.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Input; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/input.rb ~~
+extend Card::Setting
+setting_opts group: :pointer, position: 3,
+             restricted_to_type: [:pointer, :session],
+             rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/input.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/layout.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Layout; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/layout.rb ~~
+extend Card::Setting
+setting_opts group: :webpage, position: 3, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/layout.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/on_create.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module OnCreate; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_create.rb ~~
+extend Card::Setting
+setting_opts group: :event, position: 1, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_create.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/on_delete.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module OnDelete; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_delete.rb ~~
+extend Card::Setting
+setting_opts group: :event, position: 3, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_delete.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/on_update.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module OnUpdate; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_update.rb ~~
+extend Card::Setting
+setting_opts group: :event, position: 2, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/on_update.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/options.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Options; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/options.rb ~~
+extend Card::Setting
+setting_opts group: :pointer, position: 1,
+             restricted_to_type: [:pointer, :session],
+             rule_type_editable: true
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/options.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/options_label.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module OptionsLabel; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/options_label.rb ~~
+extend Card::Setting
+setting_opts group: :pointer, position: 2,
+             restricted_to_type: [:pointer, :session],
+             rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/options_label.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/read.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Read; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/read.rb ~~
+extend Card::Setting
+setting_opts group: :permission, position: 2, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/read.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/recent_settings.rb

@@ -0,0 +1,10 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module RecentSettings; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/recent_settings.rb ~~
+def followable?
+  false
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/recent_settings.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/script.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Script; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/script.rb ~~
+extend Card::Setting
+setting_opts group: :webpage, position: 5
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/script.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/structure.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Structure; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/structure.rb ~~
+extend Card::Setting
+setting_opts group: :templating, position: 2, rule_type_editable: true
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/structure.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/style.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Style; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/style.rb ~~
+extend Card::Setting
+setting_opts group: :webpage, position: 4
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/style.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/table_of_contents.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module TableOfContents; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/table_of_contents.rb ~~
+extend Card::Setting
+setting_opts group: :other, position: 1, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/table_of_contents.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/thanks.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Thanks; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/thanks.rb ~~
+extend Card::Setting
+setting_opts group: :other, position: 3, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/thanks.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/self/update.rb

@@ -0,0 +1,9 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Update; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/update.rb ~~
+extend Card::Setting
+setting_opts group: :permission, position: 3, rule_type_editable: false
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/self/update.rb ~~
+end;end;end;end;

data/tmpsets/set/mod012-settings/type/setting.rb

@@ -0,0 +1,111 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Setting; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/type/setting.rb ~~
+require_dependency "json"
+
+def self.member_names
+  @@member_names ||= begin
+    Card.search(
+      { type_id: SettingID, return: "key" },
+      "all setting cards"
+    ).each_with_object({}) do |card_key, hash|
+      hash[card_key] = true
+    end
+  end
+end
+
+format :data do
+  view :core do |_args|
+    wql = { left:  { type: Card::SetID },
+            right: card.id,
+            limit: 0 }
+    Card.search(wql).compact.map { |c| nest c }
+  end
+end
+
+def set_classes_with_rules
+  Card.set_patterns.reverse.map do |set_class|
+    wql = { left:  { type: Card::SetID },
+            right: id,
+            # sort:  'content',
+
+            sort:  %w(content name),
+            limit: 0 }
+    wql[:left][(set_class.anchorless? ? :id : :right_id)] = set_class.pattern_id
+
+    rules = Card.search wql
+    [set_class, rules] unless rules.empty?
+  end.compact
+end
+
+format do
+  def duplicate_check rules
+    previous_content = nil
+    rules.each do |rule|
+      current_content = rule.db_content.strip
+      duplicate = previous_content == current_content
+      changeover = previous_content && !duplicate
+      previous_content = current_content
+      yield rule, duplicate, changeover
+    end
+  end
+
+  view :core do |args|
+    render_haml args: args do
+      <<-'HAML'.strip_heredoc
+        = _render_rule_help args
+        %table.setting-rules
+          %tr
+            %th Set
+            %th Rule
+          - card.set_classes_with_rules.each do |klass, rules|
+            %tr.klass-row
+              %td{class: ['setting-klass', "anchorless-#{klass.anchorless?}"]}
+                = klass.anchorless? ? card_link(klass.pattern) : klass.pattern
+              %td.rule-content-container
+                %span.closed-content.content
+                  - if klass.anchorless?
+                    = subformat(rules[0])._render_closed_content
+            - if !klass.anchorless?
+              - duplicate_check(rules) do |rule, duplicate, changeover|
+                %tr{class: ('rule-changeover' if changeover)}
+                  %td.rule-anchor
+                    = card_link rule.cardname.trunk_name,
+                                text: rule.cardname.trunk_name.trunk_name
+                  - if duplicate
+                    %td
+                  - else
+                    %td.rule-content-container
+                      %span.closed-content.content
+                        = subformat(rule)._render_closed_content
+      HAML
+    end
+  end
+
+  view :rule_help do |_args|
+    <<-HTML
+      <div class="alert alert-info">
+        #{process_content '{{+*right+*help|content}}'}
+      </div>
+    HTML
+  end
+
+  view :closed_content do |_args|
+    render_rule_help
+  end
+end
+
+format :json do
+  view :export_items do |_args|
+    wql = { left:  { type: Card::SetID },
+            right: card.id,
+            limit: 0 }
+    Card.search(wql).compact.map do |rule|
+      subformat(rule).render_export
+    end.flatten
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/settings/set/type/setting.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/all/email_html.rb

@@ -0,0 +1,11 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module EmailHtml; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/email_html.rb ~~
+format :email_html do
+  view :missing        do |_args| "" end
+  view :closed_missing do |_args| "" end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/email_html.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/all/email_text.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module EmailText; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/email_text.rb ~~
+
+format :email_text do
+  view :missing        do |_args| "" end
+  view :closed_missing do |_args| "" end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/email_text.rb ~~
+end;end;end;end;

data/tmpsets/set/mod013-email/all/follow.rb

@@ -0,0 +1,253 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Follow; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/follow.rb ~~
+card_accessor :followers
+
+FOLLOWER_IDS_CACHE_KEY = "FOLLOWER_IDS".freeze
+
+# FIXME: this should be in type/set
+event :cache_expired_for_new_set, :store,
+      on: :create,
+      when: proc { |c| c.type_id == Card::SetID } do
+  Card.follow_caches_expired
+end
+
+event :cache_expired_for_type_change, :store,
+      on: :update, changed: [:type_id, :name] do
+  # FIXME: expire (also?) after save
+  Card.follow_caches_expired
+end
+
+event :cache_expired_for_new_preference, :integrate,
+      when: proc { |c| c.follow_rule_card? }  do
+  Card.follow_caches_expired
+end
+
+format do
+  def follow_link_hash args
+    toggle = args[:toggle] || (card.followed? ? :off : :on)
+    hash = { class: "follow-toggle-#{toggle}" }
+    these_emails = "emails about changes to #{card.follow_label}"
+    case toggle
+    when :off
+      hash[:content] = "*never"
+      hash[:title]   = "stop sending #{these_emails}"
+      hash[:verb]    = "unfollow"
+    when :on
+      hash[:content] = "*always"
+      hash[:title]   = "send #{these_emails}"
+      hash[:verb]    = "follow"
+    end
+    set_card = card.default_follow_set_card
+    hash[:path] = path(
+      name: set_card.follow_rule_name(Auth.current.name),
+      action: :update,
+      success: { layout: :modal, view: :follow_status },
+      card: { content: "[[#{hash[:content]}]]" }
+    )
+    hash
+  end
+end
+
+format :json do
+  view :follow_status do |args|
+    follow_link_hash args
+  end
+end
+
+format :html do
+  view :follow_link, tags: :unknown_ok, perms: :none do |args|
+    hash = follow_link_hash args
+    text = args[:icon] ? glyphicon("flag") : ""
+    span_attrs = "follow-verb menu-item-label"
+    text += %(<span class="#{span_attrs}">#{hash[:verb]}</span>).html_safe
+    # follow_rule_card = Card.fetch(
+    #   card.default_follow_set_card.follow_rule_name(Auth.current.name),
+    #   new: {}
+    # )
+    opts = (args[:html_args] || {}).clone
+    opts.merge!(
+      title:           hash[:title],
+      "data-path"      => hash[:path],
+      "data-toggle"    => "modal",
+      "data-target"    => "#modal-#{card.cardname.safe_key}"
+    )
+    opts[:class] = "follow-link #{opts[:class]}"
+    link_to text, hash[:path], opts
+  end
+end
+
+def follow_label
+  name
+end
+
+def followers
+  follower_ids.map do |id|
+    Card.fetch(id)
+  end
+end
+
+def follower_names
+  followers.map(&:name)
+end
+
+def follow_rule_card?
+  is_preference? && rule_setting_name == "*follow"
+end
+
+def follow_option?
+  codename && FollowOption.codenames.include?(codename.to_sym)
+end
+
+# used for the follow menu overwritten in type/set.rb and type/cardtype.rb
+# for sets and cardtypes it doesn't check whether the users is following the
+# card itself instead it checks whether he is following the complete set
+def followed_by? user_id
+  with_follower_candidate_ids do
+    return true if follow_rule_applies? user_id
+    return true if (left_card = left) &&
+                   left_card.followed_field?(self) &&
+                   left_card.followed_by?(user_id)
+    false
+  end
+end
+
+def followed?
+  followed_by? Auth.current_id
+end
+
+def follow_rule_applies? follower_id
+  follow_rule = rule :follow, user_id: follower_id
+  if follow_rule.present?
+    follow_rule.split("\n").each do |value|
+      value_code = value.to_name.code
+      accounted_ids = (
+        @follower_candidate_ids[value_code] ||=
+          if (block = FollowOption.follower_candidate_ids[value_code])
+            block.call self
+          else
+            []
+          end
+      )
+
+      applicable =
+        if (test = FollowOption.test[value_code])
+          test.call follower_id, accounted_ids
+        else
+          accounted_ids.include? follower_id
+        end
+
+      return value.gsub(/[\[\]]/, "") if applicable
+    end
+  end
+  false
+end
+
+def with_follower_candidate_ids
+  @follower_candidate_ids = {}
+  yield
+  @follower_candidate_ids = nil
+end
+
+# the set card to be followed if you want to follow changes of card
+def default_follow_set_card
+  Card.fetch("#{name}+*self")
+end
+
+# returns true if according to the follow_field_rule followers of self also
+# follow changes of field_card
+def followed_field? field_card
+  (follow_field_rule = rule_card(:follow_fields)) ||
+    follow_field_rule.item_names.find do |item|
+      item.to_name.key == field_card.key ||
+        (item.to_name.key == Card[:includes].key &&
+         included_card_ids.include?(field_card.id))
+    end
+end
+
+def follower_ids
+  @follower_ids = read_follower_ids_cache || begin
+    result = direct_follower_ids
+    left_card = left
+    while left_card
+      result += left_card.direct_follower_ids if left_card.followed_field? self
+      left_card = left_card.left
+    end
+    write_follower_ids_cache result
+    result
+  end
+end
+
+def direct_followers
+  direct_follower_ids.map do |id|
+    Card.fetch(id)
+  end
+end
+
+# all ids of users that follow this card because of a follow rule that applies
+# to this card doesn't include users that follow this card because they are
+# following parent cards or other cards that include this card
+def direct_follower_ids _args={}
+  result = ::Set.new
+  with_follower_candidate_ids do
+    set_names.each do |set_name|
+      set_card = Card.fetch(set_name)
+      set_card.all_user_ids_with_rule_for(:follow).each do |user_id|
+        if !result.include?(user_id) && follow_rule_applies?(user_id)
+          result << user_id
+        end
+      end
+    end
+  end
+  result
+end
+
+def all_direct_follower_ids_with_reason
+  with_follower_candidate_ids do
+    visited = ::Set.new
+    set_names.each do |set_name|
+      set_card = Card.fetch(set_name)
+      set_card.all_user_ids_with_rule_for(:follow).each do |user_id|
+        next if visited.include?(user_id) ||
+                !(follow_option = follow_rule_applies?(user_id))
+        visited << user_id
+        yield(user_id, set_card: set_card, option: follow_option)
+      end
+    end
+  end
+end
+
+# ~~~~~ cache methods
+
+def write_follower_ids_cache user_ids
+  hash = Card.follower_ids_cache
+  hash[id] = user_ids
+  Card.write_follower_ids_cache hash
+end
+
+def read_follower_ids_cache
+  Card.follower_ids_cache[id]
+end
+
+module ClassMethods
+  def follow_caches_expired
+    Card.clear_follower_ids_cache
+    Card.clear_preference_cache
+  end
+
+  def follower_ids_cache
+    Card.cache.read(FOLLOWER_IDS_CACHE_KEY) || {}
+  end
+
+  def write_follower_ids_cache hash
+    Card.cache.write FOLLOWER_IDS_CACHE_KEY, hash
+  end
+
+  def clear_follower_ids_cache
+    Card.cache.write FOLLOWER_IDS_CACHE_KEY, nil
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/all/follow.rb ~~
+end;end;end;end;