card 1.21.0 → 1.91

data/tmpsets/set/mod003-basic_formats/all/text.rb

@@ -1,13 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Text; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/all/text.rb ~~
-
-format :text do
-  view :core do |args|
-    HTMLEntities.new.decode strip_tags(super args).to_s # need this string method to get out of html_safe mode
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/all/text.rb ~~
-end;end;end;end;

data/tmpsets/set/mod003-basic_formats/self/01_head/javascript.rb

@@ -1,79 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Self; module Head; module Javascript; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/self/01_head/javascript.rb ~~
-format :html do
-  # add tuples containing a
-  #  - the codename of a card with javascript config (usually in json format)
-  #  - the name of a javascript method that handles the config
-  basket :mod_js_config
-
-  def script_rule
-    manual_script = params[:script]
-    script_card   = Card[manual_script] if manual_script
-    script_card ||= root.card.rule_card :script
-
-    @js_tag =
-      if params[:debug] == "script"
-        script_card.format(:js).render_core item: :include_tag
-      elsif script_card
-        javascript_include_tag script_card.machine_output_url
-      end
-  end
-
-  def ie9
-    ie9_card = Card[:script_html5shiv_printshiv]
-    "<!--[if lt IE 9]>"\
-    "#{javascript_include_tag ie9_card.machine_output_url if ie9_card}"\
-    "<![endif]-->"
-  end
-
-  def wagn_variables
-    varvals = ["window.wagn={rootPath:'#{Card.config.relative_url_root}'}",]
-    card.have_recaptcha_keys? &&
-      varvals << "wagn.recaptchaKey='#{Card.config.recaptcha_public_key}'"
-    (c = Card[:double_click]) && !Card.toggle(c.content) &&
-      varvals << "wagn.noDoubleClick=true"
-    @css_path &&
-      varvals << "wagn.cssPath='#{@css_path}'"
-    javascript_tag { varvals * ";" }
-  end
-
-  def trigger_slot_ready
-    <<-HTML
-      <script type="text/javascript">
-        $('document').ready(function() {
-          $('.card-slot').trigger('slotReady');
-        })
-      </script>
-    HTML
-  end
-
-  def google_analytics
-    return unless (ga_key = Card.global_setting(:google_analytics_key))
-    <<-JAVASCRIPT
-      <script type="text/javascript">
-        var _gaq = _gaq || [];
-        _gaq.push(['_setAccount', '#{ga_key}']);
-        _gaq.push(['_trackPageview']);
-        (function() {
-          var ga = document.createElement('script');
-          ga.type = 'text/javascript'; ga.async = true;
-          ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
-          var s = document.getElementsByTagName('script')[0];
-          s.parentNode.insertBefore(ga, s);
-          s.parentNode.insertBefore(ga, s);
-        })();
-      </script>
-    JAVASCRIPT
-  end
-
-  def mod_configs
-    mod_js_config.map do |codename, js_wagn_function|
-      config_json = escape_javascript Card.global_setting(codename)
-      javascript_tag { "wagn.#{js_wagn_function}('#{config_json}')" }
-    end
-  end
-end
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/self/01_head/javascript.rb ~~
-end;end;end;end;end;

data/tmpsets/set/mod003-basic_formats/self/head.rb

