card 1.91 → 1.92

data/spec/support/test_mods/mod1/set/all/test_set.rb

@@ -0,0 +1,3 @@
+def test_method
+  "works"
+end

data/tmpsets/set/mod001-admin/self/admin.rb

@@ -0,0 +1,130 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Admin; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/admin.rb ~~
+# collect arrays of the form
+# [task symbol, { execute_policy: block, stats_policy: block }]
+basket :tasks
+
+event :admin_tasks, :initialize, on: :update do
+  return unless (task = Env.params[:task])
+  raise Card::Error::PermissionDenied, self unless Auth.always_ok?
+
+  case task.to_sym
+  when :clear_cache          then Card::Cache.reset_all
+  when :repair_references    then Card::Reference.repair_all
+  when :clear_view_cache     then Card::Cache::ViewCache.reset
+  when :delete_old_revisions then Card::Action.delete_old
+  when :repair_permissions   then Card.repair_all_permissions
+  when :clear_solid_cache    then Card.clear_solid_cache
+  when :clear_machine_cache  then Card.reset_all_machines
+  else
+    task_data = tasks.find { |h| h[:name].to_sym == task }
+    task_data[:execute_policy].call if task_data
+  end
+  abort :success
+end
+
+format :html do
+  view :core do |_args|
+    stats = card_stats
+    stats += cache_stats
+    stats += memory_stats
+    card.tasks.each do |task|
+      stats += Array.wrap task[:stats]
+    end
+    table_content = stats.map { |args| stat_row(args) }
+    table table_content, header: %w(Stat Value Action)
+  end
+
+  def card_stats
+    [
+      { title: "cards",
+        count: Card.where(trash: false) },
+      { title: "actions",
+        count: Card::Action,
+        link_text: "delete old",
+        task: "delete_old_revisions" },
+      { title: "references",
+        count: Card::Reference,
+        link_text: "repair all",
+        task: "repair_references" }
+    ]
+  end
+
+  def cache_stats
+    stats = [
+      { title: "solid cache",
+        count: solid_cache_count, unit: " cards",
+        link_text: "clear cache",
+        task: "clear_solid_cache" },
+      { title: "machine cache",
+        count: machine_cache_count, unit: " cards",
+        link_text: "clear cache",
+        task: "clear_machine_cache" }
+    ]
+    return stats unless Card.config.view_cache
+    stats << { title: "view cache",
+               count: Card::Cache::ViewCache,
+               link_text: "clear view cache",
+               task: "clear_view_cache" }
+  end
+
+  def memory_stats
+    oldmem = session[:memory]
+    session[:memory] = newmem = card.profile_memory
+    stats = [
+      { title: "memory now",
+        count: newmem, unit: "M",
+        link_text: "clear cache", task: "clear_cache" }
+    ]
+    return stats unless oldmem
+    stats << { title: "memory prev", count: oldmem, unit: "M" }
+    stats << { title: "memory diff", count: newmem - oldmem, unit: "M" }
+    stats
+  end
+
+  def stat_row args={}
+    res = [(args[:title] || "")]
+    res << "#{count(args[:count])}#{args[:unit]}"
+    return res unless args[:task]
+    path = card_path("update/:admin?task=#{args[:task]}")
+    res << link_to(args[:link_text] || args[:task], path)
+    res
+  end
+
+  def count counter
+    counter = counter.call if counter.is_a?(Proc)
+    counter.respond_to?(:count) ? counter.count : counter
+  end
+
+  def solid_cache_count
+    Card.search right: { codename: "solid_cache" }, return: "count"
+  end
+
+  def machine_cache_count
+    Card.search right: { codename: "machine_cache" }, return: "count"
+  end
+
+  def delete_sessions_link months
+    link_to months,
+            card_path("update/:admin?task=delete_old_sessions&months=#{months}")
+  end
+end
+
+def current_memory_usage
+  `ps -o rss= -p #{Process.pid}`.to_i
+end
+
+def profile_memory &block
+  before = current_memory_usage
+  if block_given?
+    instance_eval(&block)
+  else
+    before = 0
+  end
+  (current_memory_usage - before) / 1024.to_i
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/admin.rb ~~
+end;end;end;end;

data/tmpsets/set/mod001-admin/self/admin_info.rb

