card 1.99.6 → 1.100.0

data/tmpsets/set/mod021-search/abstract/03_filter/query_construction.rb

@@ -0,0 +1,45 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract; module Filter;
+# Set: Abstract (Filter, QueryConstruction)
+#
+# all filter keys in the order they were selected
+module QueryConstruction;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/search/set/abstract/03_filter/query_construction.rb"; end
+def all_filter_keys
+  @all_filter_keys ||= filter_keys_from_params | filter_keys
+end
+
+def filter_and_sort_wql
+  filter_wql.merge(sort_wql)
+end
+
+def filter_wql
+  return {} if filter_hash.empty?
+
+  filter_wql_from_params
+end
+
+# separate method is needed for tests
+def filter_wql_from_params
+  filter_class.new(filter_keys_with_values, blocked_id_wql).to_wql
+end
+
+def sort_wql
+  sort_hash
+end
+
+def blocked_id_wql
+  not_ids = filter_param :not_ids
+  not_ids.present? ? { id: ["not in", not_ids.split(",")] } : {}
+end
+
+def current_sort
+  sort_param || default_sort_option
+end
+
+def default_sort_option
+  wql_content[:sort]
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/search/set/abstract/03_filter/query_construction.rb ~~

data/tmpsets/set/mod021-search/abstract/04_right_filter_form.rb

@@ -0,0 +1,35 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (RightFilterForm)
+#
+# To be included in a field card to get a filter for the parent.
+module RightFilterForm;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/search/set/abstract/04_right_filter_form.rb"; end
+# The core view renders a filter for the left card.
+
+include_set Set::Abstract::Filter
+
+def virtual?
+  new?
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def filter_action_path
+    path mark: card.name.left, view: filter_view
+  end
+
+  view :core, cache: :never do
+    filter_fields slot_selector: filter_selector
+  end
+
+  def filter_view
+    :filter_result
+  end
+
+  def filter_selector
+    ".#{filter_view}-view"
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/search/set/abstract/04_right_filter_form.rb ~~

data/tmpsets/set/mod021-search/abstract/search.rb

@@ -0,0 +1,93 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (Search)
+#
+module Search;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/search/set/abstract/search.rb"; end
+include_set Abstract::Paging
+include_set Abstract::SearchParams
+include_set Abstract::Filter
+
+def search _args={}
+  raise Error, "search not overridden"
+end
+
+def cached_search args={}
+  @search_results ||= {}
+  @search_results[args.to_s] ||= search args
+end
+
+def returning item, args
+  args[:return] = item
+  yield
+end
+
+def item_cards args={}
+  args[:limit] ||= 0
+  returning(:card, args) { search args }
+end
+
+def item_names args={}
+  args[:limit] ||= 0
+  returning(:name, args) { search args }
+end
+
+def item_ids args={}
+  args[:limit] ||= 0
+  returning(:id, args) { search args }
+end
+
+def count args={}
+  args[:offset] = 0
+  args[:limit] = 0
+  returning(:count, args) { search args }
+end
+
+# for override
+def item_type
+  nil
+end
+
+def each_item_name_with_options _content=nil
+  options = {}
+  item = fetch_query.statement[:view]
+  options[:view] = item if item
+  item_names.each do |name|
+    yield name, options
+  end
+end
+
+module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  def search_with_params
+    search_with_rescue search_params
+  end
+
+  def count_with_params
+    search_with_rescue search_params.merge(return: :count)
+  end
+
+  def search_with_rescue query_args
+    card.cached_search query_args
+  rescue Error::BadQuery => e
+    Rails.logger.info "BadQuery: #{query_args}"
+    e
+  end
+
+  def implicit_item_view
+    view = voo_items_view || item_view_from_query || default_item_view
+    Card::View.normalize view
+  end
+
+  # override if query can specify item view
+  def item_view_from_query
+    nil
+  end
+
+  def with_results
+    return render_no_search_results if search_with_params.empty?
+    yield
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/search/set/abstract/search.rb ~~

data/tmpsets/set/mod021-search/abstract/search/views.rb

