diakonos 0.8.7 → 0.8.8

data/lib/diakonos/keying.rb

@@ -1,124 +0,0 @@
-module Diakonos
-  class Diakonos
-    def capture_keychain( c, context )
-      if c == ENTER
-        @capturing_keychain = false
-        @current_buffer.deleteSelection
-        str = context.to_keychain_s.strip
-        @current_buffer.insertString str
-        cursorRight( Buffer::STILL_TYPING, str.length )
-      else
-        keychain_pressed = context.concat [ c ]
-
-        function_and_args = @keychains.getLeaf( keychain_pressed )
-
-        if function_and_args
-          function, args = function_and_args
-        end
-
-        partial_keychain = @keychains.getNode( keychain_pressed )
-        if partial_keychain
-          setILine( "Part of existing keychain: " + keychain_pressed.to_keychain_s + "..." )
-        else
-          setILine keychain_pressed.to_keychain_s + "..."
-        end
-        processKeystroke( keychain_pressed )
-      end
-    end
-
-    def capture_mapping( c, context )
-      if c == ENTER
-        @capturing_mapping = false
-        @current_buffer.deleteSelection
-        setILine
-      else
-        keychain_pressed = context.concat [ c ]
-
-        function_and_args = @keychains.getLeaf( keychain_pressed )
-
-        if function_and_args
-          function, args = function_and_args
-          setILine "#{keychain_pressed.to_keychain_s.strip}  ->  #{function}( #{args} )"
-        else
-          partial_keychain = @keychains.getNode( keychain_pressed )
-          if partial_keychain
-            setILine( "Several mappings start with: " + keychain_pressed.to_keychain_s + "..." )
-            processKeystroke( keychain_pressed )
-          else
-            setILine "There is no mapping for " + keychain_pressed.to_keychain_s
-          end
-        end
-      end
-    end
-
-    # context is an array of characters (bytes) which are keystrokes previously
-    # typed (in a chain of keystrokes)
-    def processKeystroke( context = [] )
-      c = @win_main.getch.ord
-
-      if @capturing_keychain
-        capture_keychain c, context
-      elsif @capturing_mapping
-        capture_mapping c, context
-      else
-
-        if context.empty?
-          if c > 31 and c < 255 and c != BACKSPACE
-            if @macro_history
-              @macro_history.push "typeCharacter #{c}"
-            end
-            @there_was_non_movement = true
-            typeCharacter c
-            return
-          end
-        end
-        keychain_pressed = context.concat [ c ]
-
-        function_and_args = @keychains.getLeaf( keychain_pressed )
-
-        if function_and_args
-          function, args = function_and_args
-          setILine if not @settings[ "context.combined" ]
-
-          if args
-            to_eval = "#{function}( #{args} )"
-          else
-            to_eval = function
-          end
-
-          if @macro_history
-            @macro_history.push to_eval
-          end
-
-          begin
-            eval to_eval, nil, "eval"
-            @last_commands << to_eval unless to_eval == "repeatLast"
-            if not @there_was_non_movement
-              @there_was_non_movement = ( not to_eval.movement? )
-            end
-          rescue Exception => e
-            debugLog e.message
-            debugLog e.backtrace.join( "\n\t" )
-            showException e
-          end
-        else
-          partial_keychain = @keychains.getNode( keychain_pressed )
-          if partial_keychain
-            setILine( keychain_pressed.to_keychain_s + "..." )
-            processKeystroke( keychain_pressed )
-          else
-            setILine "Nothing assigned to #{keychain_pressed.to_keychain_s}"
-          end
-        end
-      end
-    end
-    protected :processKeystroke
-
-    def typeCharacter( c )
-      @current_buffer.deleteSelection( Buffer::DONT_DISPLAY )
-      @current_buffer.insertChar c
-      cursorRight( Buffer::STILL_TYPING )
-    end
-
-  end
-end

data/lib/diakonos/list.rb

@@ -1,55 +0,0 @@
-module Diakonos
-  class Diakonos
-    def openListBuffer
-      @list_buffer = openFile( @list_filename )
-    end
-    
-    def closeListBuffer
-      closeFile( @list_buffer )
-      @list_buffer = nil
-    end
-    
-    def showing_list?
-      @list_buffer
-    end
-    
-    def list_item_selected?
-      @list_buffer and @list_buffer.selecting?
-    end
-    
-    def current_list_item
-      if @list_buffer
-        @list_buffer.select_current_line
-      end
-    end
-    
-    def select_list_item
-      if @list_buffer
-        line = @list_buffer.select_current_line
-        @list_buffer.display
-        line
-      end
-    end
-    
-    def previous_list_item
-      if @list_buffer
-        cursorUp
-        @list_buffer[ @list_buffer.currentRow ]
-      end
-    end
-    
-    def next_list_item
-      if @list_buffer
-        cursorDown
-        @list_buffer[ @list_buffer.currentRow ]
-      end
-    end
-    
-    def with_list_file
-      File.open( @list_filename, "w" ) do |f|
-        yield f
-      end
-    end
-    
-  end
-end