@@ -0,0 +1,110 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module AdminInfo; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/admin_info.rb ~~
+def clean_html?
+  false
+end
+
+format :html do
+  view :core do
+    warnings = []
+    if Card.config.action_mailer.perform_deliveries == false
+      warnings << email_warning
+    end
+    if Card.config.recaptcha_public_key ==
+       Card::Auth::Permissions::RECAPTCHA_DEFAULTS[:recaptcha_public_key] &&
+       card.rule(:captcha) == "1"
+      warnings << recaptcha_warning
+    end
+    return "" if warnings.empty?
+    alert :warning, dismissible: true do
+      render_warning_list warnings
+    end
+  end
+
+  def render_warning_list warnings
+    # 'ADMINISTRATOR WARNING'
+    admin_warn = I18n.t(:admin_warn,
+                        scope: "mod.admin.set.self.admin_info")
+    "<h6>#{admin_warn}</h6>".html_safe + list_group(
+      warnings,
+      items: { class: "list-group-item-warning" }
+    )
+  end
+
+  def email_warning
+    # "Email delivery is turned off."
+    # "Change settings in config/application.rb to send sign up notifications."
+    I18n.t(:email_off,
+           scope: "mod.admin.set.self.admin_info",
+           path: "config/application.rb")
+  end
+
+  def recaptcha_warning
+    warning =
+      if Card::Env.localhost?
+        # %(Your captcha is currently working with temporary settings.
+        #   This is fine for a local installation, but you will need new
+        #   recaptcha keys if you want to make this site public.)
+        I18n.t(:captcha_temp, scope: "mod.admin.set.self.admin_info")
+      else
+        # %(You are configured to use [[*captcha]], but for that to work
+        #   you need new recaptcha keys.)
+        process_content(I18n.t(:captcha_keys,
+                               scope: "mod.admin.set.self.admin_info"))
+      end
+    # 'Instructions'
+    instructions = I18n.t(:instructions,
+                          scope: "mod.admin.set.self.admin_info")
+    <<-HTML
+      <p>
+        #{warning}
+      </p>
+      <h4>#{instructions}</h4>
+      #{howto_add_new_recaptcha_keys}
+      #{howto_turn_captcha_off}
+    HTML
+  end
+
+  def instructions title, steps
+    steps = list_group steps
+    "#{title}#{steps}"
+  end
+
+  def howto_add_new_recaptcha_keys
+    instructions(
+      # 'How to add new recaptcha keys:'
+      I18n.t(:howto_add_keys, scope: "mod.admin.set.self.admin_info"),
+      [
+        # "1. Register your domain at #{web_link 'http://google.com/recaptcha'}"
+        I18n.t(:howto_register,
+               scope: "mod.admin.set.self.admin_info",
+               recaptcha_link: web_link("http://google.com/recaptcha")),
+        # "2. Add your keys to #{card_link :recaptcha_settings}"
+        I18n.t(:howto_add,
+               scope: "mod.admin.set.self.admin_info",
+               recaptcha_settings: card_link(:recaptcha_settings))
+      ]
+    )
+  end
+
+  def howto_turn_captcha_off
+    instructions(
+      # 'How to turn captcha off:'
+      I18n.t(:howto_turn_off, scope: "mod.admin.set.self.admin_info"),
+      [
+        # "1. Go to #{card_link :captcha}"
+        I18n.t(:howto_go,
+               scope: "mod.admin.set.self.admin_info",
+               captcha_card: card_link(:captcha)),
+        # '2. Update all *captcha rules to "no".'
+        I18n.t(:howto_update,
+               scope: "mod.admin.set.self.admin_info")
+      ]
+    )
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/admin_info.rb ~~
+end;end;end;end;

data/tmpsets/set/mod001-admin/self/version.rb

@@ -0,0 +1,15 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self; module Version; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/version.rb ~~
+# -*- encoding : utf-8 -*-
+require_dependency "card/version"
+
+view :raw do |_args|
+  Card::Version.release
+end
+
+view :core, :raw
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/admin/set/self/version.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/abstract/code_file.rb

