card 1.91 → 1.92

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

@@ -0,0 +1,165 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Links; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/links.rb ~~
+format do
+  # link is called by web_link, card_link, and view_link
+  # (and is overridden in other formats)
+  def link_to text, href, _opts={}
+    href = interpret_href href
+
+    if text && href != text
+      "#{text}[#{href}]"
+    else
+      href
+    end
+  end
+
+  # link to url, view, card or related card
+  def smart_link link_text, target, html_args={}
+    if (view = target.delete(:view))
+      view_link link_text, view, html_args.merge(path_opts: target)
+    elsif (page = target.delete(:card))
+      card_link page, html_args.merge(path_opts: target, text: link_text)
+    elsif target[:related]
+      if target[:related].is_a? String
+        target[:related] = { name: "+#{target[:related]}" }
+      end
+      view_link link_text, :related, html_args.merge(path_opts: target)
+    elsif target[:web]
+    else
+      link_to link_text, target, html_args
+    end
+  end
+
+  # link to a specific url or path
+  def web_link href, opts={}
+    text = opts.delete(:text) || href
+    new_class =
+      case href
+      when /^https?\:/
+        opts[:target] = "_blank"
+        "external-link"
+      when /^mailto\:/
+        "email-link"
+      when /^([a-zA-Z][\-+\.a-zA-Z\d]*):/
+        Regexp.last_match(1) + "-link"
+      when %r{^/}
+        href = internal_url href[1..-1]
+        "internal-link"
+      else
+        return card_link href, opts
+      end
+    add_class opts, new_class
+    link_to text, href, opts
+  end
+
+  # link to a specific card
+  def card_link name_or_card, opts={}
+    name =
+      case name_or_card
+      when Symbol then Card.fetch(name_or_card, skip_modules: true).cardname
+      when Card   then name_or_card.cardname
+      else             name_or_card
+      end
+    text = (opts.delete(:text) || name).to_name.to_show @context_names
+
+    path_opts = opts.delete(:path_opts) || {}
+    path_opts[:name] = name
+    path_opts[:known] =
+      opts[:known].nil? ? Card.known?(name) : opts.delete(:known)
+    add_class opts, (path_opts[:known] ? "known-card" : "wanted-card")
+    link_to text, path_opts, opts
+  end
+
+  # link to a specific view (defaults to current card)
+  # this is generally used for ajax calls
+  def view_link text, view, opts={}
+    path_opts = opts.delete(:path_opts) || {}
+    path_opts[:view] = view unless view == :home
+    opts[:remote] = true
+    opts[:rel] = "nofollow"
+
+    link_to text, path_opts, opts
+  end
+
+  def related_link name_or_card, opts={}
+    name =
+      case name_or_card
+      when Symbol then Card.fetch(name_or_card, skip_modules: true).cardname
+      when Card   then name_or_card.cardname
+      else             name_or_card
+      end
+    opts[:path_opts] ||= { view: :related }
+    opts[:path_opts][:related] = { name: "+#{name}" }
+    opts[:path_opts][:related].merge! opts[:related_opts] if opts[:related_opts]
+    view_link(opts[:text] || name, :related, opts)
+  end
+
+  def path opts={}
+    if opts[:action] == :new && opts[:type] &&
+       !(opts[:name] || opts[:card] || opts[:id])
+      opts.delete(:action)
+      base = "new/#{opts.delete(:type)}"
+    else
+      name = opts.delete(:name) || card.name
+      base = opts[:action] ? "card/#{opts.delete :action}/" : ""
+
+      opts[:no_id] = true if [:new, :create].member? opts[:action]
+      # generalize. dislike hardcoding views/actions here
+
+      linkname = name.to_name.url_key
+      unless name.empty? || opts.delete(:no_id)
+        base += (opts[:id] ? "~#{opts.delete :id}" : linkname)
+      end
+
+      process_path_card_opts opts, name, linkname
+    end
+
+    query = opts.empty? ? "" : "?#{opts.to_param}"
+    internal_url(base + query)
+  end
+
+  def internal_url relative_path
+    card_path relative_path
+  end
+
+  def interpret_href href
+    href.is_a?(Hash) ? path(href) : href
+  end
+
+  def process_path_card_opts opts, name, linkname
+    opts[:card] ||= {}
+    if opts.delete(:known) == false && name.present? && name.to_s != linkname
+      opts[:card][:name] = name
+    end
+
+    if (type = opts.delete(:type)) && Card.known?(type)
+      opts[:card][:type] = type
+    end
+    opts.delete(:card) if opts[:card].empty?
+  end
+end
+
+format :html do
+  def link_to text, href, opts={}
+    href = interpret_href href
+
+    [:remote, :method].each do |key|
+      if (val = opts.delete(key))
+        opts["data-#{key}"] = val
+      end
+    end
+
+    content_tag :a, raw(text), opts.merge(href: href)
+  end
+end
+
+format :css do
+  def link_to _text, href, _opts={}
+    card_url interpret_href(href)
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/links.rb ~~
+end;end;end;end;

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

