card 1.99.1 → 1.99.6

data/mod/tinymce_editor/set/all/reference_editor/reference_editor.haml

@@ -0,0 +1,18 @@
+%div._nest-editor
+  .nest-header.d-flex.ml-2
+    %h5.mt-1
+      = ref_type.capitalize
+    .ml-auto
+      = link_to fa_icon(:close), path: "#", "data-dismiss": editor_mode, class: "text-dark p-1 ml-1"
+
+  .form
+    = haml_partial "#{ref_type}_editor", snippet: snippet
+
+  .card-footer.p-0
+    .preview.mx-1.my-1.form-control-feedback
+      = text_field_tag "preview", snippet.raw, class: "_#{ref_type}-preview w-100 text-muted", readonly: true
+    %hr.mt-1.mb-1
+    .form-group-inline.d-flex.justify-content-center.py-2
+      = button_tag (modal_tm_snippet_editor? ? "Apply and Close" : "Apply"), apply_opts.merge(class: "_#{ref_type}-apply btn-sm mr-3")
+      %a.border-light.text-dark.btn.btn-sm.btn-outline-secondary{"data-dismiss": editor_mode, href: "#"}
+        = modal_tm_snippet_editor? ? "Cancel" : "Close"

data/tmpsets/set/{mod002-admin → mod001-admin}/self/admin.rb

@@ -1,55 +1,31 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Self
-# Set: The card "Admin"
-#
+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
-module Admin;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/admin.rb"; end
 # [task symbol, { execute_policy: block, stats_policy: block }]
 basket :tasks
 
-def run_task_from_task_basket task
-  task = task.to_sym
-  task_data = tasks.find {|h| h[:name].to_sym == task.to_sym}
-  if !irreversibles_tasks_allowed? && task_data[:irreversible]
-    not_allowed task_data[:stats][:link_text]
-  else
-    task_data[:execute_policy].call if task_data
-  end
-end
-
 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
-  when :clear_script_cache   then Card.reset_script_machine
-  when :clear_history
-    not_allowed "clear history" unless irreversibles_tasks_allowed?
-    Card::Action.delete_old
   else
-    run_task_from_task_basket task
+    task_data = tasks.find { |h| h[:name].to_sym == task }
+    task_data[:execute_policy].call if task_data
   end
   abort :success
 end
 
-def not_allowed task
-  raise Card::Error::PermissionDenied,
-        "The admin task '#{task}' is disabled for security reasons.<br>"\
-        "You can enable it with the config option 'allow_irreversible_admin_tasks'"
-end
-
-def irreversibles_tasks_allowed?
-  Cardio.config.allow_irreversible_admin_tasks
-end
-
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :core, cache: :never do
+format :html do
+  view :core do |_args|
     stats = card_stats
     stats += cache_stats
     stats += memory_stats
@@ -57,7 +33,7 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
       stats += Array.wrap task[:stats]
     end
     table_content = stats.map { |args| stat_row(args) }
-    table table_content, header: %w[Stat Value Action]
+    table table_content, header: %w(Stat Value Action)
   end
 
   def card_stats
@@ -65,32 +41,32 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
       { title: "cards",
         count: Card.where(trash: false) },
       { title: "actions",
-        count: Card::Action },
-      #  link_text: "clear history",
-      #  task: "clear_history" },
+        count: Card::Action,
+        link_text: "delete old",
+        task: "delete_old_revisions" },
       { title: "references",
-        count: Card::Reference }
-      # link_text: "repair all",
-      # task: "repair_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 solid cache",
+        link_text: "clear cache",
         task: "clear_solid_cache" },
       { title: "machine cache",
         count: machine_cache_count, unit: " cards",
-        link_text: "clear machine cache",
+        link_text: "clear cache",
         task: "clear_machine_cache" }
     ]
-    # return stats unless Card.config.view_cache#
-    # stats << { title: "view cache",
-    #            count: Card::View,
-    #            link_text: "clear view cache",
-    #            task: "clear_view_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
@@ -111,8 +87,8 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
     res = [(args[:title] || "")]
     res << "#{count(args[:count])}#{args[:unit]}"
     return res unless args[:task]
