niklas-vimmate 0.8.0.1

data/lib/vim_mate/terminals_window.rb

@@ -0,0 +1,163 @@
+=begin
+= VimMate: Vim graphical add-on
+Copyright (c) 2006 Guillaume Benny
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+=end
+
+require 'set'
+require 'vte'
+
+module VimMate
+
+  # Do not load the terminals if they are disabled
+  Requirer.raise_load_error_if do
+    not Config[:terminals_enabled]
+  end
+
+  class ::Vte::Terminal
+    attr_accessor :pid
+  end
+
+  # The window that contains the terminals
+  class TerminalsWindow
+
+    # Create a TerminalsWindow
+    def initialize
+      @expander_signal = Set.new
+      
+      # Create the tabbed page
+      @gtk_notebook = Gtk::Notebook.new
+      @gtk_notebook.scrollable = true
+      # Add a terminal at startup
+      @gtk_notebook.append_page(new_terminal)
+      # The last page is just an icon to create new tabs
+      @gtk_notebook.append_page(Gtk::EventBox.new,
+                                Gtk::Image.new(Gtk::Stock::NEW, Gtk::IconSize::MENU))
+      # When we try to go to the last page, we create a new terminal instead
+      @gtk_notebook.signal_connect_after("switch-page") do |notebook, page, page_num|
+        add_new_terminal if page_num == (@gtk_notebook.n_pages - 1)
+      end
+      @gtk_notebook.set_size_request(0, Config[:terminals_height])
+    end
+
+    # The "window" for this object
+    def gtk_window
+      @gtk_notebook
+    end
+
+    # Add a block that will be called when the user choose to expand or
+    # close the expander. The block takes one argument: if the expander
+    # is opened or closed
+    def add_expander_signal(&block)
+      @expander_signal << block
+    end
+
+    # Set the focus to the current terminal
+    def focus_terminal
+      page = @gtk_notebook.get_nth_page(@gtk_notebook.page)
+      page.has_focus = true if page
+    end
+
+    # Add a new terminal at the left of the tab bar.
+    def add_new_terminal
+      page_num = @gtk_notebook.n_pages - 1
+      @gtk_notebook.insert_page(page_num, new_terminal)
+      @gtk_notebook.page = page_num
+    end
+
+    # Deletes terminal with number *page_num*, defaults to current page number.
+    def delete_current_terminal
+      page = @gtk_notebook.get_nth_page(@gtk_notebook.page)
+      prev_terminal
+      Process.kill 'HUP', page.pid
+    end
+
+    # Switch the next (right) terminal, if there exists one. Otherwise start
+    # again with the first terminal on the left.
+    def next_terminal
+      if @gtk_notebook.page < @gtk_notebook.n_pages - 2
+        @gtk_notebook.next_page
+      else
+        @gtk_notebook.page = 0
+      end
+    end
+
+    # Switch the previous (left) terminal, if there exists one. Otherwise start
+    # with again with the last terminal on the right.
+    def prev_terminal
+      if @gtk_notebook.page > 0
+        @gtk_notebook.prev_page
+      else
+        @gtk_notebook.page = @gtk_notebook.n_pages - 2
+      end
+    end
+    
+    private
+
+    # Create a new terminal and return it
+    def new_terminal
+      # Setup of the terminal
+      gtk_terminal = Vte::Terminal.new
+      gtk_terminal.audible_bell = Config[:terminals_audible_bell]
+      gtk_terminal.visible_bell = Config[:terminals_visible_bell]
+      gtk_terminal.set_font(Config[:terminals_font])
+      forecolor = Gdk::Color.parse(Config[:terminals_foreground_color])
+      backcolor = Gdk::Color.parse(Config[:terminals_background_color])
+      gtk_terminal.set_colors(forecolor, backcolor, [])
+
+      # Hide and destroy the terminal when the shell exits
+      gtk_terminal.signal_connect("child-exited") do |terminal|
+        break if @gtk_notebook.destroyed?
+        # Select the page before
+        page_num = @gtk_notebook.page_num(terminal)
+        if page_num == 0
+          @gtk_notebook.page = 0
+        else
+          @gtk_notebook.page = page_num - 1
+        end
+        # Hide it and destroy it after a while
+        terminal.hide
+        Thread.new do
+          sleep(5)
+          terminal.destroy unless terminal.destroyed?
+        end
+      end
+      # When the title of the terminal changes, set the name of the page
+      gtk_terminal.signal_connect("window-title-changed") do |terminal|
+        @gtk_notebook.set_tab_label_text(terminal, terminal.window_title)
+      end
+      if (Config[:terminals_login_shell])
+       begin
+         require 'etc'
+       rescue LoadError
+       end
+       shell = (ENV["SHELL"] || Etc.getpwnam(Etc.getlogin).shell rescue nil || "/bin/sh") 
+       gtk_terminal.pid = gtk_terminal.fork_command(shell, ["-l"])
+      else
+        gtk_terminal.pid = gtk_terminal.fork_command
+      end
+      gtk_terminal.feed_child(Config[:terminals_autoexec])
+      gtk_terminal.show
+      gtk_terminal
+    end
+
+  end
+end
+