@@ -0,0 +1,53 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module ListChanges; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/list_changes.rb ~~
+# -*- encoding : utf-8 -*-
+
+def list_fields
+  Card.search({ left: name, type_id: Card::ListID }, "list fields")
+end
+
+def listed_by_fields
+  Card.search({ left: name, type_id: Card::ListedByID }, "listed by fields")
+end
+
+def linker_lists
+  Card.search({ type_id: Card::ListID, link_to: name },
+              "lists that link to #{name}")
+end
+
+event :trunk_cardtype_of_a_list_relation_changed, :finalize,
+      changed: :type, on: :update,
+      when: proc { Codename[:list] } do
+  type_key_was = (tk = Card.quick_fetch(type_id_was)) && tk.key
+
+  list_fields.each do |card|
+    card.update_listed_by_cache_for card.item_keys, type_key: type_key_was
+    card.update_listed_by_cache_for card.item_keys
+  end
+  listed_by_fields.each &:update_cached_list
+end
+
+event :trunk_name_of_a_list_relation_changed, :finalize,
+      changed: :name,  on: :update,
+      when: proc { Codename[:list] } do
+  list_fields.each do |card|
+    card.update_listed_by_cache_for card.item_keys
+  end
+  listed_by_fields.each &:update_cached_list
+end
+
+event :cardtype_of_list_item_changed, :validate,
+      changed: :type, on: :save,
+      when: proc { Codename[:list] } do
+  linker_lists.each do |card|
+    next unless card.item_type_id != type_id
+    errors.add(:type,
+               "can't be changed because #{name} " \
+               "is referenced by list card #{card.name}")
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/list_changes.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/all/rich_html/content.rb

