redcar 0.7 → 0.8

data/plugins/syntax_check/lib/syntax_check/error.rb

@@ -0,0 +1,23 @@
+module Redcar
+  module SyntaxCheck
+    class Error
+      Type  = "syntax.error.type"
+      Icon  = "compile-error"
+      Color = [255, 32, 32]
+
+      attr_accessor :line, :message, :doc
+
+      def initialize(doc, line, message)
+        @doc       = doc
+        @line      = line
+        @message   = message
+      end
+
+      def annotate
+        edit_view = doc.edit_view
+        edit_view.add_annotation_type(Type, Icon, Color)
+        edit_view.add_annotation(Type, line, message, 0, doc.get_line(line).length)
+      end
+    end
+  end
+end

data/plugins/syntax_check/plugin.rb

@@ -0,0 +1,7 @@
+Plugin.define do
+  name    "syntax_check"
+  version "0.1"
+  file    "lib", "syntax_check"
+  object  "Redcar::SyntaxCheck"
+  dependencies "edit_view", ">0.9"
+end

data/plugins/tree_view_swt/lib/tree_view_swt.rb

@@ -401,6 +401,8 @@ module Redcar
       def get_elements(tree_mirror)
         tree_mirror.top.to_java
       rescue => e
+        puts e.message
+        puts e.backtrace
         @tree_view_swt.handle_mirror_error(e)
       end
 
@@ -412,12 +414,16 @@ module Redcar
           children.any? if children
         end
       rescue => e
+        puts e.message
+        puts e.backtrace
         @tree_view_swt.handle_mirror_error(e)
       end
 
       def get_children(tree_node)
         tree_node.children.to_java
       rescue => e
+        puts e.message
+        puts e.backtrace
         @tree_view_swt.handle_mirror_error(e)
       end
       

data/plugins/web_bookmarks/lib/web_bookmarks.rb

@@ -0,0 +1,42 @@
+require 'web_bookmarks/commands'
+require 'web_bookmarks/bookmark'
+require 'web_bookmarks/browser_bar'
+require 'web_bookmarks/tree'
+require 'web_bookmarks/view_controller'
+
+module Redcar
+  class WebBookmarks
+    TREE_TITLE = "Web Bookmarks"
+    BOOKMARKS_FILE = "web_bookmarks.json"
+
+    def self.storage
+      @storage ||= begin
+         storage = Plugin::Storage.new('web_bookmarks')
+         storage.set_default('show_browser_bar_on_start', true)
+         storage
+      end
+    end
+
+    def self.menus
+      Redcar::Menu::Builder.build do
+        sub_menu "File" do
+          item "Web Preview", :command => WebBookmarks::FileWebPreview, :priority => 8
+        end
+        sub_menu "Edit" do
+          sub_menu "Document Navigation" do
+            item "Open Browser Bar", :command => WebBookmarks::OpenBrowserBar, :priority => 5
+          end
+        end
+        sub_menu "Project" do
+          item "Web Bookmarks", :command => WebBookmarks::ShowTree, :priority => 40
+        end
+      end
+    end
+
+    def self.toolbars
+      Redcar::ToolBar::Builder.build do
+        item "Web Bookmarks", :command => WebBookmarks::ShowTree, :icon => File.join(Redcar::ICONS_DIRECTORY, "globe.png"), :barname => :project
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/lib/web_bookmarks/bookmark.rb

@@ -0,0 +1,43 @@
+
+module Redcar
+  class WebBookmarks
+     class Bookmark
+      include Redcar::Tree::Mirror::NodeMirror
+      attr_reader :url
+
+      def initialize(name,url)
+        @name = name
+        @url = url
+        @children = []
+      end
+
+      def leaf?
+        children.length < 1
+      end
+
+      def add(bookmark)
+        @children << bookmark
+      end
+
+      def text
+        @name
+      end
+
+      def icon
+        if leaf?
+          if @url =~ /^file/
+            File.join(Redcar::ICONS_DIRECTORY, "document-globe.png")
+          else
+            File.join(Redcar::ICONS_DIRECTORY, "globe.png")
+          end
+        else
+          File.join(Redcar::ICONS_DIRECTORY, "book-bookmark.png")
+        end
+      end
+
+      def children
+        @children
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/lib/web_bookmarks/browser_bar.rb