data/lib/vim_mate/version.rb

@@ -0,0 +1,29 @@
+=begin
+= VimMate: Vim graphical add-on
+Copyright (c) 2006 Guillaume Benny
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+=end
+
+module VimMate
+
+  # VimMate's version
+  VERSION = "0.6.6"
+end
+

data/lib/vim_mate/vim_widget.rb

@@ -0,0 +1,150 @@
+=begin
+= VimMate: Vim graphical add-on
+Copyright (c) 2006 Guillaume Benny
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of
+this software and associated documentation files (the "Software"), to deal in
+the Software without restriction, including without limitation the rights to
+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+of the Software, and to permit persons to whom the Software is furnished to do
+so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+=end
+
+
+module VimMate
+
+  # A window that can display and send information to the
+  # GTK GUI of Vim (gVim)
+  class VimWidget
+
+    include Vim::Integration
+
+    # Create the VimWindow. You must call start after this window is visible
+    def initialize
+      # A unique Vim server name
+      @vim_server_name = "VimMate_#{Process.pid}"
+      @gtk_socket = Gtk::Socket.new
+      @gtk_socket.show_all
+      @gtk_socket.signal_connect("delete_event") do
+        false
+      end
+      @gtk_socket.signal_connect("destroy") do
+        Gtk.main_quit
+      end
+      @gtk_socket.can_focus = true
+      @gtk_socket.has_focus = true
+      @vim_started = false
+      @extras_sourced = false
+    end
+
+    # The "window" for this object
+    def window
+      @gtk_socket
+    end
+
+    #generate multiline functions that will be sourced on startup
+    def source_vimmate_extras
+      return if @extras_sourced
+      if @vim_started
+        source_path = File.join( File.dirname(__FILE__), '..', 'vim', 'source.vim')
+        remote_send "<ESC><ESC><ESC>:source #{source_path}<CR>"
+        @extras_sourced = true
+      end
+    end
+
+    # Open the specified file in Vim
+    def open(path, kind = :open)
+      start
+      path = path.gsub "'", "\\'"
+      case kind
+      when :split
+        remote_send '<ESC><ESC><ESC>:split<CR>'
+      when :open, :split
+        exec_gvim "--remote '#{path}'"
+      when :tab
+          exec_gvim "--remote-tab '#{path}'"
+      else
+        raise "Unknow open kind: #{kind}"
+      end
+      remote_send "<ESC><ESC><ESC>:buffer #{path}<CR>"
+      focus!
+      #Signal.emit_file_opened(path)
+      self
+    end
+
+    def open_and_jump_to_line(path,lnum)
+      unless buffer = buffers.index(path)
+        open path, Config[:files_default_open_in_tabs] ? :tab_open : :open
+        sleep 0.5
+      end
+      send_command buffer, 'setDot', [lnum,0]
+      focus!
+      self
+    end
+    
+    def jump_to_line(line)
+      start
+      if line >= 0
+        # TODO use neatbeans
+        remote_send "<ESC><ESC><ESC>:#{line}<CR>"
+      end
+    end
+
+    # Start Vim's window. This must be called after the window which
+    # will contain Vim is visible.
+    def start
+      return if @vim_started
+      @vim_started = true
+      listen
+      fork do
+        exec_gvim "--socketid #{@gtk_socket.id} -nb:localhost:#{port}:#{Password}"
+      end
+      sleep 0.5
+      source_vimmate_extras
+      self
+    end
+
+    # Set the focus to Vim
+    def focus!
+      @gtk_socket.can_focus = true
+      @gtk_socket.has_focus = true
+    end
+
+    def get_current_buffer_path
+      if @vim_started
+        #`gvim --servername #{@vim_server_name} --remote-send ':redir! > outputfile<cr>'`
+        #`gvim --servername #{@vim_server_name} --remote-send ':echo getcwd()<cr>'`
+        #`gvim --servername #{@vim_server_name} --remote-send ':echo bufname(bufnr(""))<cr>'`
+        #`gvim --servername #{@vim_server_name} --remote-send ':redir END<cr>'`
+
+        get_current_buffer_number
+
+        cwd = exec_gvim "--remote-expr 'getcwd()'".chomp+'/'
+        if cwd
+          return cwd + exec_gvim(%Q~--remote-expr 'bufname(bufnr(""))'~)
+        end
+      end
+    end
+
+    def get_current_buffer_number
+      send_function('getCursor')
+    end
+
+    def get_all_buffer_paths
+      buffers[1..-1]
+    end
+
+  end
+end
+