@@ -0,0 +1,168 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract; module Search;
+# Set: Abstract (Search, Views)
+#
+module Views;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/search/set/abstract/search/views.rb"; end
+
+module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  view :search_count, cache: :never do
+    search_with_params.to_s
+  end
+
+  view :search_error, cache: :never do
+    sr_class = search_with_params.class.to_s
+    %(#{sr_class} :: #{search_with_params.message} :: #{card.content})
+  end
+
+  view :card_list, cache: :never do
+    if search_with_params.empty?
+      "no results"
+    else
+      search_with_params.map do |item_card|
+        nest_item item_card
+      end.join "\n"
+    end
+  end
+end
+
+module JsonFormat; parent.send :register_set_format, Card::Format::JsonFormat, self; extend Card::Set::AbstractFormat
+  AUTOCOMPLETE_LIMIT = 8 # number of name suggestions for autocomplete text fields
+
+  def item_cards
+    search_with_params
+  end
+
+  # NOCACHE because paging_urls is uncacheable hash and thus not safe to merge
+  view :molecule, cache: :never do
+    molecule.merge render_paging_urls
+  end
+
+  # TODO: design better autocomplete API
+  view :name_complete, cache: :never do
+    complete_search limit: AUTOCOMPLETE_LIMIT
+  end
+
+  view :name_match, cache: :never do
+    complete_or_match_search limit: AUTOCOMPLETE_LIMIT
+  end
+
+  def complete_or_match_search limit: AUTOCOMPLETE_LIMIT, start_only: false
+    starts_with = complete_search limit: limit
+    return starts_with if start_only
+
+    remaining_slots = limit - starts_with.size
+    return starts_with if remaining_slots.zero?
+    starts_with + match_search(not_names: starts_with, limit: remaining_slots)
+  end
+
+  def complete_search limit: AUTOCOMPLETE_LIMIT
+    card.search name_wql(limit).merge(complete_wql)
+  end
+
+  def match_search limit: AUTOCOMPLETE_LIMIT, not_names: []
+    card.search name_wql(limit).merge(match_wql(not_names))
+  end
+
+  def name_wql limit
+    { limit: limit, sort: "name", return: "name" }
+  end
+
+  def complete_wql
+    { complete: term_param }
+  end
+
+  def match_wql not_names
+    wql = { name_match: term_param }
+    wql[:name] = ["not in"] + not_names if not_names.any?
+    wql
+  end
+
+  def term_param
+    params[:term]
+  end
+end
+
+module DataFormat; parent.send :register_set_format, Card::Format::DataFormat, self; extend Card::Set::AbstractFormat
+  view :card_list do
+    search_with_params.map do |item_card|
+      nest_item item_card
+    end
+  end
+end
+
+module CsvFormat; parent.send :register_set_format, Card::Format::CsvFormat, self; extend Card::Set::AbstractFormat
+  view :core, :core, mod: All::AllCsv::CsvFormat
+
+  view :card_list do
+    items = super()
+    if depth.zero?
+      title_row + items
+    else
+      items
+    end
+  end
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :card_list, cache: :never do
+    with_results do
+      search_result_list "search-result-list" do |item_card|
+        card_list_item item_card
+      end
+    end
+  end
+
+  view :select_item, cache: :never do
+    wrap do
+      haml :select_item
+    end
+  end
+
+  before :select_item do
+    class_up "card-slot", "_filter-result-slot"
+  end
+
+  view :checkbox_list, cache: :never do
+    with_results do
+      search_result_list "_search-checkbox-list pr-2" do |item_card|
+        checkbox_item item_card
+      end
+    end
+  end
+
+  view :no_search_results do
+    wrap_with :div, "", class: "search-no-results"
+  end
+
+  private
+
+  def card_list_item item_card
+    nest_item item_card, size: voo.size do |rendered, item_view|
+      %(<div class="search-result-item item-#{item_view}">#{rendered}</div>)
+    end
+  end
+
+  def search_result_list klass
+    with_paging do
+      wrap_with :div, class: klass do
+        search_with_params.map do |item_card|
+          yield item_card
+        end
+      end
+    end
+  end
+
+  def checkbox_item item_card
+    subformat(item_card).wrap do
+      haml :checkbox_item, unique_id: unique_id, item_card: item_card
+    end
+  end
+
+  def closed_limit
+    [search_params[:limit].to_i, Card.config.closed_search_limit].min
+  end
+end
+end;end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/search/set/abstract/search/views.rb ~~

data/tmpsets/set/mod021-search/abstract/wql_search.rb

@@ -0,0 +1,120 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (WqlSearch)
+#
+module WqlSearch;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/search/set/abstract/wql_search.rb"; end
+include_set Abstract::Search
+
+def search args={}
+  with_skipping args do
+    query = fetch_query(args)
+    # forces explicit limiting
+    # can be 0 or less to force no limit
+    raise "OH NO.. no limit" unless query.mods[:limit]
+    query.run
+  end
+end
+
+# for override, eg when required subqueries are known to be missing
+def skip_search?
+  false
+end
+
+def with_skipping args
+  skip_search? ? skipped_search_result(args) : yield
+end
+
+def skipped_search_result args={}
+  args[:return] == :count ? 0 : []
+end
+
+def cache_query?
+  true
+end
+
+def fetch_query args={}
+  @query = nil unless cache_query?
+  @query ||= {}
+  @query[args.to_s] ||= query(args.clone) # cache query
+end
+
+def query args={}
+  Query.new standardized_query_args(args), name
+end
+
+def standardized_query_args args
+  args = query_args(args).symbolize_keys
+  args[:context] ||= name
+  args
+end
+
+def wql_hash
+  @wql_hash = nil unless cache_query?
+  @wql_hash ||= wql_content.merge filter_and_sort_wql
+end
+
+# override this to define search
+def wql_content
+  @wql_content = nil unless cache_query?
+  @wql_content ||= begin
+    query = content
+    query = query.is_a?(Hash) ? query : parse_json_query(query)
+    query.symbolize_keys
+  end
+end
+
+def query_args args={}
+  wql_hash.merge args
+end
+
+def parse_json_query query
+  empty_query_error! if query.empty?
+  JSON.parse query
+rescue
+  raise Error::BadQuery, "Invalid JSON search query: #{query}"
+end
+
+def empty_query_error!
+  raise Error::BadQuery,
+        "Error in card '#{name}':can't run search with empty content"
+end
+
+def item_type
+  type = wql_hash[:type]
+  return if type.is_a?(Array) || type.is_a?(Hash)
+  type
+end
+
+module Format; parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
+  def default_limit
+    card_content_limit || super
+  end
+
+  def card_content_limit
+    card.wql_hash[:limit]
+  rescue
+    nil
+  end
+
+  def item_view_from_query
+    query_with_params.statement[:item]
+  end
+
+  def query_with_params
+    @query_with_params ||= card.fetch_query search_params
+  end
+
+  def limit
+    query_with_params.limit
+  end
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def default_limit
+    card_content_limit || super
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/search/set/abstract/wql_search.rb ~~