@@ -0,0 +1,261 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module RichHtml; module Content; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/rich_html/content.rb ~~
+def show_comment_box_in_related?
+  false
+end
+
+format :html do
+  def show view, args
+    if show_layout?
+      args[:view] = view if view
+      @main_opts = args
+      render :layout
+    else
+      view ||= args[:home_view] || :open
+      @nest_opts = (args[:items] || {}).clone
+      render view, args
+    end
+  end
+
+  def show_layout?
+    !Env.ajax? || params[:layout]
+  end
+
+  view :layout, perms: :none do |args|
+    output [
+      process_content(get_layout_content, content_opts:
+        { chunk_list: :references }),
+      _render_modal_slot(args)
+    ]
+  end
+
+  view :content do |args|
+    wrap args.reverse_merge(slot_class: "card-content") do
+      [
+        _optional_render(:menu, args, :hide),
+        _render_core(args)
+      ]
+    end
+  end
+
+  view :content_panel do |args|
+    wrap args.reverse_merge(slot_class: "card-content panel panel-default") do
+      wrap_with :div, class: "panel-body" do
+        [
+          _optional_render(:menu, args, :hide),
+          _render_core(args)
+        ].join("\n")
+      end
+    end
+  end
+
+  view :titled, tags: :comment do |args|
+    wrap args do
+      [
+        _optional_render(:menu, args),
+        _render_header(args),
+        wrap_body(content: true) { _render_core args },
+        optional_render(:comment_box, args)
+      ]
+    end
+  end
+
+  view :labeled do |args|
+    wrap args do
+      [
+        _optional_render(:menu, args),
+        "<label>#{_render_title args}</label>",
+        wrap_body(body_class: "closed-content", content: true) do
+          _render_closed_content args
+        end
+      ]
+    end
+  end
+
+  view :title do |args|
+    title = fancy_title args[:title], args[:title_class]
+    title =
+      _optional_render(:title_editable, args, :hide) ||
+      _optional_render(:title_link, args.merge(title_ready: title), :hide) ||
+      title
+    add_name_context
+    title
+  end
+
+  view :title_link do |args|
+    title_text = args[:title_ready] || showname(args[:title])
+    card_link card.cardname, text: title_text
+  end
+
+  view :type_info do
+    link_args = { text: card.type_name.to_s, class: "navbar-link" }
+    link = card_link card.type_name, link_args
+    %(<span class="type-info pull-right">#{link}</span>).html_safe
+  end
+
+  view :title_editable do |args|
+    links = card.cardname.parts.map do |name|
+      card_link name
+    end
+    res = links.shift
+    links.each_with_index do |link, index|
+      name = card.cardname.parts[0..index + 1].join "+"
+      res += card_link name, text: glyphicon("plus", "header-icon")
+      res += link
+    end
+    res += " "
+    res.concat view_link(
+      glyphicon("edit", "header-icon"),
+      :edit_name,
+      class: "slotter", "data-toggle" => "tooltip", title: "edit name"
+    )
+    res.concat _optional_render(:type_link, args, :show)
+  end
+
+  view :open, tags: :comment do |args|
+    args[:optional_toggle] ||= main? ? :hide : :show
+    frame args.merge(content: true) do
+      [
+        _render_open_content(args),
+        optional_render(:comment_box, args)
+      ]
+    end
+  end
+
+  # view :anchor, perms: :none, tags: :unknown_ok do |args|
+  #   %{ <a id="#{card.cardname.url_key}" name="#{card.cardname.url_key}"></a> }
+  # end
+
+  view :type do |args|
+    klasses = ["cardtype"]
+    klass = args[:type_class]
+    klasses << klass if klass
+    card_link card.type_card.name, class: klasses
+  end
+
+  view :closed do |args|
+    frame args.reverse_merge(
+      content: true,
+      body_class: "closed-content",
+      toggle_mode: :close,
+      optional_toggle: :show,
+      optional_toolbar: :hide
+    ) do
+      _optional_render :closed_content, args
+    end
+  end
+
+  view :change do |args|
+    args[:optional_title_link] = :show
+    wrap args do
+      [
+        _optional_render(:title, args),
+        _optional_render(:menu, args, :hide),
+        _optional_render(:last_action, args)
+      ]
+    end
+  end
+
+  def current_set_card
+    set_name = params[:current_set]
+    if card.known? && card.type_id == Card::CardtypeID
+      set_name ||= "#{card.name}+*type"
+    end
+    set_name ||= "#{card.name}+*self"
+    Card.fetch(set_name)
+  end
+
+  view :related do |args|
+    if args[:related_card]
+      frame args.merge(optional_toolbar: :show) do
+        nest(args[:related_card], args[:related_args])
+      end
+    end
+  end
+
+  def default_related_args args
+    rparams = args[:related] || params[:related]
+    return unless rparams
+    rcard = rparams[:card] || begin
+      rcardname = rparams[:name].to_name.to_absolute_name(card.cardname)
+      Card.fetch rcardname, new: {}
+    end
+
+    subheader = with_name_context(card.name) do
+      subformat(rcard)._render_title(args)
+    end
+    add_name_context card.name
+    nest_args = (rparams[:slot] || {}).deep_symbolize_keys.reverse_merge(
+      view:            (rparams[:view] || :open),
+      optional_header: :hide,
+      optional_menu:   :show,
+      subheader:       subheader,
+      optional_toggle: :hide,
+      optional_help:   :show,
+      parent:          card,
+      subframe:        true,
+      subslot:         true
+    )
+    if rcard.show_comment_box_in_related?
+      nest_args[:optional_comment_box] = :show
+    end
+    args[:related_args] = nest_args
+    args[:related_card] = rcard
+  end
+
+  view :help, tags: :unknown_ok do |args|
+    text = args[:help_text] || begin
+      setting = card.new_card? ? [:add_help, { fallback: :help }] : :help
+      help_card = card.rule_card(*setting)
+      if help_card && help_card.ok?(:read)
+        with_nest_mode :normal do
+          raw_help_content = _render_raw args.merge(structure: help_card.name)
+          process_content raw_help_content, content_opts:
+            { chunk_list: :references }
+          # render help card with current card's format
+          # so current card's context is used in help card nests
+        end
+      end
+    end
+    klass = [args[:help_class], "help-text"].compact * " "
+    %(<div class="#{klass}">#{raw text}</div>) if text
+  end
+
+  view :last_action do
+    act = card.last_act
+    return unless act
+    action = act.action_on card.id
+    return unless action
+    action_verb =
+      case action.action_type
+      when :create then "added"
+      when :delete then "deleted"
+      else
+        link_to(
+          "edited",
+          path(view: :history),
+          class: "last-edited", rel: "nofollow"
+        )
+      end
+
+    %(
+      <span class="last-update">
+        #{action_verb} #{_render_acted_at} ago by
+        #{subformat(card.last_actor)._render_link}
+      </span>
+    )
+  end
+
+  private
+
+  def fancy_title title=nil, title_class=nil
+    klasses = ["card-title", title_class].compact * " "
+    title = showname(title).to_name.parts.join %(<span class="joint">+</span>)
+    raw %(<span class="#{klasses}">#{title}</span>)
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/all/rich_html/content.rb ~~
+end;end;end;end;end;