card 1.21.0 → 1.91

data/tmpsets/set/mod014-admin/self/version.rb

@@ -1,15 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Self; module Version; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/version.rb ~~
-# -*- encoding : utf-8 -*-
-require_dependency "card/version"
-
-view :raw do |_args|
-  Card::Version.release
-end
-
-view :core, :raw
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/version.rb ~~
-end;end;end;end;

data/tmpsets/set/mod015-developer/all/event_viz.rb

@@ -1,59 +0,0 @@
-# -*- 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/mod015-developer/all/view_viz.rb

@@ -1,30 +0,0 @@
-# -*- 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/mod015-developer/right/debug.rb

@@ -1,96 +0,0 @@
-# -*- 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/mod016-standard/all/comment.rb

@@ -1,67 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Comment; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/comment.rb ~~
-event :add_comment, :prepare_to_store,
-      on: :save, when: proc { |c| c.comment } do
-  cleaned_comment =
-    comment.split(/\n/).map do |line|
-      "<p>#{line.strip.empty? ? '&nbsp;' : line}</p>"
-    end * "\n"
-
-  signature =
-    if Auth.signed_in?
-      "[[#{Auth.current.name}]]"
-    else
-      Env.session[:comment_author] = comment_author if Env.session
-      "#{comment_author} (Not signed in)"
-    end
-
-  self.content = %(
-    #{content}
-    #{'<hr>' unless content.blank?}
-    #{cleaned_comment}
-    <div class="w-comment-author">--#{signature}.....#{Time.zone.now}</div>
-  )
-end
-
-format do
-  view :comment_box,
-       denial: :blank, tags: :unknown_ok,
-       perms: ->(r) { r.card.ok? :comment } do |_args|
-    <<-HTML
-      <div class="comment-box nodblclick">#{comment_form}</div>
-    HTML
-  end
-
-  def comment_form
-    card_form :update do
-      %(
-        #{hidden_field_tag('card[name]', card.name) if card.new_card?
-          # FIXME: wish we had more generalized solution for names.
-          # without this, nonexistent cards will often take left's linkname.
-          # (needs test)
-        }
-        #{text_area :comment, rows: 3}
-        #{comment_buttons}
-      )
-    end
-  end
-
-  def comment_buttons
-    <<-HTML
-      <div class="comment-buttons">
-        #{unless Auth.signed_in?
-            card.comment_author = session[:comment_author] ||
-                                  params[:comment_author] || 'Anonymous' # ENGLISH
-            %(<label>My Name is:</label> #{text_field :comment_author})
-          end}
-        #{submit_button text: 'Comment', type: :submit,
-                        disable_with: 'Commenting'}
-      </div>
-    HTML
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/comment.rb ~~
-end;end;end;end;

data/tmpsets/set/mod016-standard/all/error.rb

