card 1.97.0.1 → 1.98.0

data/tmpsets/set/mod001-utility/abstract/media.rb

@@ -0,0 +1,42 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (Media)
+#
+module Media;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/utility/set/abstract/media.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  def image_card
+    @image_card ||= card.fetch(trait: :image)
+  end
+
+  def image_src opts
+    return "" unless image_card
+    nest(image_card, view: :source, size: opts[:size])
+  end
+
+  def image_alt
+    image_card&.name
+  end
+
+  def text_with_image opts={}
+    class_up "media-left", "m-2"
+    @image_card = Card.cardish(opts[:image]) if opts[:image]
+    haml :media_snippet, normalized_text_with_image_opts(opts)
+  end
+
+  private
+
+  def normalized_text_with_image_opts opts
+    opts.reverse_merge! title: _render_title,
+                        text: "",
+                        src: image_src(opts),
+                        alt: image_alt,
+                        size: :original,
+                        media_opts: {},
+                        media_left_extras: "",
+                        media_left: ""
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/utility/set/abstract/media.rb ~~

data/tmpsets/set/mod001-utility/abstract/utility.rb

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (Utility)
+#
+module Utility;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/utility/set/abstract/utility.rb"; end
+
+def fetch_params params
+  Env.params.select { |key, val| val && params.include?(key) }
+     .with_indifferent_access
+end
+
+def param_to_i key, default
+  if (value = Env.params[key])
+    value.to_i
+  else
+    default
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/utility/set/abstract/utility.rb ~~

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

@@ -1,31 +1,55 @@
 # -*- 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 ~~
+class Card; module Set; class Self
+# Set: The card "Admin"
+#
 # 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
-    task_data = tasks.find { |h| h[:name].to_sym == task }
-    task_data[:execute_policy].call if task_data
+    run_task_from_task_basket task
   end
   abort :success
 end
 
-format :html do
-  view :core do |_args|
+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
     stats = card_stats
     stats += cache_stats
     stats += memory_stats
@@ -33,7 +57,7 @@ format :html do
       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
@@ -41,32 +65,32 @@ format :html do
       { title: "cards",
         count: Card.where(trash: false) },
       { title: "actions",
-        count: Card::Action,
-        link_text: "delete old",
-        task: "delete_old_revisions" },
+        count: Card::Action },
+      #  link_text: "clear history",
+      #  task: "clear_history" },
       { 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 cache",
+        link_text: "clear solid cache",
         task: "clear_solid_cache" },
       { title: "machine cache",
         count: machine_cache_count, unit: " cards",
-        link_text: "clear cache",
+        link_text: "clear machine 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" }
+    # return stats unless Card.config.view_cache#
+    # stats << { title: "view cache",
+    #            count: Card::View,
+    #            link_text: "clear view cache",
+    #            task: "clear_view_cache" }
   end
 
   def memory_stats
@@ -87,8 +111,8 @@ format :html do
     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 << link_to_card(:admin, (args[:link_text] || args[:task]),
+                        path: { action: :update, task: args[:task] })
     res
   end
 
@@ -102,12 +126,12 @@ format :html do
   end
 
   def machine_cache_count
-    Card.search right: { codename: "machine_cache" }, return: "count"
+    Card::Virtual.where(right_id: MachineCacheID).count
   end
 
   def delete_sessions_link months
-    link_to months,
-            card_path("update/:admin?task=delete_old_sessions&months=#{months}")
+    link_to_card :admin, months, path: { action: :update, months: months,
+                                         task: "delete_old_sessions" }
   end
 end
 
@@ -124,7 +148,5 @@ 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/{mod001-admin → mod002-admin}/self/admin_info.rb

@@ -1,11 +1,15 @@
 # -*- 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 ~~
+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
 def clean_html?
   false
 end
 
-format :html do
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
   view :core do
     warnings = []
     if Card.config.action_mailer.perform_deliveries == false
@@ -17,19 +21,21 @@ format :html do
       warnings << recaptcha_warning
     end
     return "" if warnings.empty?
-    alert :warning, dismissible: true do
-      render_warning_list warnings
+    alert :warning, true do
+      warning_list warnings
     end
   end
 