data/lib/diakonos/logging.rb

@@ -1,24 +0,0 @@
-module Diakonos
-  class Diakonos
-    def log( string )
-      @log.puts string
-      @log.flush
-    end
-    
-    def debugLog( string )
-      @debug.puts( Time.now.strftime( "[%a %H:%M:%S] #{string}" ) )
-      @debug.flush
-    end
-    
-    def logBacktrace
-      begin
-        raise Exception
-      rescue Exception => e
-        e.backtrace[ 1..-1 ].each do |x|
-          debugLog x
-        end
-      end
-    end
-
-  end
-end

data/lib/diakonos/object.rb

@@ -1,6 +0,0 @@
-class Object
-    def deep_clone
-        Marshal::load( Marshal.dump( self ) )
-    end
-end
-

data/lib/diakonos/readline.rb

@@ -1,274 +0,0 @@
-module Diakonos
-
-  class Readline
-
-    # completion_array is the array of strings that tab completion can use
-    # The block returns true if a refresh is needed?
-    def initialize( diakonos, window, prompt, initial_text = "", completion_array = nil, history = [], do_complete = Diakonos::DONT_COMPLETE, on_dirs = :go_into_dirs, &block )
-      @diakonos = diakonos
-      @window = window
-      @prompt = prompt
-      pos = redraw_prompt
-      @window.setpos( 0, pos )
-      @initial_text = initial_text
-      @completion_array = completion_array
-      @list_filename = @diakonos.list_filename
-
-      @history = history
-      @history << initial_text
-      @history_index = @history.length - 1
-
-      @do_complete = do_complete
-      @on_dirs = on_dirs
-
-      @block = block
-    end
-
-    def redraw_prompt
-      @diakonos.setILine @prompt
-    end
-
-    def call_block
-      if @block
-        @block.call( @input )
-        @window.refresh
-      end
-    end
-
-    # Returns nil on cancel.
-    def readline
-      @input = @initial_text
-      if not @input.empty?
-        call_block
-      end
-
-      @icurx = @window.curx
-      @icury = @window.cury
-      @window.addstr @initial_text
-      @input_cursor = @initial_text.length
-      @opened_list_file = false
-
-      if @do_complete
-        completeInput
-      end
-
-      loop do
-        c = @window.getch.ord
-
-        case c
-        when Curses::KEY_DC
-          if @input_cursor < @input.length
-            @window.delch
-            @input = @input[ 0...@input_cursor ] + @input[ (@input_cursor + 1)..-1 ]
-            call_block
-          end
-        when BACKSPACE, CTRL_H
-          # Curses::KEY_LEFT
-          if @input_cursor > 0
-            @input_cursor += -1
-            @window.setpos( @window.cury, @window.curx - 1 )
-
-            # Curses::KEY_DC
-            if @input_cursor < @input.length
-              @window.delch
-              @input = @input[ 0...@input_cursor ] + @input[ (@input_cursor + 1)..-1 ]
-              call_block
-            end
-          end
-        when ENTER, Curses::KEY_F3
-          item = @diakonos.current_list_item
-          if @on_dirs == :go_into_dirs and item and File.directory? item
-            completeInput
-          else
-            break
-          end
-        when ESCAPE, CTRL_C, CTRL_D, CTRL_Q
-          @input = nil
-          break
-        when Curses::KEY_LEFT
-          if @input_cursor > 0
-            @input_cursor += -1
-            @window.setpos( @window.cury, @window.curx - 1 )
-          end
-        when Curses::KEY_RIGHT
-          if @input_cursor < @input.length
-            @input_cursor += 1
-            @window.setpos( @window.cury, @window.curx + 1 )
-          end
-        when Curses::KEY_HOME
-          @input_cursor = 0
-          @window.setpos( @icury, @icurx )
-        when Curses::KEY_END
-          @input_cursor = @input.length
-          @window.setpos( @window.cury, @icurx + @input.length )
-        when TAB
-          completeInput
-        when Curses::KEY_NPAGE
-          @diakonos.pageDown
-          line = @diakonos.select_list_item
-          if line
-            @input = line
-            cursorWriteInput
-          end
-        when Curses::KEY_PPAGE
-          @diakonos.pageUp
-          line = @diakonos.select_list_item
-          if line
-            @input = line
-            cursorWriteInput
-          end
-        when Curses::KEY_UP
-          if @diakonos.showing_list?
-            if @diakonos.list_item_selected?
-              @diakonos.previous_list_item
-            end
-            @input = @diakonos.select_list_item
-          elsif @history_index > 0
-            @history[ @history_index ] = @input
-            @history_index -= 1
-            @input = @history[ @history_index ]
-          end
-          cursorWriteInput
-        when Curses::KEY_DOWN
-          if @diakonos.showing_list?
-            if @diakonos.list_item_selected?
-              @diakonos.next_list_item
-            end
-            @input = @diakonos.select_list_item
-          elsif @history_index < @history.length - 1
-            @history[ @history_index ] = @input
-            @history_index += 1
-            @input = @history[ @history_index ]
-          end
-          cursorWriteInput
-        when CTRL_K
-          @input = ""
-          if @block
-            @block.call @input
-          end
-          cursorWriteInput
-        when Curses::KEY_F5
-          @diakonos.decrease_grep_context
-          call_block
-        when Curses::KEY_F6
-          @diakonos.increase_grep_context
-          call_block
-        else
-          if c > 31 and c < 255 and c != BACKSPACE
-            if @input_cursor == @input.length
-              @input << c
-              @window.addch c
-            else
-              @input = @input[ 0...@input_cursor ] + c.chr + @input[ @input_cursor..-1 ]
-              @window.setpos( @window.cury, @window.curx + 1 )
-              redrawInput
-            end
-            @input_cursor += 1
-            call_block
-          else
-            @diakonos.log "Other input: #{c}"
-          end
-        end
-      end
-
-      @diakonos.closeListBuffer
-
-      @history[ -1 ] = @input
-    end
-
-    def redrawInput
-      input = @input[ 0...Curses::cols ]
-
-      curx = @window.curx
-      cury = @window.cury
-      @window.setpos( @icury, @icurx )
-      @window.addstr "%-#{ Curses::cols - curx }s%s" % [ input, " " * ( Curses::cols - input.length ) ]
-      @window.setpos( cury, curx )
-      @window.refresh
-    end
-
-    # Redisplays the input text starting at the start of the user input area,
-    # positioning the cursor at the end of the text.
-    def cursorWriteInput
-      if @input
-        @input_cursor = @input.length
-        @window.setpos( @window.cury, @icurx + @input.length )
-        redrawInput
-      end
-    end
-
-    def completeInput
-      if @completion_array and @input.length > 0
-        len = @input.length
-        matches = @completion_array.find_all { |el| el[ 0...len ] == @input and len <= el.length }
-      else
-        matches = Dir.glob( ( @input.subHome() + "*" ).gsub( /\*\*/, "*" ) )
-        if @on_dirs == :accept_dirs
-          matches = matches.select { |m| File.directory? m }
-        end
-      end
-      matches.sort!
-
-      if matches.length == 1
-        @input = matches[ 0 ]
-        cursorWriteInput
-        File.open( @list_filename, "w" ) do |f|
-          if @completion_array.nil?
-            f.puts "(unique)"
-          else
-            f.puts @input
-          end
-        end
-        if @completion_array.nil? and FileTest.directory?( @input )
-          @input << "/"
-          cursorWriteInput
-          if @on_dirs != :accept_dirs
-            completeInput
-          end
-        end
-      elsif matches.length > 1
-        common = matches[ 0 ]
-        File.open( @list_filename, "w" ) do |f|
-          i = nil
-          matches.each do |match|
-            f.print match
-            if FileTest.directory?( match )
-              f.print '/'
-            else
-              @diakonos.log "'#{match}' is not a directory"
-            end
-            f.puts
-
-            if match[ 0 ] != common[ 0 ]
-              common = nil
-              break
-            end
-
-            up_to = [ common.length - 1, match.length - 1 ].min
-            i = 1
-            while ( i <= up_to ) and ( match[ 0..i ] == common[ 0..i ] )
-              i += 1
-            end
-            common = common[ 0...i ]
-          end
-        end
-        if common.nil?
-          File.open( @list_filename, "w" ) do |f|
-            f.puts "(no matches)"
-          end
-        else
-          @input = common
-          cursorWriteInput
-        end
-      else
-        File.open( @list_filename, "w" ) do |f|
-          f.puts "(no matches)"
-        end
-      end
-      @diakonos.openListBuffer
-      @window.setpos( @window.cury, @window.curx )
-    end
-
-  end
-
-end