card 1.99.4 → 1.99.5

data/tmpsets/set/mod013-email/type_plus_right/user/follow.rb

@@ -0,0 +1,180 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class TypePlusRight; module User; module Follow; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type_plus_right/user/follow.rb ~~
+include Card::Set::Type::Pointer
+
+def raw_content
+  item_names.map { |name| "[[#{name}]]" }
+end
+
+def item_names _args={}
+  if (user = left)
+    Card.preference_names user.name, "follow"
+  else
+    []
+  end
+end
+
+def virtual?
+  !real?
+end
+
+format { include Card::Set::Type::Pointer::Format }
+
+format :html do
+  include Card::Set::Type::Pointer::HtmlFormat
+
+  view :closed_content do |_args|
+    ""
+  end
+
+  view :core do |args|
+    <<-HTML
+      <div role="tabpanel">
+        <ul class="nav nav-tabs" role="tablist" id="myTab">
+          <li role="presentation" class="active">
+             <a href="#following" aria-controls="following"
+                role="tab" data-toggle="tab">Follow</a>
+          </li>
+          <li role="presentation">
+            <a href="#ignoring" aria-controls="ignoring"
+               role="tab" data-toggle="tab">Ignore</a>
+          </li>
+        </ul>
+        <div class="tab-content">
+          <div role="tabpanel" class="tab-pane active" id="following">
+            #{render_following_list args}
+          </div>
+          <div role="tabpanel" class="tab-pane" id="ignoring">
+            #{render_ignoring_list}
+          </div>
+        </div>
+      </div>
+    HTML
+  end
+
+  def followed_by_option
+    hash = Hash.new { |h, k| h[k] = [] }
+    card.known_item_cards.each do |follow_rule|
+      follow_rule.item_cards.each do |follow_option|
+        hash[follow_option.codename.to_sym] << follow_rule
+      end
+    end
+  end
+
+  def each_suggestion
+    return unless (suggestions = Card["follow suggestions"])
+    suggestions.item_names.each do |sug|
+      set_card = Card.fetch sug.to_name.left
+      if set_card && set_card.type_code == :set
+        sugtag = sug.to_name.right
+        option_card = Card.fetch(sugtag) || Card[sugtag.to_sym]
+        option = option_card.follow_option? ? option_card.name : "*always"
+        yield(set_card, option)
+      elsif (set_card = Card.fetch sug) && set_card.type_code == :set
+        yield(set_card, "*always")
+      end
+    end
+  end
+
+  # returns hashes with existing and suggested follow options
+  # structure:
+  # set_pattern_class =>
+  #  [ {card: rule_card, options: ['*always', '*created'] },.... ]
+  def followed_by_set
+    res = Hash.new { |h, k| h[k] = [] }
+    never = Card[:never].name
+    card.known_item_cards.each do |follow_rule|
+      options = follow_rule.item_names.reject { |item| item == never }
+      res[follow_rule.rule_set.subclass_for_set] << { card: follow_rule,
+                                                      options: options }
+    end
+
+    if Auth.signed_in? && Auth.current_id == card.left.id
+      each_suggestion do |set_card, option|
+        suggested_rule_name = set_card.follow_rule_name(card.trunk)
+        rule = res[set_card.subclass_for_set].find do |rule|
+          rule[:card].name == suggested_rule_name
+        end
+        if rule
+          rule[:options] << option unless rule[:options].include? option
+        else
+          rule_card = Card.new(name: suggested_rule_name)
+          res[set_card.subclass_for_set] << { card: rule_card,
+                                              options: [option] }
+        end
+      end
+    end
+    res
+  end
+
+  view :following_list do |_args|
+    if !Auth.signed_in? || Auth.current_id != card.left.id
+      hide_buttons = [:delete_follow_rule_button, :add_follow_rule_button]
+    end
+
+    sets = followed_by_set
+    wrap_with :div, class: "pointer-list-editor" do
+      wrap_with :ul, class: "delete-list list-group" do
+        Card.set_patterns.select { |p| sets[p] }.reverse.map do |set_pattern|
+          sets[set_pattern].map do |rule|
+            rule[:options].map do |option|
+              content_tag :li, class: "list-group-item" do
+                subformat(rule[:card]).render_follow_item condition: option,
+                                                          hide: hide_buttons
+              end
+            end.join("\n")
+          end.join("\n")
+        end.join("\n")
+      end
+    end
+  end
+
+  view :ignoring_list do |_args|
+    ignore_list = []
+    card.known_item_cards.each do |follow_rule|
+      follow_rule.item_cards.each do |follow_option|
+        ignore_list << follow_rule if follow_option.codename.to_sym == :never
+      end
+    end
+    if !Auth.signed_in? || Auth.current_id != card.left.id
+      hide_buttons = [:delete_follow_rule_button, :add_follow_rule_button]
+    end
+    never = Card[:never].name
+    wrap_with :div, class: "pointer-list-editor" do
+      wrap_with :ul, class: "delete-list list-group" do
+        ignore_list.map do |rule_card|
+          content_tag :li, class: "list-group-item" do
+            subformat(rule_card).render_follow_item condition: never,
+                                                    hide: hide_buttons
+          end
+        end.join "\n"
+      end
+    end
+  end
+
+  view :pointer_items, tags: :unknown_ok do |args|
+    super(args.merge(item: :link))
+  end
+
+  view :errors, perms: :none do |args|
+    if card.errors.any?
+      if card.errors.find { |attrib, _msg| attrib == :permission_denied }
+        Env.save_interrupted_action(request.env["REQUEST_URI"])
+        title = "Problems with #{card.name}"
+        frame args.merge(panel_class: "panel panel-warning",
+                         title: title, hide: "menu") do
+          "Please #{link_to 'sign in', card_url(':signin')}" # " #{to_task}"
+        end
+      else
+        super(args)
+      end
+    end
+  end
+end
+
+format(:css) { include Card::Set::Type::Pointer::CssFormat }
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/email/set/type_plus_right/user/follow.rb ~~
+end;end;end;end;end;