data/spec/active_window/active_column_spec.rb

@@ -0,0 +1,41 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe ActiveWindow::ActiveColumn do
+  before( :each ) do
+    @class = ActiveWindow::ActiveColumn
+  end
+
+  it "shold be a Class" do
+    @class.should be_a(Class)
+  end
+
+  shared_examples_for "any column" do
+    it "should be a ActiveColumn" do
+      @col.should be_a(ActiveWindow::ActiveColumn)
+    end
+
+    it "should have a view" do
+      @col.view.should_not be_nil
+    end
+    
+  end
+
+  describe "of type String" do
+    before( :each ) do
+      @col = @class.create(0,'name', :string)
+    end
+    it_should_behave_like 'any column'
+
+    it "should be a ActiveTextColumn" do
+      @col.should be_a(ActiveWindow::ActiveTextColumn)
+    end
+
+    it "should take a String" do
+      @col.data_class.should == String
+    end
+
+
+
+  end
+  
+end

data/spec/active_window/active_tree_store_spec.rb

@@ -0,0 +1,312 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe ActiveWindow::ActiveTreeStore do
+  before( :each ) do
+    @ats = ActiveWindow::ActiveTreeStore
+  end
+  it "should inherit from Gtk::TreeStore" do
+    @ats.should < Gtk::TreeStore
+  end
+  it "should store columns" do
+    @ats.column_id.should_not be_nil
+    @ats.column_id.should be_a(Hash)
+  end
+
+  it "should have basic columns" do
+    @ats.column_id.should have_key(:visible)
+    @ats.column_id.should have_key(:object)
+  end
+
+  it "should store column index in constants" do
+    @ats::VISIBLE.should == 0
+    @ats::OBJECT.should == 1
+  end
+
+  it "should provide classes for columns" do
+    @ats.column_classes.should == [TrueClass, Object]
+  end
+
+  describe "subclassing for Person with name and age" do
+    before( :each ) do
+      class PersonTree < @ats
+        column :name, String
+        column :age, Fixnum
+      end
+    end
+
+    after( :each ) do
+      Object::send :remove_const, :PersonTree
+    end
+
+    it "should still have basic columns" do
+      PersonTree.column_id.should have_key(:visible)
+      PersonTree.column_id.should have_key(:object)
+    end
+    it "should have both new columns defined" do
+      PersonTree.column_id.should have_key(:name)
+      PersonTree.column_id.should have_key(:age)
+    end
+    it "should have 4 columns" do
+      PersonTree.column_count.should == 4
+    end
+    it "should store column index in constants" do
+      PersonTree::VISIBLE.should == 0
+      PersonTree::OBJECT.should == 1
+      PersonTree::NAME.should == 2
+      PersonTree::AGE.should == 3
+    end
+    it "should provde classes for columns" do
+      PersonTree.column_classes.should == [TrueClass, Object, String, Integer]
+    end
+    it "should store column index in hash" do
+      PersonTree.column_id.should == {:visible => 0, :object => 1, :name => 2, :age => 3}
+    end
+
+    describe "with index on name" do
+      before( :each ) do
+        PersonTree.index_by :name
+      end
+
+      it "should define a method to remember People by name" do
+        PersonTree.public_instance_methods.should include('remember_iter_by_name')
+      end
+
+      it "should define a method to find People by name" do
+        PersonTree.public_instance_methods.should include('find_by_name')
+      end
+
+      describe "added Peter, Paul and Mary" do
+        before( :each ) do
+          @person_tree = PersonTree.new
+          @person_tree.add :name => 'Peter', :age => 23
+          @person_tree.add :name => 'Paul', :age => 42
+          @person_tree.add :name => 'Mary', :age => 19
+        end
+
+        it "should have indexed the items" do
+          @person_tree.index_by_name.should be_a(Hash)
+          @person_tree.index_by_name.should have_key('Peter')
+          @person_tree.index_by_name.should have_key('Paul')
+          @person_tree.index_by_name.should have_key('Mary')
+        end
+
+        it "should index by Strings (the names)" do
+          @person_tree.index_by_name.keys.each do |key|
+            key.should be_a(String)
+          end
+        end
+
+        it "should index TreeRowReferences" do
+          @person_tree.index_by_name.values.each do |value|
+            value.should be_a(Gtk::TreeRowReference)
+          end
+        end
+
+        it "should find the row for Peter by its name" do
+          peter = nil
+          lambda { peter = @person_tree.find_by_name('Peter') }.should_not raise_error
+          peter.should_not be_nil
+          peter.should be_a(Gtk::TreeIter)
+          peter[2].should == 'Peter'
+        end
+        
+      end
+    end
+
+
+    describe "instancing" do
+      before( :each ) do
+        @person_tree = PersonTree.new
+      end
+      
+      describe "adding a Person" do
+        before( :each ) do
+          @person = mock(:name => 'Kate', :age => 23)
+        end
+
+        it "should succeed" do
+          lambda { @person_tree.add @person }.should_not raise_error
+        end
+        
+      end
+
+    end
+
+
+  end
+
+  describe "subclassing twice with different columns" do
+    before( :each ) do
+      class AppleTree < @ats
+        column :apple_count, Fixnum
+      end
+      class LemonTree < @ats
+        column :lemon_count, Fixnum
+      end
+    end
+
+    after( :each ) do
+      Object::send :remove_const, :AppleTree
+      Object::send :remove_const, :LemonTree
+    end
+
+
+    it "should both still have basic columns" do
+      AppleTree.column_id[:visible].should == 0
+      AppleTree.column_id[:object].should == 1
+      LemonTree.column_id[:visible].should == 0
+      LemonTree.column_id[:object].should == 1
+    end
+    it "should define columns for both subclasses" do
+      AppleTree.column_id[:apple_count].should == 2
+      LemonTree.column_id[:lemon_count].should == 2
+    end
+    it "should keep the new columns to their Classes" do
+      AppleTree.column_id.should_not have_key(:lemon_count)
+      LemonTree.column_id.should_not have_key(:apple_count)
+    end
+    it "should both have 3 columns" do
+      AppleTree.column_count.should == 3
+      LemonTree.column_count.should == 3
+    end
+    it "should store first column index in constants" do
+      AppleTree::VISIBLE.should == 0
+      AppleTree::OBJECT.should == 1
+      AppleTree::APPLE_COUNT.should == 2
+    end
+    it "should store second column index in constants" do
+      LemonTree::VISIBLE.should == 0
+      LemonTree::OBJECT.should == 1
+      LemonTree::LEMON_COUNT.should == 2
+    end
+    it "should provde classes for columns" do
+      AppleTree.column_classes.should == [TrueClass, Object, Integer]
+      LemonTree.column_classes.should == [TrueClass, Object, Integer]
+    end
+  end
+
+  describe "Adding a column to a subclass" do
+    before( :each ) do
+      @sc = Class.new(@ats)
+    end
+
+    it "should return it to use it somewhere else" do
+      col = @sc.column(:name, :string)
+      col.should_not be_nil
+      col.should be_a(ActiveWindow::ActiveColumn)
+    end
+  end
+  
+  describe "subclassing with a composite column with 2 subcolumns" do
+    before( :each ) do
+      class ComplexTree < @ats
+        composite_column "Name and Age" do |pack|
+          pack.add column(:name, :string)
+          pack.add column(:age,  :integer)
+        end
+      end
+    end
+
+    after( :each ) do
+      Object::send :remove_const, :ComplexTree
+    end
+
+    it "should create 3 columns" do
+      ComplexTree.should have_at_least(3).columns
+    end
+
+    it "should have 2 invisible columns" do
+      ComplexTree.should have_at_least(2).invisible_columns
+    end
+
+    it "should have 2 data columns" do
+      ComplexTree.should have_at_least(2).data_columns
+    end
+
+    it "should have constants for column ids" do
+      ComplexTree::NAME.should == 2
+      ComplexTree::AGE.should == 3
+    end
+
+    it "should have max 1 visible column (the composite one)" do
+      names = ComplexTree.visible_columns.map(&:name)
+      names.should == ['Name and Age']
+      ComplexTree.should have_at_most(1).visible_columns
+      names.should include('Name and Age')
+    end
+
+    it "should have 2 data columns (the subs)" do
+      ComplexTree.should have_at_least(2).data_columns
+      names = ComplexTree.data_columns.map(&:name)
+      names.should include('name')
+      names.should include('age')
+    end
+
+    describe "creating a class filtering it" do
+      before( :each ) do
+        class FilteredComplexTree < ActiveWindow::FilteredActiveTreeStore
+          def iter_visible?(iter)
+            !( iter[ self.class.column_id[:name] ].index(filter_string) ).nil?
+          end
+        end
+      end
+      after( :each ) do
+        Object::send :remove_const, :FilteredComplexTree
+      end
+
+      it "should take its columns from ComplexTree" do
+        FilteredComplexTree.columns.should == ComplexTree.columns
+      end
+
+      it "should take constants for the column ids from ComplexTrr" do
+        FilteredComplexTree::NAME.should == 2
+        FilteredComplexTree::AGE.should == 3
+      end
+
+      describe "instancing it with a model" do
+        before( :each ) do
+          @tree = ComplexTree.new
+          @filtered_tree = FilteredComplexTree.new @tree
+        end
+
+        describe "and filtering some data" do
+          before( :each ) do
+            @tree.add(:name => 'Niklas', :age => 27)
+            @tree.add(:name => 'Grandpa', :age => 99)
+            @filtering = lambda { @filtered_tree.filter = 'something' }
+            @vis_col = 0
+          end
+          it "should not break on filtering" do
+            @filtering.should_not raise_error
+          end
+
+          it "should check iter for visibility" do
+            @filtered_tree.should_receive(:iter_visible?).at_least(:twice)
+            @filtering.call
+          end
+
+          it "should hide rows that do not match" do
+            @filtered_tree.stub(:iter_visible?).and_return(false)
+            @filtering.call
+            @tree.each do |model, path, iter|
+              iter[@vis_col].should be_false
+            end
+          end
+
+          it "should show rows that do match" do
+            @filtered_tree.stub(:iter_visible?).and_return(true)
+            @filtering.call
+            @filtered_tree.found_count.should >= 2
+            @tree.each do |model, path, iter|
+              iter[@vis_col].should be_true
+            end
+          end
+        end
+        
+      end
+      
+    end
+    
+  end
+end
+