marty 0.5.12

data/app/components/marty/script_form.rb

@@ -0,0 +1,233 @@
+require 'delorean_lang'
+require 'coderay'
+
+class Marty::ScriptForm < Marty::Form
+  DASH = 0x2012.chr('utf-8')
+
+  css_configure do |c|
+    c.require :codemirror
+    c.require :delorean
+  end
+
+  js_configure do |c|
+    c.require :"Ext.ux.form.field.CodeMirror"
+    c.require :codemirror
+    c.require File.dirname(__FILE__) +
+      "/script_form/javascripts/mode/delorean/delorean.js"
+
+    c.set_action_modes = <<-JS
+    function(a) {
+       this.actions.apply.setDisabled(!a["save"]);
+       // style input field text based on whether it is editable
+       this.getForm().findField('body').editor.setOption(
+          "readOnly", !a["save"]);
+    }
+    JS
+
+    c.get_script_id = <<-JS
+    function() {
+       return this.getForm().findField('id').getValue();
+    }
+    JS
+
+    c.get_script_body = <<-JS
+    function() {
+       return this.getForm().findField('body').getValue();
+    }
+    JS
+
+    # Sets an editor line class (unset any previous line class).  For
+    # now, only one line is classed at a time.
+    c.set_line_error = <<-JS
+    function(line) {
+       line -= 1;
+       var editor = this.getForm().findField('body').editor;
+       if (editor.oldline) {
+          editor.oldline.className = null;
+       }
+       if (line > -1) {
+          editor.oldline = editor.setLineClass(line, "errorline");
+       }
+       editor.refresh();
+    }
+    JS
+
+    ######################################################################
+
+    c.refresh_parent = <<-JS
+    function(script_name) {
+       this.netzkeGetParentComponent().scriptRefresh(script_name);
+    }
+    JS
+
+    ######################################################################
+
+    c.on_print = <<-JS
+    function() {
+       window.open(
+          "/marty/components/#{self.name}.html?script_id=" + this.getScriptId(),
+          "printing",
+          'width=800,height=700,toolbar=no,location=no,directories=no,'+
+          'status=no,menubar=no,scrollbars=yes,copyhistory=no,resizable=yes');
+    }
+    JS
+  end
+
+  ######################################################################
+
+  endpoint :netzke_load do |params, this|
+
+    return this.netzke_feedback("Permission Denied") unless
+      self.class.has_any_perm?
+
+    script_name = params[:script_name]
+    tag_id = root_sess[:selected_tag_id]
+
+    # logic from basepack's form_panel.service -- need to set @record.
+    @record = script = Marty::Script.find_script(script_name, tag_id)
+
+    title = [script.name, script.find_tag.try(:name)].
+      join(" #{Marty::ScriptForm::DASH} ") if script
+
+    # create an empty record if no script
+    js_data = @record ? js_record_data : {
+      "body" => "",
+      "id"   => -1,
+      "meta" => {},
+    }
+
+    this.set_form_values(js_data)
+    this.set_title title
+    this.set_readonly_mode !can_save?(script)
+
+    modes = {
+      save: can_save?(script),
+    }
+
+    this.set_action_modes(modes)
+  end
+
+  def can_save?(script)
+    script && self.class.has_dev_perm? && Mcfly.is_infinity(script.obsoleted_dt)
+  end
+
+  ######################################################################
+
+  action :apply do |a|
+    a.text     = I18n.t("script_form.save")
+    a.tooltip  = I18n.t("script_form.save")
+    a.icon     = :database_save
+    a.disabled = true
+  end
+
+  endpoint :netzke_submit do |params, this|
+
+    return this.netzke_feedback("Permission Denied") unless
+      self.class.has_any_perm?
+
+    # copied from corresponding method in form_panel.services
+    data = ActiveSupport::JSON.decode(params[:data])
+    data.each_pair do |k,v|
+      data[k] = nil if v.blank? || v == "null"
+    end
+
+    @record = script = Marty::Script.find_by_id(data["id"])
+
+    unless script
+      this.netzke_feedback "no record"
+      return
+    end
+
+    if script.body == data["body"]
+      this.netzke_feedback "no save needed"
+      # clear the error line if any
+      this.set_line_error -1
+      return
+    end
+
+    unless can_save?(script)
+      this.netzke_feedback "Permission denied"
+      return
+    end
+
+    begin
+      dev = Marty::Tag.find_by_name("DEV")
+      Marty::ScriptSet.new(dev).parse_check(script.name, data["body"])
+    rescue Delorean::ParseError => exc
+      this.netzke_feedback exc.message
+      this.apply_form_errors({})
+      this.set_line_error(exc.line)
+      return
+    end
+
+    script.body = data["body"]
+
+    if script.save
+      this.set_form_values(js_record_data)
+      this.netzke_set_result(true)
+      this.refresh_parent(script.name)
+      return
+    end
+
+    data_adapter.errors_array(script).each do |error|
+      flash error: error
+    end
+
+    this.netzke_feedback @flash
+    this.apply_form_errors(build_form_errors(record))
+  end
+
+  ######################################################################
+
+  action :print do |a|
+    a.text    = I18n.t("script_form.print")
+    a.tooltip = I18n.t("script_form.print")
+    a.icon    = :printer
+    a.handler = :on_print
+  end
+
+  ######################################################################
+
+  def configure_bbar(c)
+    c[:bbar] = [
+                :apply,
+                :print,
+               ]
+  end
+
+  ######################################################################
+
+  # used for printing
+  def export_content(format, title, params={})
+    raise "unknown format: #{format}" unless format == "html"
+
+    r = Marty::Script.find_by_id(params[:script_id])
+    res = CodeRay.scan(r.body, :ruby).div(line_numbers: :table)
+
+    [res, "text/html", "inline", "#{title}.html"]
+  end
+
+  def configure(c)
+    super
+
+    c.title = "Script Form"
+    c.model = "Marty::Script"
+    c.items =
+      [
+       {
+         mode:           "text/x-delorean",
+         line_numbers:   true,
+         indent_unit:    4,
+         tab_mode:       "shift",
+         match_brackets: true,
+         hide_label:     true,
+         xtype:          :codemirror,
+         name:           :body,
+         empty_text:     "No script selected.",
+         getter:         lambda { |r| r.body },
+       },
+      ]
+  end
+end
+
+ScriptForm = Marty::ScriptForm

