card 1.91 → 1.92

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/mod014-developer/all/event_viz.rb

@@ -0,0 +1,59 @@
+# -*- encoding : utf-8 -*-
+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
+#
+#   puts mycard.events :update
+#
+# to see the order of events that will be executed on mycard.
+# 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 a 'current_act') may
+# prevent events from showing up in the tree.
+def events action
+  @action = action
+  events = Card::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
+  @action = nil
+  puts_events events
+end
+
+# private
+
+def puts_events events, prefix="", depth=0
+  r = ""
+  depth += 1
+  events.each do |e|
+    space = " " * (depth * 2)
+
+    # FIXME: this is not right.  before and around callbacks are processed in
+    # declaration order regardless of kind.  not all befores then all arounds
+    e[:before] && r += puts_events(e[:before], space + "v  ", depth)
+    e[:around] && r += puts_events(e[:around], space + "vv ", depth)
+    r += "#{prefix}#{e[:name]}\n"
+    e[:after] && r += puts_events(e[:after].reverse, space + "^  ", depth)
+  end
+  r
+end
+
+def events_tree filt
+  hash = { name: filt }
+  if respond_to? "_#{filt}_callbacks"
+    send("_#{filt}_callbacks").each do |callback|
+      next unless callback.applies? self
+      hash[callback.kind] ||= []
+      hash[callback.kind] << events_tree(callback.filter)
+    end
+  end
+
+  hash
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
+end;end;end;end;

data/tmpsets/set/mod014-developer/all/view_viz.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+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|
+        views =
+          format_class.instance_methods.map do |method|
+            next unless method.to_s =~ /^_view_(.+)$/
+            Regexp.last_match(1)
+          end.compact
+        next unless  views.present?
+        format_class.name =~ /^Card(::Set)?::(.+?)$/ #::(\w+Format)
+        hash[Regexp.last_match(2)] = views
+      end
+    accordion_group format_views
+  end
+
+  view :views_by_name do
+    views = methods.map do |method|
+      Regexp.last_match(1) if method.to_s =~ /^_view_(.+)$/
+    end.compact.sort
+    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;

data/tmpsets/set/mod014-developer/right/debug.rb

@@ -0,0 +1,96 @@
+# -*- encoding : utf-8 -*-
+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
+
+format :html do
+  view :core do |_args|
+    subject = card.left
+
+    output [
+      ["Sets",
+       static_tabs("set modules" => set_modules_accordion(subject),
+                   "all modules" => singleton_modules_list(subject),
+                   "patterns" => set_patterns_breadcrumb(subject))],
+      ["Views",
+       static_tabs("by format" => subformat(subject)._render_views_by_format,
+                   "by name" => subformat(subject)._render_views_by_name)],
+      ["Events",
+       static_tabs(create: "<pre>#{subject.events(:create)}</pre>",
+                   update: "<pre>#{subject.events(:update)}</pre>",
+                   delete: "<pre>#{subject.events(:delete)}</pre>")],
+      ["Cache/DB Comparison", cache_comparison_table(subject)]
+    ].map { |item| section(*item) }
+  end
+
+  # rubocop:disable AccessorMethodName
+  def set_modules_accordion subject
+    sets = subject.set_modules.each_with_object({}) do |sm, hash|
+      ans = sm.ancestors
+      ans.shift
+      hash[sm.to_s] = ans
+    end
+    accordion_group sets
+  end
+
+  def set_patterns_breadcrumb subject
+    links = subject.patterns.reverse.map { |pattern| card_link pattern.to_s }
+    breadcrumb(links)
+  end
+  # rubocop:enable AccessorMethodName
+
+  def singleton_modules_list subject
+    all_mods = subject.singleton_class.ancestors.map(&:to_s)
+    all_mods.shift
+    list_group all_mods
+  end
+
+  def cache_comparison_table subject
+    cache_card = Card.fetch(subject.key)
+    db_card    = Card.find_by_key(subject.key)
+    return unless cache_card && db_card
+    table(
+      [:name, :updated_at, :updater_id, :content, :inspect].map do |field|
+        [field.to_s,
+         h(cache_card.send(field)),
+         h(db_card.send(field))]
+      end,
+      header: ["Field", "Cache Val", "Database Val"]
+    )
+  end
+
+  def section title, content
+    %(
+      <h2>#{title}</h2>
+      #{content}
+    )
+  end
+
+  def class_locations klass
+    methods = defined_methods(klass)
+    file_groups = methods.group_by { |sl| sl[0] }
+    file_counts = file_groups.map do |file, sls|
+      lines = sls.map { |sl| sl[1] }
+      count = lines.size
+      line = lines.min
+      { file: file, count: count, line: line }
+    end
+    file_counts.sort_by! { |fc| fc[:count] }
+    file_counts.map { |fc| [fc[:file], fc[:line]] }
+  end
+
+  def defined_methods klass
+    methods =
+      klass.methods(false).map { |m| klass.method(m) } +
+      klass.instance_methods(false).map { |m| klass.instance_method(m) }
+    methods.map!(&:source_location)
+    methods.compact!
+    methods
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,118 @@
+# -*- encoding : utf-8 -*-
+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
+
+def self.included host_class
+  host_class.extend CarrierWave::CardMount
+end
+
+event :select_file_revision, after: :select_action do
+  attachment.retrieve_from_store!(attachment.identifier)
+end
+
+# we need a card id for the path so we have to update db_content when we have
+# an id
+event :correct_identifier, :finalize,
+      on: :create, when: proc { |c| !c.web? } do
+  update_column(:db_content, attachment.db_content)
+  expire
+end
+
+event :save_original_filename, :prepare_to_store,
+      when: proc { |c| c.file_ready_to_save? } do
+  return unless @current_action
+  @current_action.update_attributes! comment: original_filename
+end
+
+event :validate_file_exist, :validate, on: :save do
+  return if empty_ok?
+  if will_be_stored_as == :web
+    errors.add "url is missing" if content.blank?
+  elsif !attachment.file.present?
+    errors.add attachment_name, "is missing"
+  end
+end
+
+event :write_identifier, after: :save_original_filename,
+                         when: proc { |c| !c.web? } do
+  self.content = attachment.db_content
+end
+
+def file_ready_to_save?
+  attachment.file.present? &&
+    !preliminary_upload? &&
+    !save_preliminary_upload? &&
+    attachment_changed?
+end
+
+def item_names _args={} # needed for flexmail attachments.  hacky.
+  [cardname]
+end
+
+def original_filename
+  return content.split("/").last if web?
+  attachment.original_filename
+end
+
+def unfilled?
+  !attachment.present? && !save_preliminary_upload? && !subcards.present? &&
+    !content.present?
+end
+
+def attachment_changed?
+  send "#{attachment_name}_changed?"
+end
+
+def create_versions?
+  true
+end
+
+def empty_ok?
+  @empty_ok
+end
+
+def assign_set_specific_attributes
+  # reset content if we really have something to upload
+  if @set_specific.present? && @set_specific[attachment_name.to_s].present?
+    self.content = nil
+  end
+  super
+end
+
+def delete_files_for_action action
+  with_selected_action_id(action.id) do
+    attachment.file.delete
+    attachment.versions.each_value do |version|
+      version.file.delete
+    end
+  end
+end
+
+# 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
+  if ext.present? && attachment && (original_ext = attachment.extension)
+    if ["file", original_ext].member? ext
+      original_ext
+    elsif (exts = MIME::Types[attachment.content_type])
+      if exts.find { |mt| mt.extensions.member? ext }
+        ext
+      else
+        exts[0].extensions[0]
+      end
+    end
+  end
+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;