@@ -0,0 +1,70 @@
+
+module Redcar
+  class WebBookmarks
+    class BrowserBar < Redcar::Speedbar
+
+      def html_tab
+        tab = Redcar.app.focussed_window.focussed_notebook_tab
+        tab if tab.is_a?(Redcar::HtmlTab)
+      end
+
+      button :back, "<", "Ctrl+Left" do
+        html_tab.controller.browser.back if html_tab
+      end
+
+      button :forward, ">", "Ctrl+Right" do
+        html_tab.controller.browser.forward if html_tab
+      end
+
+      button :stop, "Stop", nil do
+        html_tab.controller.browser.stop if html_tab
+      end
+
+      button :refresh, "Refresh", "F5" do
+        if tab = html_tab
+          url = tab.controller.browser.url.to_s
+          Redcar.plugin_manager.objects_implementing(:before_web_refresh).each do |obj|
+            obj.before_web_refresh(path)
+          end
+          tab.controller.browser.refresh
+        end
+      end
+
+      button :source, "Source", nil do
+        tab  = Redcar.app.focussed_window.new_tab(Redcar::EditTab)
+        url = html_tab.controller.browser.url.to_s
+        if url =~ /^file:\/\//
+          file_path = url[7,url.length]
+          mirror = Project::FileMirror.new(file_path)
+          tab.edit_view.document.mirror = mirror
+        else
+          tab.edit_view.document.text = html_tab.controller.browser.text
+          tab.title = "Page Source"
+        end
+        tab.edit_view.grammar = "HTML"
+        tab.edit_view.reset_undo
+        tab.focus
+      end
+
+      button :add, "+", nil do
+        if tab = html_tab and
+          url = tab.controller.browser.url.to_s
+          WebBookmarks::AddBookmark.new(url).run
+        end
+      end
+
+      label :url_label, "New URL:"
+      textbox :new_url
+
+      button :go_to_url, "Go!", "Return" do
+        @tab = html_tab
+        if @tab
+          unless new_url.value == ""
+            @tab.title=new_url.value
+            @tab.controller.go_to_location(new_url.value)
+          end
+        end
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/lib/web_bookmarks/commands.rb

@@ -0,0 +1,111 @@
+
+require 'java'
+
+module Redcar
+  class WebBookmarks
+
+    # Open a HtmlTab for displaying web content
+    class DisplayWebContent < Redcar::Command
+      def initialize(name,url,display_bar=true)
+        @name = name
+        @url  = url
+        @display_bar = display_bar
+      end
+
+      def execute
+        win = Redcar.app.focussed_window
+        controller = ViewController.new(@name,@url)
+        tab = win.new_tab(HtmlTab)
+        tab.html_view.controller = controller
+        tab.focus
+        if @display_bar or
+          WebBookmarks.storage['show_browser_bar_on_start']
+          WebBookmarks::OpenBrowserBar.new.run
+        end
+      end
+    end
+
+    class FileWebPreview < Redcar::EditTabCommand
+      def execute
+        mirror  = doc.mirror
+        if mirror and path = mirror.path and File.exists?(path)
+          name = "Preview: " +File.basename(path)
+        else
+          name    = "Preview: (untitled)"
+          preview = java.io.File.createTempFile("preview","html")
+          preview.deleteOnExit
+          path    = preview.getAbsolutePath
+          File.open(path,'w') {|f| f.puts(doc.get_all_text)}
+        end
+        url  = "file://" + path
+        DisplayWebContent.new(name,url).run
+      end
+    end
+
+    class ShowTree < Redcar::Command
+      sensitize :open_project
+      def execute
+        if tree = win.treebook.trees.detect {|tree| tree.tree_mirror.title == TREE_TITLE }
+          tree.refresh
+          win.treebook.focus_tree(tree)
+        else
+          project = Project::Manager.in_window(win)
+          tree = Tree.new(
+            TreeMirror.new(project),
+            TreeController.new(project)
+          )
+          win.treebook.add_tree(tree)
+        end
+      end
+    end
+
+    class OpenBrowserBar < Redcar::Command
+      def execute
+        window = Redcar.app.focussed_window
+        speedbar = Redcar::WebBookmarks::BrowserBar.new
+        window.open_speedbar(speedbar)
+      end
+    end
+
+    class AddBookmark < Redcar::ProjectCommand
+      def initialize(url)
+        @protocol = url.split("://")[0]
+        @url      = url.split("://")[1]
+      end
+
+      def execute
+        @path = project.config_files(BOOKMARKS_FILE).detect { |pj|
+           not pj.include?(Redcar.user_dir)
+        }
+        if @path
+          json = File.read(@path)
+        else
+          @path = project.path + "/.redcar/#{BOOKMARKS_FILE}"
+          json = JSON.generate({"bookmarks"=>[]})
+        end
+        bookmarks = JSON(json)["bookmarks"]
+        if name = fill_field("Name")
+          group = fill_field("Group")
+          bookmark = {
+            "name"     => name,
+            "url"      => @url,
+            "protocol" => @protocol
+          }
+          bookmark["group"] = group unless group.nil? or group == ""
+          bookmarks << bookmark
+          File.open(@path,'w') do |f|
+            f.puts JSON.pretty_generate({"bookmarks"=>bookmarks})
+          end
+        end
+      end
+
+      def fill_field(name)
+        title = "Add New Bookmark"
+        msg   = "Choose a #{name} for this Bookmark"
+        out   = Redcar::Application::Dialog.input(title,msg)
+        return if out[:button] == :cancel
+        name = out[:value]
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/lib/web_bookmarks/tree.rb