data/tmpsets/set/{mod018-developer → mod014-developer}/all/event_viz.rb

@@ -1,7 +1,8 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (EventViz)
-#
+class Card; module Set; class All; module EventViz; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
+require_dependency 'active_support/callbacks_ext'
+
 # the events method is a developer's tool for visualizing the event order
 # for a given card.
 # For example, from a console you might run
@@ -9,19 +10,15 @@ class Card; module Set; class All
 #   puts mycard.events :update
 #
 # to see the order of events that will be executed on mycard.
-module EventViz;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/all/event_viz.rb"; end
 # The indention and arrows (^v) indicate event dependencies.
 #
 # Note: as of yet, the functionality is a bit rough.  It does not display events
 # that are called directly from within other events,
-# and certain event requirements (like the presence of an 'act') may
+# and certain event requirements (like the presence of a 'current_act') may
 # prevent events from showing up in the tree.
 def events action
   @action = action
-  events =
-    ActManager::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
+  events = Card::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
   @action = nil
   puts_events events
 end
@@ -56,5 +53,7 @@ def events_tree filt
 
   hash
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/all/event_viz.rb ~~

data/tmpsets/set/{mod018-developer → mod014-developer}/all/view_viz.rb

@@ -1,11 +1,7 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (ViewViz)
-#
-module ViewViz;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/all/view_viz.rb"; end
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+class Card; module Set; class All; module ViewViz; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
+format :html do
   view :views_by_format do
     format_views =
       self.class.ancestors.each_with_object({}) do |format_class, hash|
@@ -28,5 +24,7 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     list_group views
   end
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/all/view_viz.rb ~~

data/tmpsets/set/{mod018-developer → mod014-developer}/right/debug.rb

