card 1.91 → 1.92

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

@@ -0,0 +1,79 @@
+# -*- 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/mod004-basic_formats/self/head.rb

@@ -0,0 +1,101 @@
+# -*- 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
+        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/mod005-pointer/abstract/01_pointer.rb

@@ -0,0 +1,193 @@
+# -*- 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/mod005-pointer/abstract/01_pointer/edit.rb

@@ -0,0 +1,224 @@
+# -*- 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;