@@ -0,0 +1,67 @@
+
+module Redcar
+  class WebBookmarks
+    class TreeController
+      include Redcar::Tree::Controller
+
+      def initialize(project)
+        @project = project
+      end
+
+      def activated(tree, node)
+        DisplayWebContent.new(node.text,node.url).run
+      end
+    end
+
+    class TreeMirror
+      include Redcar::Tree::Mirror
+
+      def initialize(project)
+        @project = project
+      end
+
+      def bookmarks_files_paths
+         @project.config_files(BOOKMARKS_FILE)
+      end
+
+      def parse_url(url)
+        url.gsub("__PROJECT_PATH__",@project.path)
+      end
+
+      def title; TREE_TITLE; end
+
+      def top; load; end
+
+      def load
+        bookmarks = []
+        spares = []
+        groups = {}
+        bookmarks_files_paths.each do |path|
+          json = File.read(path)
+          bookmarks += JSON(json)["bookmarks"]
+        end
+
+        if bookmarks.any?
+          bookmarks.sort_by {|b| b["name"]}.map do |b|
+            prefix = b["protocol"] || "http"
+            url = prefix + "://" + parse_url(b["url"])
+            if b["group"].nil?
+              spares << Bookmark.new(b["name"],url)
+            else
+              if groups[b["group"]]
+                group = groups[b["group"]]
+              else
+                group = Bookmark.new(b["group"],nil)
+                groups[group.text] = group
+              end
+              group.add(Bookmark.new(b["name"],url))
+            end
+          end
+          spares.sort_by {|s| s.text} + groups.sort_by {|k,g| k}.map {|k,g| g}
+        else
+          []
+        end
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/lib/web_bookmarks/view_controller.rb

@@ -0,0 +1,22 @@
+
+module Redcar
+  class WebBookmarks
+    class ViewController
+      include HtmlController
+
+      def initialize(title,url)
+        @title = title
+        @url = url
+      end
+
+      def title
+        @title
+      end
+
+      def index
+        rhtml = ERB.new(File.read(File.join(File.dirname(__FILE__), "..","..", "views", "index.html.erb")))
+        rhtml.result(binding)
+      end
+    end
+  end
+end

data/plugins/web_bookmarks/plugin.rb

@@ -0,0 +1,11 @@
+
+Plugin.define do
+  name    "web_bookmarks"
+  version "1.0"
+  file    "lib", "web_bookmarks"
+  object  "Redcar::WebBookmarks"
+  dependencies "tree",        ">0",
+               "application", ">=1.1",
+               "project"    , ">=1.1",
+               "HTML View"  , ">0"
+end

data/plugins/web_bookmarks/views/index.html.erb

@@ -0,0 +1,5 @@
+<script type="text/javascript">
+<!--
+  window.location = "<%= @url %>"
+//-->
+</script>