card 1.99.4 → 1.99.5

data/tmpsets/set/mod016-standard/self/alerts.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Alerts; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/alerts.rb ~~
+
+view :raw do |_args|
+  "<!-- *alerts is deprecated. please remove from layout -->"
+end
+view :core, :raw
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/alerts.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/codenames.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Codenames; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/codenames.rb ~~
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/codenames.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/foot.rb

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Foot; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/foot.rb ~~
+
+format :html do
+  view :raw do |_args|
+    "<!-- *foot is deprecated. please remove from layout -->"
+  end
+
+  view :core, :raw
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/foot.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/navbox.rb

@@ -0,0 +1,36 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Navbox; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/navbox.rb ~~
+
+format :html do
+  view :raw do |_args|
+    input_args = { class: "navbox form-control" }
+    @@placeholder ||= begin
+      (p = Card["#{Card[:navbox].name}+*placeholder"]) && p.raw_content
+    end
+    input_args[:placeholder] = @@placeholder if @@placeholder
+
+    content_tag :div, class: "form-group" do
+      text_field_tag :_keyword, "", input_args
+    end
+  end
+
+  view :navbar_left do |args|
+    _render_core args.merge(navbar_class: "navbar-form navbar-left")
+  end
+
+  view :navbar_right do |args|
+    _render_core args.merge(navbar_class: "navbar-form navbar-right")
+  end
+
+  view :core do |args|
+    tag_args = { method: "get", role: "search", class: "nodblclick navbox-form #{args[:navbar_class]}" }
+    form_tag Card.path_setting("/:search"), tag_args do
+      _render_raw args
+    end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/navbox.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/now.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Now; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/now.rb ~~
+
+view :raw do |_args|
+  # '%A, %B %d, %Y %I:%M %p %Z'
+  I18n.localize(Time.now, format: :card_dayofwk_min_tz)
+end
+
+view :core, :raw
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/now.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/recent.rb

@@ -0,0 +1,34 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Recent; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/recent.rb ~~
+ACTS_PER_PAGE = 50
+
+view :title do |args|
+  super args.merge(title: "Recent Changes")
+end
+
+format :html do
+  view :core do |args|
+    content_tag(:div, class: "history-slot list-group") do
+      [history_legend, render_recent_acts(args)].join
+    end
+  end
+
+  view :recent_acts do |args|
+    page = params["page"] || 1
+    acts = Act.all_viewable.order(id: :desc).page(page).per(ACTS_PER_PAGE)
+    acts.map do |act|
+      if (act_card = act.card)
+        format = act_card.format :html
+        format.render_act args.merge(act: act, act_context: :absolute)
+      else
+        Rails.logger.info "bad data, act: #{act}"
+        ""
+      end
+    end.join
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/recent.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/self/search.rb

@@ -0,0 +1,71 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Search; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/search.rb ~~
+
+format :html do
+  view :title do |args|
+    vars = root.search_params[:vars]
+    if vars && vars[:keyword]
+      args[:title] = %(Search results for: <span class="search-keyword">)\
+                         "#{vars[:keyword]}</span>"
+    end
+    super args
+  end
+end
+
+format :json do
+  view :complete do
+    term = complete_term
+    exact = Card.fetch term, new: {}
+
+    {
+      search: true,
+      add: add_item(exact),
+      new: new_item_of_type(exact),
+      goto: goto_items(term, exact)
+    }
+  end
+
+  def add_item exact
+    return unless exact.new_card? &&
+                  exact.cardname.valid? &&
+                  !exact.virtual? &&
+                  exact.ok?(:create)
+    exact.name
+  end
+
+  def new_item_of_type exact
+    return unless (exact.type_id == Card::CardtypeID) &&
+                  Card.new(type_id: exact.id).ok?(:create)
+    [exact.name, exact.cardname.url_key]
+  end
+
+  def goto_items term, exact
+    goto_names = Card.search goto_wql(term), "goto items for term: #{term}"
+    goto_names.unshift exact.name if add_exact_to_goto_names? exact, goto_names
+    goto_names.map do |name|
+      [name, highlight(name, term), name.to_name.url_key]
+    end
+  end
+
+  def add_exact_to_goto_names? exact, goto_names
+    exact.known? && !goto_names.find { |n| n.to_name.key == exact.key }
+  end
+
+  def complete_term
+    term = params["_keyword"]
+    if (term =~ /^\+/) && (main = params["main"])
+      term = main + term
+    end
+    term
+  end
+
+  # hacky.  here for override
+  def goto_wql term
+    { complete: term, limit: 8, sort: "name", return: "name" }
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/self/search.rb ~~
+end;end;end;end;