@@ -1,16 +1,12 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+Debug" cards
-#
-module Debug;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/developer/set/right/debug.rb"; end
+class Card; module Set; class Right; module Debug; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
 def virtual?
   true
 end
 
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :core do
+format :html do
+  view :core do |_args|
     subject = card.left
 
     output [
@@ -40,8 +36,8 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
   end
 
   def set_patterns_breadcrumb subject
-    links = subject.patterns.reverse.map { |pattern| link_to_card pattern.to_s }
-    breadcrumb links
+    links = subject.patterns.reverse.map { |pattern| card_link pattern.to_s }
+    breadcrumb(links)
   end
   # rubocop:enable AccessorMethodName
 
@@ -56,7 +52,7 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     db_card    = Card.find_by_key(subject.key)
     return unless cache_card && db_card
     table(
-      %i[name updated_at updater_id content inspect].map do |field|
+      [:name, :updated_at, :updater_id, :content, :inspect].map do |field|
         [field.to_s,
          h(cache_card.send(field)),
          h(db_card.send(field))]
@@ -94,5 +90,7 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     methods
   end
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/developer/set/right/debug.rb ~~

data/tmpsets/set/{mod019-carrierwave → mod015-carrierwave}/abstract/attachment.rb

@@ -1,10 +1,6 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (Attachment)
-#
-module Attachment;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/carrierwave/set/abstract/attachment.rb"; end
+class Card; module Set; class Abstract; module Attachment; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
 require "carrier_wave/cardmount"
 
 attr_writer :empty_ok
@@ -25,9 +21,10 @@ event :correct_identifier, :finalize,
   expire
 end
 
-event :save_original_filename, :prepare_to_store, on: :save, when: :file_ready_to_save? do
+event :save_original_filename, :prepare_to_store,
+      when: proc { |c| c.file_ready_to_save? } do
   return unless @current_action
-  @current_action.update! comment: original_filename
+  @current_action.update_attributes! comment: original_filename
 end
 
 event :validate_file_exist, :validate, on: :save do
@@ -39,7 +36,8 @@ event :validate_file_exist, :validate, on: :save do
   end
 end
 
-event :write_identifier, after: :save_original_filename, when: proc { |c| !c.web? } do
+event :write_identifier, after: :save_original_filename,
+                         when: proc { |c| !c.web? } do
   self.content = attachment.db_content
 end
 
@@ -47,11 +45,11 @@ def file_ready_to_save?
   attachment.file.present? &&
     !preliminary_upload? &&
     !save_preliminary_upload? &&
-    attachment_is_changing?
+    attachment_changed?
 end
 
 def item_names _args={} # needed for flexmail attachments.  hacky.
-  [name]
+  [cardname]
 end
 
 def original_filename
@@ -60,22 +58,15 @@ def original_filename
 end
 
 def unfilled?
-  !attachment.present? && !save_preliminary_upload? && !subcards? && blank_content?
+  !attachment.present? && !save_preliminary_upload? && !subcards.present? &&
+    !content.present?
 end
 
 def attachment_changed?
   send "#{attachment_name}_changed?"
 end
 
-def attachment_is_changing?
-  send "#{attachment_name}_is_changing?"
-end
-
-def attachment_before_act
-  send "#{attachment_name}_before_act"
-end
-
-def create_versions? _new_file
+def create_versions? new_file
   true
 end
 
@@ -85,7 +76,9 @@ end
 
 def assign_set_specific_attributes
   # reset content if we really have something to upload
-  self.content = nil if set_specific[attachment_name.to_s].present?
+  if @set_specific.present? && @set_specific[attachment_name.to_s].present?
+    self.content = nil
+  end
   super
 end
 
@@ -98,10 +91,9 @@ def delete_files_for_action action
   end
 end
 
-def revision action, before_action=false
-  return unless (result = super)
-  result[:empty_ok] = true
-  result
+# create filesystem links to files from prior action
+def rollback_to action
+  update_attributes! revision(action).merge(empty_ok: true)
 end
 
 def attachment_format ext
@@ -120,5 +112,7 @@ rescue => e
   Rails.logger.info "attachment_format issue: #{e.message}"
   nil
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~

data/tmpsets/set/mod015-carrierwave/abstract/attachment/paths.rb

@@ -0,0 +1,57 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract; module Attachment; module Paths; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment/paths.rb ~~
+MOD_FILE_DIR = "file".freeze
+
+def store_dir
+  will_become_coded? ? coded_dir(@new_mod) : upload_dir
+end
+
+def retrieve_dir
+  coded? ? coded_dir : upload_dir
+end
+
+# place for files of regular file cards
+def upload_dir
+  id ? "#{files_base_dir}/#{id}" : tmp_upload_dir
+end
+
+# place for files of mod file cards
+def coded_dir new_mod=nil
+  dir = File.join mod_dir(new_mod), MOD_FILE_DIR, codename
+  FileUtils.mkdir_p dir
+  dir
+end
+
+def mod_dir new_mod=nil
+  find_mod = new_mod || mod
+  Card::Mod::Loader.mod_dirs.path(find_mod) ||
+    raise(Error, "can't find mod \"#{find_mod}\"")
+end
+
+def files_base_dir
+  bucket ? bucket_config[:subdirectory] : Card.paths["files"].existent.first
+end
+
+# used in the indentifier
+def file_dir
+  if coded?
+    ":#{codename}"
+  elsif cloud?
+    "(#{bucket})/#{file_id}"
+  else
+    "~#{file_id}"
+  end
+end
+
+def public?
+  who_can(:read).include? Card[:anyone].id
+end
+
+def file_id
+  id? ? id : upload_cache_card.id
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment/paths.rb ~~
+end;end;end;end;end;