data/app/components/marty/script_form.rb~

@@ -0,0 +1,233 @@
+require 'delorean_lang'
+require 'coderay'
+
+class Marty::ScriptForm < Marty::CmFormPanel
+  DASH = 0x2012.chr('utf-8')
+
+  css_configure do |c|
+    c.require :codemirror
+    c.require :delorean
+  end
+
+  js_configure do |c|
+    c.require :"Ext.ux.form.field.CodeMirror"
+    c.require :codemirror
+    c.require File.dirname(__FILE__) +
+      "/script_form/javascripts/mode/delorean/delorean.js"
+
+    c.set_action_modes = <<-JS
+    function(a) {
+       this.actions.apply.setDisabled(!a["save"]);
+       // style input field text based on whether it is editable
+       this.getForm().findField('body').editor.setOption(
+          "readOnly", !a["save"]);
+    }
+    JS
+
+    c.get_script_id = <<-JS
+    function() {
+       return this.getForm().findField('id').getValue();
+    }
+    JS
+
+    c.get_script_body = <<-JS
+    function() {
+       return this.getForm().findField('body').getValue();
+    }
+    JS
+
+    # Sets an editor line class (unset any previous line class).  For
+    # now, only one line is classed at a time.
+    c.set_line_error = <<-JS
+    function(line) {
+       line -= 1;
+       var editor = this.getForm().findField('body').editor;
+       if (editor.oldline) {
+          editor.oldline.className = null;
+       }
+       if (line > -1) {
+          editor.oldline = editor.setLineClass(line, "errorline");
+       }
+       editor.refresh();
+    }
+    JS
+
+    ######################################################################
+
+    c.refresh_parent = <<-JS
+    function(script_name) {
+       this.netzkeGetParentComponent().scriptRefresh(script_name);
+    }
+    JS
+
+    ######################################################################
+
+    c.on_print = <<-JS
+    function() {
+       window.open(
+          "/marty/components/#{self.name}.html?script_id=" + this.getScriptId(),
+          "printing",
+          'width=800,height=700,toolbar=no,location=no,directories=no,'+
+          'status=no,menubar=no,scrollbars=yes,copyhistory=no,resizable=yes');
+    }
+    JS
+  end
+
+  ######################################################################
+
+  endpoint :netzke_load do |params, this|
+
+    return this.netzke_feedback("Permission Denied") unless
+      self.class.has_any_perm?
+
+    script_name = params[:script_name]
+    tag_id = root_sess[:selected_tag_id]
+
+    # logic from basepack's form_panel.service -- need to set @record.
+    @record = script = Marty::Script.find_script(script_name, tag_id)
+
+    title = [script.name, script.find_tag.try(:name)].
+      join(" #{Marty::ScriptForm::DASH} ") if script
+
+    # create an empty record if no script
+    js_data = @record ? js_record_data : {
+      "body" => "",
+      "id"   => -1,
+      "meta" => {},
+    }
+
+    this.set_form_values(js_data)
+    this.set_title title
+    this.set_readonly_mode !can_save?(script)
+
+    modes = {
+      save: can_save?(script),
+    }
+
+    this.set_action_modes(modes)
+  end
+
+  def can_save?(script)
+    script && self.class.has_dev_perm? && Mcfly.is_infinity(script.obsoleted_dt)
+  end
+
+  ######################################################################
+
+  action :apply do |a|
+    a.text     = I18n.t("script_form.save")
+    a.tooltip  = I18n.t("script_form.save")
+    a.icon     = :database_save
+    a.disabled = true
+  end
+
+  endpoint :netzke_submit do |params, this|
+
+    return this.netzke_feedback("Permission Denied") unless
+      self.class.has_any_perm?
+
+    # copied from corresponding method in form_panel.services
+    data = ActiveSupport::JSON.decode(params[:data])
+    data.each_pair do |k,v|
+      data[k] = nil if v.blank? || v == "null"
+    end
+
+    @record = script = Marty::Script.find_by_id(data["id"])
+
+    unless script
+      this.netzke_feedback "no record"
+      return
+    end
+
+    if script.body == data["body"]
+      this.netzke_feedback "no save needed"
+      # clear the error line if any
+      this.set_line_error -1
+      return
+    end
+
+    unless can_save?(script)
+      this.netzke_feedback "Permission denied"
+      return
+    end
+
+    begin
+      dev = Marty::Tag.find_by_name("DEV")
+      Marty::ScriptSet.new(dev).parse_check(script.name, data["body"])
+    rescue Delorean::ParseError => exc
+      this.netzke_feedback exc.message
+      this.apply_form_errors({})
+      this.set_line_error(exc.line)
+      return
+    end
+
+    script.body = data["body"]
+
+    if script.save
+      this.set_form_values(js_record_data)
+      this.netzke_set_result(true)
+      this.refresh_parent(script.name)
+      return
+    end
+
+    data_adapter.errors_array(script).each do |error|
+      flash error: error
+    end
+
+    this.netzke_feedback @flash
+    this.apply_form_errors(build_form_errors(record))
+  end
+
+  ######################################################################
+
+  action :print do |a|
+    a.text    = I18n.t("script_form.print")
+    a.tooltip = I18n.t("script_form.print")
+    a.icon    = :printer
+    a.handler = :on_print
+  end
+
+  ######################################################################
+
+  def configure_bbar(c)
+    c[:bbar] = [
+                :apply,
+                :print,
+               ]
+  end
+
+  ######################################################################
+
+  # used for printing
+  def export_content(format, title, params={})
+    raise "unknown format: #{format}" unless format == "html"
+
+    r = Marty::Script.find_by_id(params[:script_id])
+    res = CodeRay.scan(r.body, :ruby).div(line_numbers: :table)
+
+    [res, "text/html", "inline", "#{title}.html"]
+  end
+
+  def configure(c)
+    super
+
+    c.title = "Script Form"
+    c.model = "Marty::Script"
+    c.items =
+      [
+       {
+	 mode:			"text/x-delorean",
+	 line_numbers:		true,
+	 indent_unit:		4,
+	 tab_mode:		"shift",
+	 match_brackets:	true,
+	 hide_label:		true,
+	 xtype:			:codemirror,
+	 name:			:body,
+	 empty_text:		"No script selected.",
+	 getter:		lambda { |r| r.body },
+       },
+      ]
+  end
+end
+
+ScriptForm = Marty::ScriptForm