card 1.99.4 → 1.99.5

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/{mod015-settings → mod012-settings}/type/setting.rb

@@ -1,10 +1,6 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Type
-# Set: All "Setting" cards
-#
-module Setting;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/settings/set/type/setting.rb"; end
+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
@@ -18,9 +14,9 @@ def self.member_names
   end
 end
 
-module DataFormat; parent.send :register_set_format, Card::Format::DataFormat, self; extend Card::Set::AbstractFormat
-  view :core do
-    wql = { left: { type: Card::SetID },
+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 }
@@ -29,9 +25,11 @@ end
 
 def set_classes_with_rules
   Card.set_patterns.reverse.map do |set_class|
-    wql = { left: { type: Card::SetID },
+    wql = { left:  { type: Card::SetID },
             right: id,
-            sort: %w[content name],
+            # sort:  'content',
+
+            sort:  %w(content name),
             limit: 0 }
     wql[:left][(set_class.anchorless? ? :id : :right_id)] = set_class.pattern_id
 
@@ -40,7 +38,7 @@ def set_classes_with_rules
   end.compact
 end
 
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+format do
   def duplicate_check rules
     previous_content = nil
     rules.each do |rule|
@@ -52,32 +50,28 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     end
   end
 
-  def rule_link rule, text
-    link_to_card rule, text, path: { view: :modal_rule },
-                             slotter: true, "data-modal-class": "modal-lg"
-  end
-
-  view :core do
-    haml do
+  view :core do |args|
+    render_haml args: args do
       <<-'HAML'.strip_heredoc
-        = _render_rule_help
-        %table.table.table-borderless.setting-rules
+        = _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? ? rule_link(rules.first, klass.pattern) : klass.pattern
+                = klass.anchorless? ? card_link(klass.pattern) : klass.pattern
               %td.rule-content-container
                 %span.closed-content.content
                   - if klass.anchorless?
-                    = subformat(rules.first)._render_closed_content
+                    = 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
-                    = rule_link rule, rule.name.trunk_name.trunk_name
+                    = card_link rule.cardname.trunk_name,
+                                text: rule.cardname.trunk_name.trunk_name
                   - if duplicate
                     %td
                   - else
@@ -88,21 +82,30 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     end
   end
 
-  # Because +*help content renders in "template" mode when you render its content
-  # directly, we render the help text in the context of the *all+<setting> card
-  view :rule_help do
-    nest [:all, card.name], view: :rule_help
+  view :rule_help do |_args|
+    <<-HTML
+      <div class="alert alert-info">
+        #{process_content '{{+*right+*help|content}}'}
+      </div>
+    HTML
   end
 
-  view :closed_content do
+  view :closed_content do |_args|
     render_rule_help
   end
 end
 
-module JsonFormat; parent.send :register_set_format, Card::Format::JsonFormat, self; extend Card::Set::AbstractFormat
-  def items_for_export
-    Card.search left: { type: Card::SetID }, right: card.id, limit: 0
+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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/settings/set/type/setting.rb ~~

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;