@@ -1,101 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Self; module Head; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/self/head.rb ~~
-format :html do
-  view :raw do
-    output [
-      head_meta,
-      head_title,
-      head_buttons,
-      head_stylesheets,
-      head_javascript
-    ]
-  end
-
-  view :core do |args|
-    if focal?
-      CGI.escapeHTML _render_raw(args)
-    elsif @mainline
-      "(*head)"
-    else
-      _render_raw(args)
-    end
-  end
-
-  def head_meta
-    <<-HTML
-      <meta charset="UTF-8">
-      <meta name="viewport" content="width=device-width, initial-scale=1.0"/>
-    HTML
-  end
-
-  def head_title
-    title = root.card && root.card.name
-    title = nil if title.blank?
-    title = params[:action] if title == "*placeholder"
-    %(<title>#{title ? "#{title} - " : ''}#{Card.global_setting :title}</title>)
-  end
-
-  def head_buttons
-    bits = [favicon]
-    if root.card
-      bits << universal_edit_button
-      # RSS # move to mods!
-      bits << rss_link if root.card.type_id == SearchTypeID
-    end
-    bits.compact.join "\n      "
-  end
-
-  def head_stylesheets
-    manual_style = params[:style]
-    style_card = Card[manual_style] if manual_style
-    style_card ||= root.card.rule_card :style
-    @css_path =
-      if params[:debug] == "style"
-        page_path(style_card.cardname, item: :import, format: :css)
-      elsif style_card
-        card_path style_card.machine_output_url
-      end
-    return unless @css_path
-    %(<link href="#{@css_path}" media="all" rel="stylesheet" type="text/css" />)
-  end
-
-  def head_javascript
-    output [
-      wagn_variables,
-      script_rule,
-      ie9,
-      mod_configs,
-      trigger_slot_ready,
-      google_analytics
-    ]
-  end
-
-  def favicon
-    [:favicon, :logo].each do |name|
-      if (c = Card[name]) && c.type_id == ImageID && !c.db_content.blank?
-        href = subformat(c)._render_source size: :small
-        return %(<link rel="shortcut icon" href="#{href}" />)
-      end
-    end
-  end
-
-  def universal_edit_button
-    return if root.card.new_record? || !root.card.ok?(:update)
-    href = root.path view: :edit
-    tag "link", rel: "alternate", type: "application/x-wiki",
-                title: "Edit this page!", href: href
-  end
-
-  def rss_link
-    opts = { format: :rss }
-    root.search_params[:vars].each { |key, val| opts["_#{key}"] = val }
-    href = page_path root.card.cardname, opts
-    tag "link", rel: "alternate", type: "application/rss+xml",
-                title: "RSS", href: href
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/basic_formats/set/self/head.rb ~~
-end;end;end;end;

data/tmpsets/set/mod004-pointer/abstract/01_pointer.rb

@@ -1,193 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module Pointer; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/pointer/set/abstract/01_pointer.rb ~~
-stage_method :changed_item_names do
-  dropped_item_names + added_item_names
-end
-
-stage_method :dropped_item_names do
-  old_items = item_names content: db_content_was
-  old_items - item_names
-end
-
-stage_method :added_item_names do
-  old_items = item_names content: db_content_was
-  item_names - old_items
-end
-
-format do
-  def item_links args={}
-    card.item_cards(args).map do |item_card|
-      subformat(item_card).render_link
-    end
-  end
-
-  def wrap_item item, _args={}
-    item # no wrap in base
-  end
-
-  view :core do |args|
-    render_pointer_items args.merge(joint: ", ")
-  end
-
-  view :pointer_items, tags: :unknown_ok do |args|
-    i_args = item_args(args)
-    joint = args[:joint] || " "
-    card.item_cards.map do |i_card|
-      wrap_item nest(i_card, i_args.clone), i_args
-    end.join joint
-  end
-end
-
-format :html do
-  view :core do |args|
-    %(<div class="pointer-list">#{render_pointer_items args}</div>)
-  end
-
-  view :closed_content do |args|
-    args[:item] =
-      if (args[:item] || nest_defaults(card)[:view]) == "name"
-        "name"
-      else
-        "link"
-      end
-    args[:joint] ||= ", "
-    _render_core args
-  end
-
-  def wrap_item item, args
-    %(<div class="pointer-item item-#{args[:view]}">#{item}</div>)
-  end
-end
-
-format :css do
-  # generalize to all collections?
-  def default_item_view
-    params[:item] || :content
-  end
-
-  view :titled do |_args|
-    %(#{major_comment "STYLE GROUP: \"#{card.name}\"", '='}#{_render_core})
-  end
-
-  view :core do |args|
-    card.item_cards.map do |item|
-      nest item, view: item_view(args)
-    end.join "\n\n"
-  end
-
-  view :content, :core
-end
-
-format :js do
-  view :core do |args|
-    card.item_cards.map do |item|
-      nest item, view: (args[:item] || :core)
-    end.join "\n\n"
-  end
-end
-
-format :data do
-  view :core do |_args|
-    card.item_cards.map do |c|
-      nest c
-    end
-  end
-end
-
-format :rss do
-  def raw_feed_items _args
-    @raw_feed_items ||= begin
-      card.item_cards
-    end
-  end
-end
-
-format :json do
-  view :export_items do |args|
-    result =
-      card.known_item_cards.map do |ic|
-        subformat(ic).render_export(args)
-      end
-    result.flatten.reject(&:blank?)
-  end
-end
-
-# while a card's card type and content are updated in the same request,
-# the new module will override the old module's events and functions.
-# this event is only on pointer card. Other type cards do not have this event,
-# so it is not overridden and will be run while updating type and content in
-# the same request.
-event :standardize_items, :prepare_to_validate,
-      on: :save,
-      changed: :content,
-      when: proc { |c| c.type_id == Card::PointerID  } do
-  self.content = item_names(context: :raw).map do |name|
-    "[[#{name}]]"
-  end.join "\n"
-end
-
-def diff_args
-  { format: :pointer }
-end
-
-def item_cards args={}
-  if args[:complete]
-    query = args.reverse_merge referred_to_by: name
-    Card::Query.run query
-  elsif args[:known_only]
-    known_item_cards args
-  else
-    fetch_or_initialize_item_cards args
-  end
-end
-
-def known_item_cards args={}
-  item_names(args).map do |name|
-    Card.fetch name
-  end.compact
-end
-
-def fetch_or_initialize_item_cards args
-  itype = args[:type] || item_type
-  new_args = itype ? { type: itype } : {}
-  item_names(args).map do |name|
-    Card.fetch name, new: new_args
-  end
-end
-
-def item_names args={}
-  context = args[:context] || cardname
-  content = args[:content] || raw_content
-  content.to_s.split(/\n+/).map do |line|
-    item_name = line.gsub(/\[\[|\]\]/, "").strip
-    if context == :raw
-      item_name
-    else
-      item_name.to_name.to_absolute context
-    end
-  end
-end
-
-def item_ids args={}
-  item_names(args).map do |name|
-    Card.fetch_id name
-  end.compact
-end
-
-def item_type
-  opt = options_rule_card
-  if !opt || opt == self # fixme, need better recursion prevention
-    nil
-  else
-    opt.item_type
-  end
-end
-
-def options_rule_card
-  rule_card :options
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/pointer/set/abstract/01_pointer.rb ~~
-end;end;end;end;

data/tmpsets/set/mod004-pointer/abstract/01_pointer/edit.rb

@@ -1,224 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module Pointer; module Edit; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/pointer/set/abstract/01_pointer/edit.rb ~~
-event :add_and_drop_items, :prepare_to_validate, on: :save do
-  adds = Env.params["add_item"]
-  drops = Env.params["drop_item"]
-  Array.wrap(adds).each { |i| add_item i } if adds
-  Array.wrap(drops).each { |i| drop_item i } if drops
-end
-
-event :insert_item_event, :prepare_to_validate,
-      on: :save, when: proc { Env.params["insert_item"] } do
-  index = Env.params["item_index"] || 0
-  insert_item index.to_i, Env.params["insert_item"]
-end
-
-format :html do
-  #  view :edit do |args|
-  #    super(args.merge(pointer_item_class: 'form-control'))
-  #  end
-
-  view :editor do |args|
-    part_view = (c = card.rule(:input)) ? c.gsub(/[\[\]]/, "") : :list
-    hidden_field(:content, class: "card-content") +
-      raw(_render(part_view, args))
-    # .merge(pointer_item_class: 'form-control')))
-  end
-
-  view :list do |args|
-    args ||= {}
-    items = args[:item_list] || card.item_names(context: :raw)
-    items = [""] if items.empty?
-    rendered_items = items.map do |item|
-                       _render_list_item args.merge(pointer_item: item)
-                     end.join "\n"
-    extra_css_class = args[:extra_css_class] || "pointer-list-ul"
-
-    <<-HTML
-      <ul class="pointer-list-editor #{extra_css_class}"
-          data-options-card="#{options_card_name}">
-        #{rendered_items}
-      </ul>
-      #{add_item_button}
-    HTML
-  end
-
-  def options_card_name
-    (oc = card.options_rule_card) ? oc.cardname.url_key : ":all"
-  end
-
-  def add_item_button
-    content_tag :span, class: "input-group" do
-      button_tag class: "pointer-item-add" do
-        glyphicon("plus") + " add another"
-      end
-    end
-  end
-
-  view :list_item do |args|
-    <<-HTML
-      <li class="pointer-li">
-        <span class="input-group">
-          <span class="input-group-addon handle">
-            #{glyphicon 'option-vertical left'}
-    #{glyphicon 'option-vertical right'}
-          </span>
-          #{text_field_tag 'pointer_item', args[:pointer_item],
-                           class: 'pointer-item-text form-control'}
-          <span class="input-group-btn">
-            <button class="pointer-item-delete btn btn-default" type="button">
-              #{glyphicon 'remove'}
-            </button>
-          </span>
-        </span>
-      </li>
-    HTML
-  end
-
-  view :checkbox do |_args|
-    options = card.option_names.map do |option_name|
-      checked = card.item_names.include?(option_name)
-      id = "pointer-checkbox-#{option_name.to_name.key}"
-      <<-HTML
-        <div class="pointer-checkbox">
-          #{check_box_tag 'pointer_checkbox', option_name, checked,
-                          id: id, class: 'pointer-checkbox-button'}
-          #{option_label option_name, id}
-          #{option_description 'checkbox', option_name}
-        </div>
-      HTML
-    end.join "\n"
-
-    %(<div class="pointer-checkbox-list">#{options}</div>)
-  end
-
-  view :multiselect do |_args|
-    select_tag(
-      "pointer_multiselect",
-      options_for_select(card.option_names, card.item_names),
-      multiple: true, class: "pointer-multiselect form-control"
-    )
-  end
-
-  view :radio do |_args|
-    input_name = "pointer_radio_button-#{card.key}"
-    options = card.option_names.map do |option_name|
-      checked = (option_name == card.item_names.first)
-      id = "pointer-radio-#{option_name.to_name.key}"
-      <<-HTML
-        <li class="pointer-radio radio">
-          #{radio_button_tag input_name, option_name, checked,
-                             id: id, class: 'pointer-radio-button'}
-          #{option_label option_name, id}
-          #{option_description 'radio', option_name}
-        </li>
-      HTML
-    end.join("\n")
-
-    %(<ul class="pointer-radio-list">#{options}</ul>)
-  end
-
-  def option_label option_name, id
-    o_card = Card.fetch(option_name)
-    label = (o_card && o_card.label) || option_name
-    %(<label for="#{id}">#{label}</label>)
-  end
-
-  # @param option_type [String] "checkbox" or "radio"
-  def option_description option_type, option_name
-    return "" unless (description = pointer_option_description(option_name))
-    %(<div class="#{option_type}-option-description">#{description}</div>)
-  end
-
-  view :select do |_args|
-    options = [["-- Select --", ""]] + card.option_names.map { |x| [x, x] }
-    select_tag("pointer_select",
-               options_for_select(options, card.item_names.first),
-               class: "pointer-select form-control")
-  end
-
-  def pointer_option_description option
-    pod_name = card.rule(:options_label) || "description"
-    dcard = Card["#{option}+#{pod_name}"]
-    return unless dcard && dcard.ok?(:read)
-    with_nest_mode :normal do
-      subformat(dcard).render_core
-    end
-  end
-end
-
-def items= array
-  self.content = ""
-  array.each { |i| self << i }
-  save!
-end
-
-def << item
-  newname =
-    case item
-    when Card    then item.name
-    when Integer then (c = Card[item]) && c.name
-    else              item
-    end
-  add_item newname
-end
-
-def add_item name
-  return if include_item? name
-  self.content = "[[#{(item_names << name).reject(&:blank?) * "]]\n[["}]]"
-end
-
-def add_item! name
-  add_item name
-  save!
-end
-
-def drop_item name
-  return unless include_item? name
-  key = name.to_name.key
-  new_names = item_names.reject { |n| n.to_name.key == key }
-  self.content = new_names.empty? ? "" : "[[#{new_names * "]]\n[["}]]"
-end
-
-def drop_item! name
-  drop_item name
-  save!
-end
-
-def insert_item index, name
-  new_names = item_names
-  new_names.delete name
-  new_names.insert index, name
-  self.content = new_names.map { |new_name| "[[#{new_name}]]" }.join "\n"
-end
-
-def insert_item! index, name
-  insert_item index, name
-  save!
-end
-
-def option_names
-  result_names =
-    if (oc = options_rule_card)
-      oc.item_names default_limit: 50, context: name
-    else
-      Card.search({ sort: "name", limit: 50, return: :name },
-                  "option names for pointer: #{name}")
-    end
-  if (selected_options = item_names)
-    result_names += selected_options
-    result_names.uniq!
-  end
-  result_names
-end
-
-def option_cards
-  option_names.map do |name|
-    Card.fetch name, new: {}
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/pointer/set/abstract/01_pointer/edit.rb ~~
-end;end;end;end;end;