@@ -0,0 +1,79 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract; module CodeFile; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/abstract/code_file.rb ~~
+def self.included host_class
+  host_class.mattr_accessor :file_content_mod_name
+  host_class.file_content_mod_name = mod_name(caller)
+end
+
+# try to extract the mod name from the path of the set's tmp file
+# the caller that included the set file is set.rb
+def self.mod_name backtrace
+  mod_dir = tmp_mod_dir backtrace
+  raise Error, "not a valid set path: #{path}" unless mod_dir
+  match = mod_dir.match(/^mod\d+-(?<mod_name>.+)$/)
+  match[:mod_name]
+end
+
+def self.tmp_mod_dir backtrace
+  path = backtrace.find { |line| line.include? "tmp/set/" }
+  raise Error, "couldn't find set path in backtrace: #{backtrace}" unless path
+  path_parts = path.split(File::SEPARATOR)
+  path_parts.fetch(path_parts.index("set") + 1) do
+    raise Error, "not a valid set path: #{path}"
+  end
+end
+
+# @return [Array<String>, String] the name of file(s) to be loaded
+def source_files
+  case type_id
+  when CoffeeScriptID then "#{codename}.js.coffee"
+  when JavaScriptID then "#{codename}.js"
+  when CssID then "#{codename}.css"
+  when ScssID then "#{codename}.scss"
+  end
+end
+
+def source_dir
+  case type_id
+  when CoffeeScriptID, JavaScriptID then "javascript"
+  when CssID, ScssID then "stylesheets"
+  end
+end
+
+def find_file filename
+  Card.paths["mod"].to_a.each do |mod_path|
+    file_path =
+      File.join(mod_path, file_content_mod_name, "lib", source_dir, filename)
+    return file_path if File.exist? file_path
+  end
+  nil
+end
+
+def existing_source_paths
+  Array.wrap(source_files).map do |filename|
+    find_file(filename)
+  end.compact
+end
+
+view :raw do |_args|
+  Array.wrap(card.source_files).map do |filename|
+    if (source_path = card.find_file(filename))
+      Rails.logger.info "reading file: #{source_path}"
+      File.read source_path
+    else
+      Rails.logger.info "couldn't locate file: #{filename}"
+      nil
+    end
+  end.compact.join "\n"
+end
+
+format :html do
+  view :editor do |_args|
+    "Content is stored in file and can't be edited."
+  end
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/abstract/code_file.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/actify.rb

@@ -0,0 +1,101 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module Actify; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/actify.rb ~~
+
+# The Card#abort method is for cleanly exiting an action without continuing
+# to process any further events.
+#
+# Three statuses are supported:
+#
+#   failure: adds an error, returns false on save
+#   success: no error, returns true on save
+#   triumph: similar to success, but if called on a subcard
+#            it causes the entire action to abort (not just the subcard)
+def abort status, msg="action canceled"
+  director.abort
+  if status == :failure && errors.empty?
+    errors.add :abort, msg
+  elsif status.is_a?(Hash) && status[:success]
+    success << status[:success]
+    status = :success
+  end
+  raise Card::Error::Abort.new(status, msg)
+end
+
+module ClassMethods
+  def create! opts
+    card = Card.new opts
+    card.act do
+      card.save!
+    end
+    card
+  end
+
+  def create opts
+    card = Card.new opts
+    card.act do
+      card.save
+    end
+    card
+  end
+end
+
+def save!(*)
+  act { super }
+end
+
+def save(*)
+  act { super }
+end
+
+def valid?(*)
+  act { super }
+end
+
+def update_attributes *args
+  act(*args) { super }
+end
+
+def update_attributes! *args
+  act(*args) { super }
+end
+
+def abortable
+  yield
+rescue Card::Error::Abort => e
+  if e.status == :triumph
+    @supercard ? raise(e) : true
+  elsif e.status == :success
+    if @supercard
+      @supercard.subcards.delete key
+      @supercard.director.subdirectors.delete self
+      expire_soft
+    end
+    true
+  end
+end
+
+# this is an override of standard rails behavior that rescues abort
+# makes it so that :success abortions do not rollback
+def with_transaction_returning_status
+  status = nil
+  self.class.transaction do
+    add_to_transaction
+    status = abortable { yield }
+    raise ActiveRecord::Rollback unless status
+  end
+  status
+end
+
+event :notable_exception_raised do
+  error = Card::Error.current
+  Rails.logger.debug "#{error.message}\n#{error.backtrace * "\n  "}"
+end
+
+def success
+  Env.success(cardname)
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/actify.rb ~~
+end;end;end;end;

data/tmpsets/set/mod002-core/all/active_card.rb

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All; module ActiveCard; extend Card::Set
+# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/active_card.rb ~~
+=begin
+
+# following may be useful, but is neither tested nor in use
+
+def card_attributes
+  if Card::Set.traits
+    set_modules.each do |mod|
+      if mod_traits = Card::Set.traits[mod]
+        return mod_traits
+      end
+    end
+  end
+  nil
+end
+
+def trait_var? var_name
+  !instance_variable_get( var_name ).nil?
+end
+
+=end
+
+def trait_var _var_name, &_block
+  # FIXME: - following optimization attempt needs to handle cache clearing!
+  #  instance_variable_get var_name or begin
+  #    instance_variable_set var_name, block_given? ? yield : raise("no block?")
+  #  end
+  yield
+end
+
+# FIXME: -this needs a better home!
+def format opts={}
+  opts = { format: opts.to_sym } if [Symbol, String].member? opts.class
+
+  Card::Format.new self, opts
+end
+
+
+# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/active_card.rb ~~
+end;end;end;end;