-  def render_warning_list warnings
+  def 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" }
-    )
+    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")
   end
 
   def email_warning
@@ -60,51 +66,43 @@ format :html do
       <p>
         #{warning}
       </p>
-      <h4>#{instructions}</h4>
+      <h5>#{instructions}</h5>
       #{howto_add_new_recaptcha_keys}
       #{howto_turn_captcha_off}
     HTML
   end
 
   def instructions title, steps
-    steps = list_group steps
+    steps = list_tag steps, ordered: true
     "#{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}"
+               recaptcha_link: link_to_resource("http://google.com/recaptcha")),
         I18n.t(:howto_add,
                scope: "mod.admin.set.self.admin_info",
-               recaptcha_settings: card_link(:recaptcha_settings))
+               recaptcha_settings: link_to_card(: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".'
+               captcha_card: link_to_card(:captcha)),
         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/mod002-admin/self/recaptcha_proxy.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "RecaptchaProxy"
+#
+module RecaptchaProxy;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_proxy.rb"; end
+event :set_recaptcha_proxy, :finalize do
+  Card.config.recaptcha_proxy = content
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_proxy.rb ~~

data/tmpsets/set/mod002-admin/self/recaptcha_secret_key.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "RecaptchaSecretKey"
+#
+module RecaptchaSecretKey;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_secret_key.rb"; end
+event :validate_recaptcha_secret_key, :validate do
+  return if content.match?(/^[a-zA-Z0-9\-_]*$/)
+
+  errors.add :content, "invalid key" # LOCALIZE
+end
+
+event :set_recaptcha_secret_key, :finalize do
+  Card.config.recaptcha_secret_key = content
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_secret_key.rb ~~

data/tmpsets/set/mod002-admin/self/recaptcha_site_key.rb

@@ -0,0 +1,18 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "RecaptchaSiteKey"
+#
+module RecaptchaSiteKey;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_site_key.rb"; end
+event :validate_recaptcha_site_key, :validate do
+  return if content.match?(/^[a-zA-Z0-9\-_]*$/)
+
+  errors.add :content, "invalid key" # LOCALIZE
+end
+
+event :set_recaptcha_site_key, :finalize do
+  Card.config.recaptcha_site_key = content
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/recaptcha_site_key.rb ~~

data/tmpsets/set/mod002-admin/self/trash.rb

@@ -0,0 +1,72 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Trash"
+#
+module Trash;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/trash.rb"; end
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :core do
+    rows = trashed_cards.map { |tc| trash_table_row(tc) }
+    output [
+      restored,
+      (empty_trash_link if rows.present?),
+      table(rows, header: ["card", "deleted", "by", ""])
+    ]
+  end
+
+  def trashed_cards
+    Card.where(trash: true).order(updated_at: :desc)
+  end
+
+  def trash_table_row card
+    [
+      card.name,
+      "#{time_ago_in_words(card.updated_at)} ago",
+      Card[card.updater_id].name,
+      "#{history_link(card)} | #{restore_link(card)}"
+    ]
+  end
+
+  def restored
+    return unless (res_id = Env.params[:restore]) &&
+                  (res_card = Card[res_id.to_i])
+    alert :success, true do
+      wrap_with(:h5, "restored") + subformat(res_card).render_closed
+    end
+  end
+
+  def empty_trash_link
+    wrap_with(
+      :p,
+      button_link("empty trash",
+                  btn_type: :default,
+                  path: { mark: :admin, action: :update, task: :empty_trash,
+                          success: { id: "~#{card.id}" } },
+                  "data-confirm" => "Are you sure you want to delete "\
+                                    "all cards in the trash?")
+    )
+  end
+
+  def history_link trashed_card
+    link_to_card trashed_card, "history",
+                 path: { view: :history, look_in_trash: true }
+  end
+
+  def restore_link trashed_card
+    before_delete = trashed_card.actions[-2]
+    link_to "restore", method: :post,
+                       rel: "nofollow",
+                       remote: true,
+                       class: "slotter",
+                       path: { id: trashed_card.id,
+                               view: :open,
+                               look_in_trash: true,
+                               action: :update,
+                               restore: trashed_card.id,
+                               action_ids: [before_delete],
+                               success: { id: "~#{card.id}" } }
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/trash.rb ~~