-    res << link_to_card(:admin, (args[:link_text] || args[:task]),
-                        path: { action: :update, task: args[:task] })
+    path = card_path("update/:admin?task=#{args[:task]}")
+    res << link_to(args[:link_text] || args[:task], path)
     res
   end
 
@@ -126,12 +102,12 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
   end
 
   def machine_cache_count
-    Card::Virtual.where(right_id: MachineCacheID).count
+    Card.search right: { codename: "machine_cache" }, return: "count"
   end
 
   def delete_sessions_link months
-    link_to_card :admin, months, path: { action: :update, months: months,
-                                         task: "delete_old_sessions" }
+    link_to months,
+            card_path("update/:admin?task=delete_old_sessions&months=#{months}")
   end
 end
 
@@ -148,5 +124,7 @@ def profile_memory &block
   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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/admin.rb ~~

data/tmpsets/set/{mod002-admin → mod001-admin}/self/admin_info.rb

@@ -1,15 +1,11 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class Self
-# Set: The card "AdminInfo"
-#
-module AdminInfo;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/admin_info.rb"; end
+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
 
-module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+format :html do
   view :core do
     warnings = []
     if Card.config.action_mailer.perform_deliveries == false
@@ -21,21 +17,19 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
       warnings << recaptcha_warning
     end
     return "" if warnings.empty?
-    alert :warning, true do
-      warning_list warnings
+    alert :warning, dismissible: true do
+      render_warning_list warnings
     end
   end
 
-  def warning_list warnings
+  def render_warning_list warnings
     # 'ADMINISTRATOR WARNING'
-    admin_warn = I18n.t(:admin_warn, scope: "mod.admin.set.self.admin_info")
-    "<h5>#{admin_warn}</h5>" + warnings.join("\n")
-  end
-
-  def warning_list_with_auto_scope warnings
-    # 'ADMINISTRATOR WARNING'
-    admin_warn = tr(:admin_warn)
-    "<h5>#{admin_warn}</h5>" + warnings.join("\n")
+    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
@@ -66,43 +60,51 @@ module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, s
       <p>
         #{warning}
       </p>
-      <h5>#{instructions}</h5>
+      <h4>#{instructions}</h4>
       #{howto_add_new_recaptcha_keys}
       #{howto_turn_captcha_off}
     HTML
   end
 
   def instructions title, steps
-    steps = list_tag steps, ordered: true
+    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: link_to_resource("http://google.com/recaptcha")),
+               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: link_to_card(:recaptcha_settings))
+               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: link_to_card(:captcha)),
+               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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/admin_info.rb ~~

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/{mod003-core/all/abort.rb → mod002-core/all/actify.rb}

@@ -1,10 +1,6 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (Abort)
-#
-module Abort;
-extend Card::Set
-def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/abort.rb"; end
+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.
@@ -26,34 +22,57 @@ def abort status, msg="action canceled"
   raise Card::Error::Abort.new(status, msg)
 end
 
-def aborting
-  yield
-  errors.any? ? abort(:failure) : abort(:success)
+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 abortable
-  yield
-rescue Card::Error::Abort => e
-  handle_abort_error e
+def save!(*)
+  act { super }
+end
+
+def save(*)
+  act { super }
 end
 
-private
+def valid?(*)
+  act { super }
+end
+
+def update_attributes *args
+  act(*args) { super }
+end
 
-def handle_abort_error e
+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
-    abort_success
-  end
-end
-
-def abort_success
-  if @supercard
-    @supercard.subcards.delete key
-    @supercard.director.subdirectors.delete self
-    expire :soft
+    if @supercard
+      @supercard.subcards.delete key
+      @supercard.director.subdirectors.delete self
+      expire_soft
+    end
+    true
   end
-  true
 end
 
 # this is an override of standard rails behavior that rescues abort
@@ -68,17 +87,15 @@ def with_transaction_returning_status
   status
 end
 
-# FIXME: these two do not belong here!
-
-public
-
 event :notable_exception_raised do
   error = Card::Error.current
   Rails.logger.debug "#{error.message}\n#{error.backtrace * "\n  "}"
 end
 
 def success
-  Env.success(name)
+  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;
-# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/abort.rb ~~