data/tmpsets/set/{mod021-standard → mod016-standard}/type/basic.rb

@@ -1,39 +1,18 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Type
-# Set: All "Basic" cards
-#
-module Basic;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/standard/set/type/basic.rb"; end
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :open_content do
-    with_table_of_contents _render_core
-  end
-
-  view :titled_content do
-    with_table_of_contents _render_core
-  end
-
-  def with_table_of_contents content
+class Card; module Set; class Type; module Basic; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/basic.rb ~~
+format :html do
+  view :open_content do |args|
+    content = _render_core args
     table_of_contents(content) || content
   end
 
   def table_of_contents content
-    return if nest_mode == :closed || !content.present?
-
+    return if @mode == :closed || !content.present?
     min = card.rule(:table_of_contents).to_i
+    # warn "table_of #{name}, #{min}"
     return unless min && min > 0
 
-    toc = toc_items content
-    if toc.flatten.length >= min
-      content.replace(
-        %( <div class="table-of-contents"> <h5>#{tr(:toc)}</h5> ) +
-          make_table_of_contents_list(toc) + "</div>" + content
-      )
-    end
-  end
-
-  def toc_items content
     toc = []
     dep = 1
     content.gsub!(/<(h\d)>(.*?)<\/h\d>/i) do |match|
@@ -47,26 +26,34 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
           item[:depth] = dep = 1
           toc << item
         when "h2"
-          toc << [] if dep == 1
+          toc << []  if dep == 1
           item[:depth] = dep = 2
           toc.last << item
         end
         %(<a name="#{item[:uri]}"></a>#{match})
       end
     end
-    toc
+
+    if toc.flatten.length >= min
+      content.replace(
+        %( <div class="table-of-contents"> <h5>Table of Contents</h5> ) +
+          make_table_of_contents_list(toc) + "</div>" + content
+      )
+    end
   end
 
   def make_table_of_contents_list items
     list = items.map do |i|
-      if i.is_a?(Array)
-        make_table_of_contents_list(i)
-      else
-        %(<li><a href="##{i[:uri]}"> #{i[:value]}</a></li>)
-      end
-    end.join("\n")
+             if i.is_a?(Array)
+               make_table_of_contents_list(i)
+             else
+               %(<li><a href="##{i[:uri]}"> #{i[:value]}</a></li>)
+             end
+           end.join("\n")
     "<ol>" + list + "</ol>"
   end
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/basic.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/standard/set/type/basic.rb ~~

data/tmpsets/set/mod016-standard/type/cardtype.rb

@@ -0,0 +1,81 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Cardtype; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/cardtype.rb ~~
+
+format :html do
+  view :type do |args|
+    args[:type_class] = "no-edit" if card.cards_of_type_exist?
+    super args
+  end
+
+  view :type_formgroup do |args|
+    if card.cards_of_type_exist?
+      %(
+        <div>
+          Sorry, this card must remain a Cardtype so long as there are
+          <strong>#{card.name}</strong> cards.
+        </div>
+      )
+    else
+      super args
+    end
+  end
+
+  view :add_link do |args|
+    args[:title] ||= "Add #{card.name}"
+    link_to _render_title(args), _render_add_path(args), class: args[:css_class]
+  end
+
+  view :add_button, view: :add_link
+  def default_add_button_args args
+    args[:css_class] = "btn btn-default"
+  end
+
+  view :add_url do |args|
+    card_url _render_add_path(args)
+  end
+
+  view :add_path do |args|
+    path_args = {}
+    if args[:params]
+      context = ((@parent && @parent.card) || card).name
+      Rack::Utils.parse_nested_query(args[:params]).each do |key, value|
+        value = value.to_name.to_absolute(context) if value
+        key = key.to_name.to_absolute(context)
+        path_args[key] = value
+      end
+    end
+    path_args[:action] = "new"
+    page_path card.cardname, path_args
+  end
+end
+
+include Basic
+
+def follow_label
+  default_follow_set_card.follow_label
+end
+
+def followed_by? user_id=nil
+  default_follow_set_card.all_members_followed_by? user_id
+end
+
+def default_follow_set_card
+  # FIXME: use codename
+  Card.fetch("#{name}+*type")
+end
+
+def cards_of_type_exist?
+  # FIXME: faster test than counting all of type?
+  !new_card? && Auth.as_bot { Card.count_by_wql type_id: id } > 0
+end
+
+event :check_for_cards_of_type, after: :validate_delete do
+  if cards_of_type_exist?
+    errors.add :cardtype, "can't alter this type; #{name} cards still exist"
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/cardtype.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/type/date.rb

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module Date; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/date.rb ~~
+
+format :html do
+  # what is this for?  Can't you just use TYPE-date and editor
+  # to match this cas, no special view needed?
+  view :editor do |_args|
+    text_field :content, class: "date-editor"
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/date.rb ~~
+end;end;end;end;

data/tmpsets/set/mod016-standard/type/layout_type.rb

@@ -0,0 +1,17 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Type; module LayoutType; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/layout_type.rb ~~
+# -*- encoding : utf-8 -*-
+include_set Type::Html
+
+format :html do
+  view :core do |_args|
+    with_nest_mode :template do
+      process_content ::CodeRay.scan(_render_raw, :html).div
+    end
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/layout_type.rb ~~
+end;end;end;end;

data/tmpsets/set/{mod021-standard → mod016-standard}/type/list.rb

@@ -1,33 +1,31 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Type
-# Set: All "List" cards
-#
-module List;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/standard/set/type/list.rb"; end
+class Card; module Set; class Type; module List; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/list.rb ~~
 include_set Pointer
 
 event :validate_list_name, :validate, on: :save, changed: :name do
-  errors.add :name, tr(:type_right) if !junction? || !right || right.type_id != CardtypeID
+  if !junction? || !right || right.type_id != CardtypeID
+    errors.add :name, "must have a cardtype name as right part"
+  end
 end
 
 event :validate_list_item_type_change, :validate,
       on: :save, changed: :name do
   item_cards.each do |item_card|
-    next unless item_card.type_name.key != item_type_name.key
-    errors.add :name, tr(:conflict_item_type)
+    next unless item_card.type_cardname.key != item_type_name.key
+    errors.add :name,
+               "name conflicts with list items' type; " \
+               "delete content first"
   end
 end
 
 event :validate_list_content, :validate,
       on: :save, changed: :content do
   item_cards.each do |item_card|
-    next unless item_card.type_name.key != item_type_name.key
-    errors.add :content, tr(
-      :only_type_allowed,
-      cardname: item_card.name,
-      cardtype: name.right
-    )
+    next unless item_card.type_cardname.key != item_type_name.key
+    errors.add :content,
+               "#{item_card.name} has wrong cardtype; " \
+               "only cards of type #{cardname.right} are allowed"
   end
 end
 
@@ -53,8 +51,8 @@ event :update_related_listed_by_card_on_content_update, :finalize,
       on: :update, changed: :content do
   new_items = item_keys
   changed_items =
-    if db_content_before_act
-      old_items = item_keys(content: db_content_before_act)
+    if db_content_was
+      old_items = item_keys(content: db_content_was)
       old_items + new_items - (old_items & new_items)
     else
       new_items
@@ -63,7 +61,7 @@ event :update_related_listed_by_card_on_content_update, :finalize,
 end
 
 event :update_related_listed_by_card_on_name_and_type_changes, :finalize,
-      on: :update, changed: %i[name type_id] do
+      on: :update, changed: [:name, :type_id] do
   update_all_items
 end
 
@@ -79,21 +77,20 @@ end
 
 def update_all_items
   current_items = item_keys
-  if db_content_before_act
-    old_items = item_keys(content: db_content_before_act)
+  if db_content_was
+    old_items = item_keys(content: db_content_was)
     update_listed_by_cache_for old_items
   end
   update_listed_by_cache_for current_items
 end
 
 def update_listed_by_cache_for item_keys, args={}
-  type_key = args[:type_key] || left&.type_card&.key
-  return unless type_key
+  type_key = args[:type_key] || left.type_card.key
 
   item_keys.each do |item_key|
     key = "#{item_key}+#{type_key}"
     next unless Card::Cache[Card::Set::Type::ListedBy].exist? key
-    if (card = Card.fetch(key)) && card.left
+    if (card = Card.fetch(key))
       card.update_cached_list
       card.update_references_out
     else
@@ -103,19 +100,21 @@ def update_listed_by_cache_for item_keys, args={}
 end
 
 def item_type
-  name.right
+  cardname.right
 end
 
 def item_type_name
-  name.right_name
+  cardname.right_name
 end
 
 def item_type_card
-  name.right
+  cardname.right
 end
 
 def item_type_id
   right.id
 end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/standard/set/type/list.rb ~~
 end;end;end;end;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/standard/set/type/list.rb ~~