@@ -1,229 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Error; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/error.rb ~~
-def copy_errors card
-  card.errors.each do |att, msg|
-    errors.add att, msg
-  end
-end
-
-format do
-  view :closed_missing, perms: :none, closed: true do
-    ""
-  end
-
-  view :unsupported_view, perms: :none, tags: :unknown_ok do |args|
-    "view (#{args[:unsupported_view]}) not supported for #{error_cardname}"
-  end
-
-  view :missing, perms: :none do
-    ""
-  end
-
-  view :not_found, perms: :none, error_code: 404 do |_args|
-    error_name = card.name.present? ? card.name : "the card requested"
-    %( Could not find #{error_name}. )
-  end
-
-  view :server_error, perms: :none, error_code: 500 do
-    %(
-      Wagn Hitch!  Server Error. Yuck, sorry about that.
-      To tell us more and follow the fix,
-      add a support ticket at http://wagn.org/new/Support_Ticket
-    )
-  end
-
-  view :denial, perms: :none, error_code: 403 do
-    focal? ? "Permission Denied" : ""
-  end
-
-  view :bad_address, perms: :none, error_code: 404 do
-    %( 404: Bad Address )
-  end
-
-  view :too_deep, perms: :none, closed: true do
-    %{ Man, you're too deep.  (Too many levels of nests at a time) }
-  end
-
-  view :too_slow, perms: :none, closed: true do
-    %( Timed out! #{showname} took too long to load. )
-  end
-end
-
-format :html do
-  def view_for_unknown view, args
-    case
-    when focal? && ok?(:create)   then :new
-    when commentable?(view, args) then view
-    else super
-    end
-  end
-
-  def commentable? view, args
-    return false unless self.class.tagged view, :comment
-    visibility_args = args.merge default_visibility: :hide
-    return false unless show_view? :comment_box, visibility_args
-    ok? :comment
-  end
-
-  def rendering_error exception, view
-    details = Auth.always_ok? ? backtrace_link(exception) : error_cardname
-    content_tag :span, class: "render-error alert alert-danger" do
-      ["error rendering", details, "(#{view} view)"].join "\n"
-    end
-  end
-
-  def backtrace_link exception
-    warning_options = {
-      dismissible: true,
-      alert_class: "render-error-message errors-view admin-error-message"
-    }
-    warning = alert("warning", warning_options) do
-      %{
-        <h3>Error message (visible to admin only)</h3>
-        <p><strong>#{exception.message}</strong></p>
-        <div>#{exception.backtrace * "<br>\n"}</div>
-      }
-    end
-    card_link(error_cardname, class: "render-error-link") + warning
-  end
-
-  view :unsupported_view, perms: :none, tags: :unknown_ok do |args|
-    %(
-      <strong>
-        view <em>#{args[:unsupported_view]}</em>
-        not supported for <em>#{error_cardname}</em>
-      </strong>
-    )
-  end
-
-  view :message, perms: :none, tags: :unknown_ok do |args|
-    frame args do
-      params[:message]
-    end
-  end
-
-  view :missing do |args|
-    return "" unless card.ok? :create  # should this be moved into ok_view?
-
-    link_opts = {
-      remote: true,
-      class: "slotter missing-#{args[:denied_view] || args[:home_view]}"
-    }
-    link_opts[:path_opts] = { type: args[:type] } if args[:type]
-
-    wrap args do
-      view_link "Add #{fancy_title args[:title]}", :new, link_opts
-    end
-  end
-
-  view :closed_missing, perms: :none do
-    %(<span class="faint"> #{showname} </span>)
-  end
-
-  view :conflict, error_code: 409 do |args|
-    actor_link = card_link card.last_action.act.actor.cardname
-    expanded_act = wrap(args) do
-      _render_act_expanded act: card.last_action.act, current_rev_nr: 0
-    end
-    wrap args.merge(slot_class: "error-view") do # ENGLISH below
-      alert "warning" do
-        %(
-          <strong>Conflict!</strong>
-          <span class="new-current-revision-id">#{card.last_action_id}</span>
-          <div>#{actor_link} has also been making changes.</div>
-          <div>Please examine below, resolve above, and re-submit.</div>
-          #{expanded_act}
-        )
-      end
-    end
-  end
-
-  view :errors, perms: :none do |args|
-    if card.errors.any?
-      title = "Problems"
-      title += " with #{card.name}" unless card.name.blank?
-      frame_opts = { panel_class: "panel panel-warning",
-                     title: title, hide: "menu" }
-      frame args.merge(frame_opts) do
-        card.errors.map do |attrib, msg|
-          unless attrib == :abort
-            msg = "<strong>#{attrib.to_s.upcase}:</strong> #{msg}"
-          end
-          alert "warning", dismissible: true, alert_class: "card-error-msg" do
-            msg
-          end
-        end
-      end
-    end
-  end
-
-  view :not_found do |args| # ug.  bad name.
-    sign_in_or_up_links =
-      unless Auth.signed_in?
-        signin_link = card_link :signin, text: "Sign in"
-        signup_link = link_to "Sign up", card_path("new/:signup")
-        %(<div>#{signin_link} or #{signup_link} to create it.</div>)
-      end
-    frame args.merge(title: "Not Found", optional_menu: :never) do
-      card_label = card.name.present? ? "<em>#{card.name}</em>" : "that"
-      %(<h2>Could not find #{card_label}.</h2> #{sign_in_or_up_links})
-    end
-  end
-
-  view :denial do |args|
-    task = args[:denied_task]
-    to_task = task ? "to #{task} this." : "to do that."
-    if !focal?
-      %(
-        <span class="denied">
-          <!-- Sorry, you don't have permission #{to_task} -->
-        </span>
-      )
-    else
-      frame args do # ENGLISH below
-        message =
-          case
-          when task != :read && Card.config.read_only
-            "We are currently in read-only mode.  Please try again later."
-          when Auth.signed_in?
-            "You need permission #{to_task}"
-          else
-            signin_link = link_to "sign in", card_url(":signin")
-            or_signup_link =
-              if Card.new(type_id: Card::SignupID).ok? :create
-                "or " + link_to("sign up", card_url("new/:signup"))
-              end
-            Env.save_interrupted_action(request.env["REQUEST_URI"])
-            "Please #{signin_link} #{or_signup_link} #{to_task}"
-          end
-
-        %(
-          <h1>Sorry!</h1>
-          <div>#{message}</div>
-        )
-      end
-    end
-  end
-
-  view :server_error do
-    %{
-      <body>
-        <div class="dialog">
-          <h1>Wagn Hitch :(</h1>
-          <p>Server Error. Yuck, sorry about that.</p>
-          <p>
-            <a href="http://www.wagn.org/new/Support_Ticket">
-              Add a support ticket
-            </a>
-            to tell us more and follow the fix.
-          </p>
-        </div>
-      </body>
-    }
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/error.rb ~~
-end;end;end;end;