card 1.99.6 → 1.100.0

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/mod002-admin/self/admin_info.rb

@@ -0,0 +1,57 @@
+# -*- 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
+basket :warnings
+
+# For each warning in the basket (eg :my_warning), the core view
+# will run a test by appending a question mark (eg #my_warning?).
+# If it fails it will generate a message by appending message
+# (eg #my_warning_message).
+
+add_to_basket :warnings, :no_email_delivery
+
+def no_email_delivery?
+  Card.config.action_mailer.perform_deliveries == false
+end
+
+def clean_html?
+  false
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :core do
+    warnings = card.warnings.map do |warning|
+      card.send("#{warning}?") ? send("#{warning}_message") : nil
+    end
+    warnings.compact!
+    warnings.empty? ? "" : warning_alert(warnings)
+  end
+
+  def warning_alert warnings
+    admin_warn = I18n.t(:admin_warn, scope: "mod.admin.set.self.admin_info")
+    # 'ADMINISTRATOR WARNING'
+    alert :warning, true do
+      "<h5>#{admin_warn}</h5>" + list_tag(warnings)
+    end
+  end
+
+  def no_email_delivery_message
+    # "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 warning_list_with_auto_scope warnings
+    # 'ADMINISTRATOR WARNING'
+    admin_warn = tr(:admin_warn)
+    "<h5>#{admin_warn}</h5>" + warnings.join("\n")
+  end
+end
+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/debugger.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Debugger"
+#
+module Debugger;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/debugger.rb"; end
+def raw_help_text
+  "show more useful error pages"
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/debugger.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_bar
+    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 ~~

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

@@ -0,0 +1,22 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Self
+# Set: The card "Version"
+#
+# -*- encoding : utf-8 -*-
+
+module Version;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/admin/set/self/version.rb"; end
+# require "card/version"
+
+def ok_to_read
+  true
+end
+
+def content
+  Card::Version.release
+end
+
+# view :core, :raw
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/admin/set/self/version.rb ~~

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

@@ -0,0 +1,91 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (CodeFile)
+#
+module CodeFile;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/abstract/code_file.rb"; end
+def self.included host_class
+  host_class.mattr_accessor :file_content_mod_name
+  host_class.file_content_mod_name = Card::Set.mod_name(caller)
+end
+
+# FIXME: these should abstracted and configured on the types
+# (same codes for `rake card:create:codefile`)
+
+# @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 "lib/javascript"
+  when CssID, ScssID then "lib/stylesheets"
+  else
+    "lib"
+  end
+end
+
+def find_file filename
+  mod_path = Card::Mod.dirs.path file_content_mod_name
+  file_path = File.join(mod_path, source_dir, filename)
+  unless File.exist?(file_path)
+    Rails.logger.info "couldn't locate file #{filename} at #{file_path}"
+    return nil
+  end
+  file_path
+end
+
+def existing_source_paths
+  Array.wrap(source_files).map do |filename|
+    find_file(filename)
+  end.compact
+end
+
+def source_changed? since:
+  existing_source_paths.any? { |path| ::File.mtime(path) > since }
+end
+
+def content
+  Array.wrap(source_files).map do |filename|
+    if (source_path = find_file filename)
+      Rails.logger.info "reading file: #{source_path}"
+      File.read source_path
+    end
+  end.compact.join "\n"
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :input do
+    "Content is stored in file and can't be edited."
+  end
+
+  view :file_size do
+    "#{card.name}: #{number_to_human_size card.content.bytesize}"
+  end
+
+  def short_content
+    fa_icon("exclamation-circle", class: "text-muted pr-2") +
+      wrap_with(:span, "file", class: "text-muted")
+  end
+
+  def standard_submit_button
+    multi_card_editor? ? super : ""
+  end
+end
+
+def coffee_files files
+  files.map { |f| "script_#{f}.js.coffee" }
+end
+
+def scss_files files
+  files.map { |f| "style_#{f}.scss" }
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/abstract/code_file.rb ~~

data/tmpsets/set/mod003-core/abstract/haml_file.rb

@@ -0,0 +1,33 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (HamlFile)
+#
+module HamlFile;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/abstract/haml_file.rb"; end
+
+def self.included host_class
+  host_class.mattr_accessor :template_path
+  host_class.extend Card::Set::Format::HamlPaths
+  host_class.template_path = host_class.haml_template_path
+end
+
+def content
+  File.read template_path
+end
+
+module HtmlFormat; parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
+  view :input do
+    "Content is managed by code and cannot be edited"
+  end
+
+  def haml_locals
+    {}
+  end
+
+  view :core do
+    haml card.content, haml_locals
+  end
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/abstract/haml_file.rb ~~