card 1.18.6 → 1.19.0

data/mod/ace_editor/db/migrate_cards/20160804112538_add_ace_cards.rb

@@ -0,0 +1,30 @@
+# -*- encoding : utf-8 -*-
+
+class AddAceCards < Card::Migration
+  ACE_CONFIG = <<-JSON.strip_heredoc
+                 {
+                   "default": {
+                     "showGutter": true,
+                     "theme": "ace/theme/github",
+                     "printMargin": false,
+                     "tabSize": 2,
+                     "useSoftTabs": true,
+                     "maxLines": 30
+                   }
+                 }
+               JSON
+  def up
+    ensure_card name: "*Ace", type_id: Card::PlainTextID,
+                codename: "ace", content: ACE_CONFIG
+    create_or_update(
+      name: "*Ace+*self+*help",
+      content: "Configure [[https://ace.c9.io|ace]], "\
+               "Wagn's default code editor. [[http://wagn.org/ace|more]]"
+    )
+    ensure_card name: "script: ace", type_id: Card::JavaScriptID,
+                codename: "script_ace"
+    ensure_card name: "script: ace config",
+                type_id: Card::CoffeeScriptID,
+                codename: "script_ace_config"
+  end
+end

data/mod/ace_editor/lib/javascript/script_ace_config.js.coffee

@@ -0,0 +1,71 @@
+wagn.addEditor(
+  '.ace-editor-textarea',
+  ->
+    wagn.initAce $(this),
+  ->
+    aceEditorContent this[0]
+)
+
+$.extend wagn,
+  setAceConfig: (string) ->
+    setter = ->
+      try
+        $.parseJSON string
+      catch
+        {}
+    wagn.aceConfig = setter()
+
+  configAceEditor: (editor, mode) ->
+    conf = {
+      showGutter: true,
+      theme: "ace/theme/github",
+      printMargin: false,
+      tabSize: 2,
+      useSoftTabs: true,
+      maxLines: 30
+    }
+    hard_conf = {
+      mode: "ace/mode/" + mode
+    }
+    user_conf = if wagn.aceConfig? then wagn.aceConfig else {}
+    $.extend conf, user_conf['default'], user_conf[mode], hard_conf
+    editor.setOptions conf
+
+  initAce: (textarea) ->
+    mode = textarea.attr "data-ace-mode"
+    unless mode
+      textarea.autosize()
+      return
+    editDiv = $("<div>",
+      position: "absolute"
+      width: "auto"
+      height: textarea.height()
+    ).insertBefore(textarea)
+    textarea.css "visibility", "hidden"
+    textarea.css "height", "0px"
+    ace.config.set('basePath','/assets/ace')
+    editor = ace.edit(editDiv[0])
+    editor.getSession().setValue textarea.val()
+    wagn.configAceEditor(editor, mode)
+    return
+
+aceEditorContent = (element) ->
+  ace_div = $(element).siblings(".ace_editor")
+  editor = ace.edit(ace_div[0])
+  editor.getSession().getValue()
+
+
+
+
+$.extend wagn,
+
+
+  initProseMirror: (el_id) ->
+    conf = {
+      menuBar: true,
+      tooltipMenu: false
+    }
+    hard_conf = { docFormat: "html" }
+    user_conf = if wagn.proseMirrorConfig? then wagn.proseMirrorConfig else {}
+    $.extend conf, user_conf, hard_conf
+    createProseMirror(el_id, conf)

data/mod/ace_editor/set/abstract/ace_editor.rb

@@ -0,0 +1,11 @@
+format :html do
+  def default_editor_args args
+    args[:ace_mode] ||= "html"
+  end
+
+  view :editor do |args|
+    text_area :content, rows: 5,
+                        class: "card-content ace-editor-textarea",
+                        "data-ace-mode" => args[:ace_mode]
+  end
+end

data/mod/ace_editor/set/self/script_ace.rb

@@ -0,0 +1,3 @@
+include_set Abstract::CodeFile
+
+Self::ScriptMods.add_to_basket :item_codenames, :script_ace

data/mod/ace_editor/set/self/script_ace_config.rb

@@ -0,0 +1,5 @@
+include_set Abstract::CodeFile
+
+Self::ScriptEditors.add_to_basket :item_codenames, :script_ace_config
+Self::Head::Javascript::HtmlFormat.add_to_basket :mod_js_config,
+                                                 [:ace, "setAceConfig"]

data/mod/admin/set/self/admin.rb

@@ -0,0 +1,106 @@
+event :admin_tasks, :initialize, on: :update do
+  return unless (task = Env.params[:task])
+  raise Card::Error::PermissionDenied.new(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 :empty_trash          then Card.empty_trash
+  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
+  end
+  abort :success
+end
+
+format :html do
+  view :core do |_args|
+    stats = card_stats
+    stats += cache_stats
+    stats += memory_stats
+    table_content = stats.map { |args| stat_row(*args) }
+    table table_content, header: %w(Stat Value Action)
+  end
+
+  def card_stats
+    [
+      ["cards",         { count: Card.where(trash: false) }],
+      ["trashed cards", { count: Card.where(trash: true),
+                          link_text: "delete all", task: "empty_trash" }],
+      ["actions",       { count: Card::Action,
+                          link_text: "delete old",
+                          task: "delete_old_revisions" }],
+      ["references",    { count: Card::Reference,
+                          link_text: "repair all", task: "repair_references" }]
+    ]
+  end
+
+  def cache_stats
+    stats = [
+      ["solid cache", { count: solid_cache_count, unit: " cards",
+                        link_text: "clear cache",
+                        task: "clear_solid_cache" }],
+      ["machine cache", { count: machine_cache_count, unit: " cards",
+                          link_text: "clear cache",
+                          task: "clear_machine_cache" }]
+    ]
+    return stats unless Card.config.view_cache
+    stats <<
+      ["view cache", { count: Card::Cache::ViewCache,
+                       link_text: "clear view cache",
+                       task: "clear_view_cache" }]
+    stats
+  end
+
+  def memory_stats
+    oldmem = session[:memory]
+    session[:memory] = newmem = card.profile_memory
+    stats = [
+      ["memory now", { count: newmem, unit: "M",
+                       link_text: "clear cache", task: "clear_cache" }]
+    ]
+    return stats unless oldmem
+    stats << ["memory prev", { count: oldmem, unit: "M" }]
+    stats << ["memory diff", { count: newmem - oldmem, unit: "M" }]
+    stats
+  end
+
+  def stat_row name, args={}
+    res = [name]
+    args[:count] = args[:count].count if args[:count].respond_to?(:count)
+    res << "#{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 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

data/mod/admin/set/self/admin_info.rb

@@ -0,0 +1,103 @@
+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.standard.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.standard.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.standard.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.standard.set.self.admin_info"))
+      end
+    # 'Instructions'
+    instructions = I18n.t(:instructions,
+                          scope: "mod.standard.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.standard.set.self.admin_info"),
+      [
+        # "1. Register your domain at #{web_link 'http://google.com/recaptcha'}"
+        I18n.t(:howto_register,
+               scope: "mod.standard.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.standard.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.standard.set.self.admin_info"),
+      [
+        # "1. Go to #{card_link :captcha}"
+        I18n.t(:howto_go,
+               scope: "mod.standard.set.self.admin_info",
+               captcha_card: card_link(:captcha)),
+        # '2. Update all *captcha rules to "no".'
+        I18n.t(:howto_update,
+               scope: "mod.standard.set.self.admin_info")
+      ]
+    )
+  end
+end

data/mod/admin/set/self/version.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require_dependency "card/version"
+
+view :raw do |_args|
+  Card::Version.release
+end
+
+view :core, :raw

data/mod/admin/spec/set/self/admin_spec.rb

@@ -0,0 +1,50 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Admin do
+  it "should render a table" do
+    Card::Auth.as_bot do
+      @core = render_card :core, name: :admin
+    end
+    assert_view_select @core, "table"
+  end
+
+  context "#update" do
+    before do
+      @admin = Card[:admin]
+    end
+
+    it "should trigger empty trash (with right params)" do
+      Card::Auth.as_bot do
+        Card["A"].delete!
+        expect(Card.where(trash: true)).not_to be_empty
+        Card::Env.params[:task] = :empty_trash
+        @admin.update_attributes({})
+        expect(Card.where(trash: true)).to be_empty
+      end
+    end
+
+    it "should trigger deleting old revisions (with right params)" do
+      Card::Auth.as_bot do
+        a = Card["A"]
+        a.update_attributes! content: "a new day"
+        a.update_attributes! content: "another day"
+        expect(a.actions.count).to eq(3)
+        Card::Env.params[:task] = :delete_old_revisions
+        @admin.update_attributes({})
+        expect(a.actions.count).to eq(1)
+      end
+    end
+
+    #     it 'should be trigger reference repair' do
+    #       Card::Auth.as_bot do
+    #         a = Card['A']
+    #         puts a.references_out.count
+    #         Card::Env.params[:task] = :repair_references
+    #         puts a.references_out.count
+    #         @all.update_attributes({})
+    #         puts a.references_out.count
+    #
+    #       end
+    #     end
+  end
+end

data/mod/admin/spec/set/self/version_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+
+describe Card::Set::Self::Version do
+  it "should have an X.X.X version" do
+    expect(render_card(:raw, name: "*version") =~ /\d\.\d+\.\w+/).to be_truthy
+  end
+end

data/mod/basic_formats/format/css_format.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+class Card
+  class Format
+    class CssFormat < Format
+      register :css
+    end
+  end
+end

data/mod/basic_formats/format/csv_format.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+class Card
+  class Format
+    class CsvFormat < TextFormat
+      register :csv
+    end
+  end
+end

data/mod/basic_formats/format/file_format.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+class Card
+  class Format
+    class FileFormat < Format
+    end
+  end
+end

data/mod/basic_formats/format/js_format.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+class Card
+  class Format
+    class JsFormat < Format
+      register :js
+    end
+  end
+end